artan sıralamada sayfalara sayfa numarası ekleme

[bülenterdogan]

Mevcut excel dosyamda çok sayıda sayfam ve her sayfada değişken sayıda yazdırılacak sayfa sayısı var. Benim istediğim sheet1 de 10 sayfam var sayfa alt bilğisi olarak sayfa numarası ve toplam sayfa numarası yazsın bunu yaparken sheet2 ve sheet3 gibi tüm sheets lerdeki sayfa sayısını toplayarak toplam sayfa sayısına bunu yazması sheet 2 de devam ederkende sheet1 de kaldığı sayfa numarasından devam etmesi.
bunu tüm sheetler için uygulaması
şimdiden ışık tutan arkadaşlara teşekkürler.

 

[Levent Menteşoğlu]

Bu istediğiniz çok kolay değil, biraz uğraştırdı ama sonuç elde ettim. Ekteki dosyayı inceleyin. Aşağıdaki kodlar Thisworkbook modülüne kopyalandığında her çalışma için kullanılabilir. Yeni sayfa eklendiğinde bilgilerin güncellenmesi için dosyanın kapatılıp tekrar açılması gerekir.

Dim say As Integer
Dim deg(1000) As Integer
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For a = 1 To ActiveSheet.Index - 1
sayfa = sayfa + deg(a)
Next
ActiveSheet.PageSetup.CenterFooter = "&P+" & sayfa & "/" & say
End Sub
 
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Activate
ActiveWindow.View = 2
deg(a) = ActiveSheet.HPageBreaks.Count + 1
say = ActiveSheet.HPageBreaks.Count + 1 + say
ActiveWindow.View = 1
Next
Sheets(1).Select
End Sub

 

[bülenterdogan]

teşekkür

Sayın Leventm kardeşim sana çok teşekkür ederim günlerdir uğraşıyordum çok sağol Varlığınız biz acemiler için mutluluk