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

• #32138 Delila_1 veterán Mittu88 #32137

  Új Válasz 2016-07-21 16:16:54 #32138

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

  Az az 1 sor, amit írtam, bármelyik lapról indítva a makrót, bármelyik másik lapra beteszi az oldaltörést.

  Ha az aktív lapon akarsz oldaltörést létrehozni, az

  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A22")

  sorral is megteheted.

  Akár ciklust is szervezhetsz köré, ami x soronként szúr be oldaltörést.

  Sub Oldaltores()
Dim x As Long

For x = 53 To 300 Step 53
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & x)
Next
End Sub

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