ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[yyhy]

İmha listesi oluşturuyorum. Sayfa başı ve sonu bilgilerini otomatik olarak nasıl eklenebilir, hesaplattırılabilir?

[OmerFaruk72]

Sizin ihtiyacınız biraz daha farklı ama bunlar size ışık tutmalı. Sizin yerinizde olsam

. Sayfa başı ve sonu için 1 ya da 1 den fazla satır içeren bir şablon belirlerim.
. İlk sayfa zaten belli o şablonu ilk sayfa başı için kullanırım.
. HPageBreaks kontrolüyle sayfa sonlarını belirlerim. Sayfa sonuna ve haliyle bir sonraki sayfanın başına istediğim bilgileri getiririm.

Kod: Tümünü seç

    ActiveSheet.ResetAllPageBreaks
    ActiveWindow.View = xlPageBreakPreview
    For i = 1 To ActiveSheet.HPageBreaks.Count - 1
        Range("A" & ActiveSheet.HPageBreaks(i).Location.Row - 1, "N" & ActiveSheet.HPageBreaks(i).Location.Row - 1).Borders(xlEdgeBottom).Weight = xlThin
    Next i
    ActiveWindow.View = xlNormalView

[yyhy]

Sayın @OmerFaruk72 acaba örnek dosya ekledim üzerinde yapabilir misiniz? Yukarıdaki konular hakkında bilgi sahibi değilim.

[OmerFaruk72]

Sayfa alt ve üstlerinde yazdığınız 2.Sayfa Toplamı gibi ifadeler birebir aynısı mı olacak?

[yyhy]

Evet aynı şablon gibi olması gerekiyor. Manuel baya bir zamanımı almaktadır. Bir yöntem bulunabilirse iyi olacak.