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

• #28678 Delila_1 veterán atike #28672

  Új Válasz 2015-09-17 14:42:12 #28678

  Ú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 atike #28672 üzenetére

  Ezzel rendbe teheted

  Sub Athelyez()
  Dim sor As Long
  
  sor = 1
  Do While Cells(sor, "A") <> ""
  Cells(sor, "B") = Cells(sor + 1, "A")
  Cells(sor, "C") = Cells(sor + 2, "A")
  Cells(sor, "D") = Cells(sor + 3, "A")
  Rows(sor + 1 & ":" & sor + 3).Delete Shift:=xlUp
  sor = sor + 1
  Loop
  End Sub

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