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

• #30740 Delila_1 veterán tgumis #30739

  Új Válasz 2016-02-24 07:48:47 #30740

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

  Próbáld meg ezzel

  Sub Oldaltores()
  Dim sor As Long, darab As Integer, ny As Long
  
  darab = Application.InputBox("Hány soronként legyen oldaltörés?", "Szám bekérése", , , , , , 2)
  sor = 1
  Do While Cells(sor, "A") <> ""
  If Rows(sor).Hidden = False Then ny = ny + 1
  If ny Mod darab = 0 Then
  Cells(sor + 1, 1).Select
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  ny = 0
  End If
  sor = sor + 1
  Loop
  End Sub

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