Sayfa sonu toplam alma

[KILIÇBEY]

Merhabalar;

Bi sorunumuz var bizim 40.000 satırlık bir excell tablomuz var ve bu excell tablosunu biz yazdırırken her sayfa sonuna toplam alarak çıktı almak istiyoruz. bir türlü yapamadık bu işlemi bilen arkadaşlar yardımcı olabilirse çok sevinirim.:???:

 

[hamitcan]

Hangi sütuna toplam alınacak ?

 

[KILIÇBEY]

hangi sütuna toplam alınacak ?

matrah ve kdv sütununa yani ı ve j sütunu

 

[Erdem Akdemir]

sayın kılıçbey dosyanızı eklemeniz gerek.

Vakti zamanında kendim için aşağıdaki gibi birşey yapmıştım. Kendi dosyanıza uyarlayabilirsiniz. Yalnız baskı önizlemede çıkmaz, yazdırma yaptığınız zaman sayfa toplamlarının olduğunu göreceksiniz.

Option Base 1

Sub ddsa()

Dim dizi(), dizi1() As Variant

k = ActiveSheet.HPageBreaks.Count + 1
ReDim Preserve dizi(k)
ReDim Preserve dizi1(k)
dizi(1) = 1

For t = 1 To k - 1

dizi(t + 1) = ActiveSheet.HPageBreaks(t).Location.Row
dizi1(t) = ActiveSheet.HPageBreaks(t).Location.Row - 1

Next t

dizi1(UBound(dizi)) = Cells(Rows.Count, "C").End(3).Row


For i = LBound(dizi) To UBound(dizi)

ActiveSheet.PageSetup.PrintArea = "$A$" & dizi(i) & ":$C$" & dizi1(i)
ActiveSheet.PageSetup.CenterFooter = WorksheetFunction.Sum(Range("c" & dizi(i) & ":c" & dizi1(i)))
ActiveSheet.PrintOut
Next i

ActiveSheet.PageSetup.PrintArea = ""


End Sub

 

[KILIÇBEY]

sayın kılıçbey dosyanızı eklemeniz gerek.

Vakti zamanında kendim için aşağıdaki gibi birşey yapmıştım. Kendi dosyanıza uyarlayabilirsiniz. Yalnız baskı önizlemede çıkmaz, yazdırma yaptığınız zaman sayfa toplamlarının olduğunu göreceksiniz.

Option Base 1

Sub ddsa()

Dim dizi(), dizi1() As Variant

k = ActiveSheet.HPageBreaks.Count + 1
ReDim Preserve dizi(k)
ReDim Preserve dizi1(k)
dizi(1) = 1

For t = 1 To k - 1

dizi(t + 1) = ActiveSheet.HPageBreaks(t).Location.Row
dizi1(t) = ActiveSheet.HPageBreaks(t).Location.Row - 1

Next t

dizi1(UBound(dizi)) = Cells(Rows.Count, "C").End(3).Row


For i = LBound(dizi) To UBound(dizi)

ActiveSheet.PageSetup.PrintArea = "$A$" & dizi(i) & ":$C$" & dizi1(i)
ActiveSheet.PageSetup.CenterFooter = WorksheetFunction.Sum(Range("c" & dizi(i) & ":c" & dizi1(i)))
ActiveSheet.PrintOut
Next i

ActiveSheet.PageSetup.PrintArea = ""


End Sub

teşekkür ediyorum yardımlarınız için.

 

[SHeK3R]

Merhaba Arkadaşlar,

Aynı Problem benim de sorunum vermiş olduğunuz makronun kodlarını çalışmam da düzenlemem de yardımcı olur musunuz ?

Örnek olarak aşağıda iletiyorum şimdiden çok teşekkürler.Ekli dosyayı görüntüle Deneme.xlsx

 

[Erdem Akdemir]

Merhaba Arkadaşlar,

Aynı Problem benim de sorunum vermiş olduğunuz makronun kodlarını çalışmam da düzenlemem de yardımcı olur musunuz ?

Örnek olarak aşağıda iletiyorum şimdiden çok teşekkürler.Ekli dosyayı görüntüle 173431

Dosyanız ektedir, formatını hiç değiştirmemeniz gerekir.

 

[SHeK3R]

Sayın Kuvari,

Çalışmamı düzenlediğiniz için çok teşekkür ederim ancak, yine ara toplam tutarını hatalı olarak toplanmak da.

Verdiğim örnekte İlk sayfanın ara toplamı Tutar 183.000,00 KDV 14.640,00 G.Toplam 197.640,00 TL'dir sizin yapmış olduğunuz makro ara toplam almakta ancak Tutar 555.100,00 KDV 44.408,00 599.508,00 olarak sonuç üretmekte acaba tekrar kontrol etmeniz hususunda desteklerinizi rica edebilirmiyim.

Yardımlarınız için çok teşekkürler.

 

[Erdem Akdemir]

Çok ufak bir değişiklik yaptım. Baskı önizlemeden bakarsanız yanlış sonuç görürsünüz. Makroyu çalıştırın alttoplamların olduğunu göreceksiniz.

 

[ozgeozturk_90]

merhaba, peki macro yazmadan sayfa sonuna toplam alabilir miyiz? yani excelde toplam almadan sadece çıktı alınan sayfalarda dip toplamlar yer alacak.