Új hozzászólás Aktív témák

• #4000 Delila_1 veterán Hosssszu #3997

  Új Válasz 2008-10-31 13:51:50 #4000

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Hosssszu #3997 üzenetére

  Nem is annyira egyszerű a dolog, de azért itt a makrós megoldás:

  Sub rendez()
  usor = Range("A65536").End(xlUp).Row
  For sor_a = 2 To usor
  adat = Cells(sor_a, 1)
  For sor_b = 2 To Range("B65536").End(xlUp).Row
  If Cells(sor_b, 2) = adat Then
  Cells(sor_b, 2).Select
  Selection.Cut Destination:=Cells(sor_a, 4)
  End If
  Next
  Next
  
  also = usor
  For sor_b = 2 To usor
  adat = Cells(sor_b, 2)
  If adat > "" Then
  also = also + 1
  Cells(sor_b, 2).Select
  Selection.Cut Destination:=Cells(also, 2)
  End If
  Next
  Range("D2:D" & usor).Select
  Selection.Cut Destination:=Range("B2:B" & usor)
  Range("B2:B21").Select
  End Sub

Új hozzászólás Aktív témák