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

• #6902 Delila_1 veterán bandus #6901

  Új Válasz 2010-04-16 07:42:44 #6902

  Ú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 bandus #6901 üzenetére

  Ez a makró elintézi:

  Sub Rendez()
  Dim sor As Integer
  
  sor = 2
  Do While Cells(sor, 2) <> ""
  Range("B" & sor & ":B" & sor + 3).Select
  Selection.EntireRow.Insert
  Cells(sor, 3) = Cells(sor - 1, 4)
  Cells(sor + 1, 3) = Cells(sor - 1, 5)
  Cells(sor + 2, 3) = Cells(sor - 1, 6)
  Cells(sor + 3, 3) = Cells(sor - 1, 7)
  sor = sor + 5
  Loop
  Columns("D:G") = ""
  End Sub

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