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

• #21696 Delila_1 veterán Gabcsika #21692

  Új Válasz 2014-05-21 09:51:24 #21696

  Ú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 Gabcsika #21692 üzenetére

  Próbáld meg ezzel a makróval.

  Sub Nyomtat()
  Dim sor1 As Long, sor2 As Long
  Sheets("Sheet1").Select
  
  sor1 = 2: sor2 = 1
  
  Do While Cells(sor1, "A") <> ""
  Range("A" & sor1 & ":C" & sor1 + 4).Copy
  Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
  sor1 = sor1 + 5
  If sor2 >= 63 Then
  Sheets("Sheet2").Select
  ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
  Cells.ClearContents
  Sheets("Sheet1").Select
  sor2 = 1
  Else: sor2 = sor2 + 3
  End If
  Loop
  End Sub

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