her x satırda bölüp sayfa sonu ekleme

[modoste]

merhaba sayın hocalarım
excel sayfa sonu izleme ayarlama ile ilgili sorum olacaktı

satır yükseklikleri 10 birim olan bir tablom var diyelim 2800. satıra kadar olsun
her 60 satırda bir sayfa sonu ekleme ile ilgili bir ayar var mı

 

[Necdet]

Merhaba
Aşağıdaki kodda adt adlı değişkene atayacağınız sayı kadar satırda sayfa sonu ekler.

Sub Makro1()

Dim i   As Long, _
    adt As Integer

adt = 10

ActiveSheet.ResetAllPageBreaks

For i = adt + 1 To Cells(Rows.Count, "A").End(3).Row Step adt
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & i)
Next i

End Sub

 

[modoste]

Excelin kendi sayfa sonu ayarlamalarında bu tarz özellik yok, yani Necdet Hocam
Teşekkür ederim

 

[Necdet]

Excelin kendi sayfa sonu ayarlamalarında bu tarz özellik yok, yani Necdet Hocam
Teşekkür ederim

Belki Ofis 366 da yaparlar diye düşünüyorum