otomatik sayfa sonu

[esref55]

arkadaşlar basit bir örnek hazırladım. yapmak istediğim her 10 kişide bir sayfa sonu yapmak ve her sayfanın sonuna toplam almak. toplamlar kümülatif olarak gidecek.
son sayfada genel toplam olacak. bir butona bağlanarak böyle birşey yapılabilirmi.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub toplam()
For i = 10 To Cells(65536, "C").End(xlUp).Row + 10 Step 10
    Range("D" & i).Formula = "=sum(C" & i - 9 & ":C" & i & ")"
Next
End Sub

 

[hsayar]

toplamın altındaki sayfa sonu olsun istemişsiniz bende onu ekledim

Sub toplam()
    For i = 10 To Cells(65536, "C").End(xlUp).Row + 10 Step 10
        Range("D" & i).Formula = "=sum(C" & i - 9 & ":C" & i & ")"
        Range("e" & i + 1).Select
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub SAYFA_SONU_EKLE_TOPLAM_AL()
    On Error Resume Next
    ActiveSheet.ResetAllPageBreaks
    For X = 11 To [C65536].End(3).Row + 2 Step 11
    Rows(X).Insert
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(X + 1, 3)
    Next
    [C65536].End(3).Offset(3, 0) = "."
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$" & [C65536].End(3).Row - 1
    Range("C1:C" & [C65536].End(3).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
    [C65536].End(3) = Empty
End Sub

 

[esref55]

hepinize çok teşekkür ederim. saygı ve sevgilerimle.