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

• #21711 Delila_1 veterán Gabcsika #21708

  Új Válasz 2014-05-21 12:31:16 #21711

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

  Itt a manuális nyomtatáshoz a makró, bár nálam hiba nélkül végrehajt mindent.

  Sub Nyomtat()
  Dim sor1 As Long, sor2 As Long
  Sheets("Sheet2").Cells.ClearContents
  Sheets("Sheet1").Select
  
  If Range("V1") = "" Then Range("V1") = 2
  sor1 = Range("V1"): sor2 = 1
  
  Do While sor2 <= 66
  Range("A" & sor1 & ":C" & sor1 + 4).Copy
  Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
  sor1 = sor1 + 5
  sor2 = sor2 + 3
  Loop
  
  Range("V1") = sor1
  
  Sheets("Sheet2").Select
  MsgBox "Nyomtass"
  
  If Application.CountA(Sheets("Sheet1").Columns(1)) < sor1 Then _
  Sheets("Sheet1").Range("V1") = ""
  End Sub

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