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

• #30723 Delila_1 veterán tgumis #30721

  Új Válasz 2016-02-23 11:37:31 #30723

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

  Modulba tedd a makrót. Állj arra a lapra, ahol be akarod állítani, onnan kell indítanod. Bekéri, hány sort akarsz egy lapra tenni, majd beszúrja az oldaltöréseket.

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

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