Sayfa toplamları hakkında yardım lftn

[smach]

excel çalışma sayfamda yazıcı cıktısı 25 sayfaya yakın hesap tablosu var ve bu sayfanın satırlarını ayrımadan yazıcıdan cıktı alırken sayfanın altına o sayfada bulunan degerlerin toplamını yazdırmak istiyorum. boyle bi durum mumkunse eger yardımlarını bekliyorum.

 

[adige18]

ah bir soruyu anlayabilseydim

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=68724#68724

 

[smach]

Tşkler leventm
verdigin link işime yaradı

 

[makam61]

excel çalışma sayfamda yazıcı cıktısı 25 sayfaya yakın hesap tablosu var ve bu sayfanın satırlarını ayrımadan yazıcıdan cıktı alırken sayfanın altına o sayfada bulunan degerlerin toplamını yazdırmak istiyorum. boyle bi durum mumkunse eger yardımlarını bekliyorum.

 

[makam61]

Application.ScreenUpdating = False
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count
ilk = 2
c = -1
sontoplam = WorksheetFunction.Sum(i2:i65536)
For a = 1 To say
sat = ActiveSheet.HPageBreaks.Item(a).Location.Row - 1
Rows(sat).Insert
adr = "i" & ilk & ":i" & sat + c
c = 0
ilk = sat
toplam = WorksheetFunction.Sum(Range(adr))
Cells(sat, "h") = "TOPLAM:"
Cells(sat, "i") = toplam
Next
sonsat = [h65536].End(3).Row + 1
Cells(sonsat, "h") = "TOPLAM:"
Cells(sonsat, "i") = sontoplam
ActiveWindow.View = 1


BU KOD HATA VERİYOR YANLIŞ NERDE AÇABA
HATA VEREN SATIR WorksheetFunction.Sum HATASI