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

• #21705 Gabcsika tag Delila_1 #21702

  Új Válasz 2014-05-21 11:09:06 #21705

  Ú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

  

  Gabcsika

  tag

  válasz Delila_1 #21702 üzenetére

  Így nézek ki:

  Sub Nyomtat()
  Dim sor1 As Long, sor2 As Long
  Sheets("Sheet1").Select

  sor1 = 2: sor2 = 1

  Do While Cells(sor1, "A") <> ""
  Range("A" & sor1 & "" & sor1 + 4).Copy
  Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
  sor1 = sor1 + 5
  If sor2 >= 63 Then
  Sheets("Sheet2").Select
  Sub Nyomtat()
  '
  ' Nyomtat Makró
  ' Printing
  '
  ' Billentyűparancs: Ctrl+k
  '
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  IgnorePrintAreas:=False
  End Sub
  Cells.ClearContents
  Sheets("Sheet1").Select
  sor2 = 1
  Else: sor2 = sor2 + 3
  End If
  Loop
  If Sheets("Sheet2").Range("A1") > "" Then
  Sheets("Sheet2").Select
  Sub Nyomtat()
  '
  ' Nyomtat Makró
  ' Printing
  '
  ' Billentyűparancs: Ctrl+k
  '
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  IgnorePrintAreas:=False
  End Sub
  Cells.ClearContents
  Sheets("Sheet1").Select
  End If
  End Sub

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