Sayfa sonu ekleme

[sedat2161]

Hayırlı sabahlar, iyi çalışmalar. Sayfa düzeninde bulunan sayfa sonu eklemeye karışmadan makro ile her sayfaya 25 kişi ekleme mümkünmü acaba. Ekli dosyamda 132 kişilik bir bordrom var her sayfaya 25 kişi gelecek şekilde ayarlamam gerekiyor. sayı daha fazlada olabilir. Hayırlı günler iyi çalışmalar.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub sayfasonu()
son = Cells(Rows.Count, "A").End(3).Row
ActiveSheet.ResetAllPageBreaks
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
For i = 37 To son Step 25
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Next
End Sub

 

[sedat2161]

Aşağıdaki makroyu deneyiniz:

Sub sayfasonu()
son = Cells(Rows.Count, "A").End(3).Row
ActiveSheet.ResetAllPageBreaks
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
For i = 37 To son Step 25
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Next
End Sub

Yusuf bey ilginiz için teşekkür ettim. yanlız kod çalışmadı. Gönderdiğiniz kodu butonuna ekledim kod sarı oldu. Dosyam ektedir. İyi çalışmalar.

 

[YUSUF44]

Aşağıdaki kodları kullanın. Yalnız sayfa ayarından tüm sütunları bir sayfaya sığdırmayı seçin:

Sub sayfasonu()
son = Cells(Rows.Count, "A").End(3).Row
ActiveSheet.ResetAllPageBreaks

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
    End With


For i = 37 To son Step 25
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Next
End Sub

 

[sedat2161]

Aşağıdaki kodları kullanın. Yalnız sayfa ayarından tüm sütunları bir sayfaya sığdırmayı seçin:

Sub sayfasonu()
son = Cells(Rows.Count, "A").End(3).Row
ActiveSheet.ResetAllPageBreaks

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
    End With


For i = 37 To son Step 25
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Next
End Sub

Sayın Yusuf bey kodu çalıştırdım. Sayfa düzenlendi. yalnız sayfa ayarından tüm sutunları bir sayfaya sığdırdım (ölçek % 65) ama butona tıkladığımda sayfa genişliyor ölçek % 100 oluyor. Yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Belirttiğim gibi sayfa ayarıdnan tüm sütunları bir sayfaya sığdır olarak ayarlamanız gerekiyor. Başka türlü ayarlayamadım.

 

[sedat2161]

Belirttiğim gibi sayfa ayarıdnan tüm sütunları bir sayfaya sığdır olarak ayarlamanız gerekiyor. Başka türlü ayarlayamadım.

Çok teşekkür ederim. İyi çalışmalar. Emeniğinize sağlık