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

• #9473 Delila_1 veterán yoogie #9472

  Új Válasz 2011-02-16 13:11:55 #9473

  Ú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 yoogie #9472 üzenetére

  Sub Áthelyezés()
  Dim usor As Integer, sor As Integer, sor_1 As Integer
  
  usor = Range("A50000").End(xlUp).Row
  sor_1 = 1
  
  For sor = 1 To usor Step 5
  Range(Cells(sor, 1), Cells(sor + 4, 1)).Copy
  Cells(sor_1, 3).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
  sor_1 = sor_1 + 1
  Next
  End Sub

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