Alt bilgi olarak sayfa toplamı almak

[hsayar]

bir formumuz var
a1001 hücresinde A2:A1000 erimini topluyoruz ve satı yüksekliği standart, kenar boşlukları standart bir excel sayfasında bu 19 sayfa topluyor ve toplamı sadece 19. sayfada görebiliyoruz ama
(tabi atıorum a25:a50 aralığında fontu dikkat eçkmek için 10 iken 15 yaptık satır yüksekliği değişti sayfa sayısı değişti bunuda dikkate alırsanız sevinirim.)
her sayfanın alt bilgisi olarak görmek mümkün mü
veya sayfa sonlarına araya makro ile ilave edilebilirmi

 

[Fuat Şirin]

bu yazdığınızı inanın bende dahil kimse anlamamıştır
eğer bir dosya eklerseniz ve açıklama yaparsanız yardımcı olunur

 

[hsayar]

daha açık anlatayım
a,b,c,d,e sütunlarımız var
1. satır başlıklar no,adı soyadı,geliri,gideri, neti vs
2 ila 1000 nci satırlar değer içeriyor
1001. satır toplamları alıyor
c1001= topla(c2:c1000)
d1001= topla(d2:d1000)
e1001= topla(e2:e1000)

bu durumda toplamı biz hep son sayfda görüyoruz

ben hersayfada alt bilgi olarak eklemenin yolu varmı?
veya
hersayfanın sondan bir öncesine makro ile satır ekletip, oraya =alttoplam(9;c2:c(sayfasonsat-1)) gibi birşyeen bahsediyorum

 

[Mahmut Kök]

Ekteki gibi bir uygulama belki işinize yarayabilir.

 

[hsayar]

mesleki hocam elinize sağlık satır yüksekliği gönderdiğiniz gibi iken işlem doğru;
yalnız satır yüksekliği değiştiğinde sonuçlar yanlış çıkıyor

 

[Mahmut Kök]

Sayın hsayar, bende satır yükseklikleri değişse de doğru çıkıyor. Ancak, gönderdiğim kodların pek kullanışlı olduğunu söyleyemem. Çünkü sayfa sonlarını görmesi için, illa ki o sayfanın ekrana gelmiş olması gerekiyor. Ben bunu ekranı aşağı kaydırarak yaptırdım. Hatta aşağı kaydırmanın bile doğru olması lazım, yoksa hata verebiliyor. Toplamların doğruluğunu tekrar dener misiniz?

 

[hsayar]

tamam hocam onu denerim yalnız benim ricam toplama başlanacak ilk satırın a1 yerine a2, a3,a4 durumlarında nasıl olması gertektiğini açıklarsanız sevinirim...
malum genelde 1 ve 3. satıorlar genelde başlık satırlarıdır.

 

[Mahmut Kök]

Benim yazdığım kodlar içinse

ilk = 2 'ifadesi 2. satırdan başladığını belirtiyor. 2'yi kaç yaparsanız oradan başlar. ilk=2 sadece ilk sayfa için geçerli, diğer sayfalar için farklı değerler alıyor.

WorksheetFunction.Sum(s1.Range(s1.Cells([COLOR=red]ilk[/COLOR], "a"), s1.Cells(ssonu(a) - 2, "a")))

 

[hsayar]

hocam ilk sayfayı hesaplamayı a2:a55 olarak aypıyor 2den 55 kadar 1539 yapıyor...
ben a1 den diye baktığım için sonucu 1540 beklediğim için öyle söyledim.

 

[hsayar]

dosya günceeleştirildi

 

[Mahmut Kök]

Sayfa görünümünü Sayfa Sonu Önizleme olarak ayarladığınız için son toplam, diğer sayfadaymış gibi gözüküyor. Sayfada sğ tıklayıp, yazdırma alanını sıfırla seçeneğini seçerseniz, zannımca düzelecektir.

    'Son satırı daha yukarıda ssonu değişkenine atamıştım.
    'aslında ssonu, sayfa sonu değil, diğer sayfanın ilk satırı.
 
    s1.Rows(ssonu(a) - 1).Insert 'Burada, sayfanın son satırına boş satır ekliyoruz.
 
     s1.Cells(ssonu(a) - 1, "a") = a & ". SAYFA TOPLAMI " & WorksheetFunction.Sum(s1.Range(s1.Cells(ilk, "a"), s1.Cells(ssonu(a) - 2, "a")))
 
'Bir üstteki kod ise toplamı yazıyor.
'SUM, hücrelerde kullandığımız =Topla  anlamına geliyor.

 

[hsayar]

.....
ssonu(ss) = s1.HPageBreaks(ss).Location
.....

satırında hata veriyor yazdırma alanını sıfırla deyip çalıştırınca kenar boşluklarının tamamı sıfır, 5. satırdan toplmaya başla

şi,mdi farkettiğim kadarı ile mevcut sayfa tamamı 4 sayfa 5. sayfaya taşmıyorsa bu hatayı veriyor 5 sayfadan 1 satır alırsa hata vermiyor
5 sayfanın 1 satırına herhangi bir rakam yazıncada 4 ve 5 sayfaların toplamını almıyor 1,2,3 ü topluyor

 

[Mahmut Kök]

Sayın hsayar, bende satır yükseklikleri değişse de doğru çıkıyor. Ancak, gönderdiğim kodların pek kullanışlı olduğunu söyleyemem. Çünkü sayfa sonlarını görmesi için, illa ki o sayfanın ekrana gelmiş olması gerekiyor. Ben bunu ekranı aşağı kaydırarak yaptırdım. Hatta aşağı kaydırmanın bile doğru olması lazım, yoksa hata verebiliyor. Toplamların doğruluğunu tekrar dener misiniz?

Aşağıdaki satırdaki 20 değerini yükseltip deneyiniz.

ActiveWindow.SmallScroll Down:=ssonu(ss) + 20

Aşağıdaki kodda, var olan yazdırılabilir sayfa sayısı alınıyor. Sayfa sonunu sıfırlamazsanız, olmayan bir sayfa varmış gibi değerlendirilebileceğinden de hata veriyor olabilir.

s1.HPageBreaks.Count

 

[hsayar]

Hocam dosya ekliyemirum... detayları daha sonra bakarız mevcut durum için bir çözüm bulalım önce ben uğraştım topralayamadım
a sütununda veriler var toplanmayacak
b,c,d,e,f sütunlarıunda veriler var sayfa toplamı alınacak (mümkünse zıt renkler kullanılabnilir, dolgu siyah, font beyaz gibi)
alttoplam alınan satırın a sütuna "Sf x" toplamı yazılabilir.

 

[hsayar]

hsayar kullanıcısının avatarı

Giriş: 02/03/2005
Mesaj: 261

Varsayılan
Hocam dosya ekliyemirum... detayları daha sonra bakarız mevcut durum için bir çözüm bulalım önce ben uğraştım topralayamadım
a sütununda veriler var toplanmayacak
b,c,d,e,f sütunlarıunda veriler var sayfa toplamı alınacak (mümkünse zıt renkler kullanılabnilir, dolgu siyah, font beyaz gibi)
alttoplam alınan satırın a sütuna "Sf x" toplamı yazılabilir.

 

[hsayar]

dosya günceeleştirildi

dosya günceeleştirildi 10. mesaj
yardımlarınız için teşekkürler

 

[Mahmut Kök]

Güncelleştirdiğiniz dosyaya bakamadım ama bir önceki iletinizde belirtiğiniz duruma göre bir örnek dosya ekledim.

 

[hsayar]

sağolun hocam eklediğim dosyada buna benzer bir şeydi zaten, elinize sağlık
biz artık worksheetfunction ları kopyalyıp istediğimiz sütuna göre halledebilirmiyiz özel bir şeye dikkat etmek lazımmı?

 

[hsayar]

http://www.excel.web.tr/showpost.php?p=210356&postcount=19
hocam eliniz değmişken şuna bir el atıverseniz
herhalde altta kladığı için kimse görmüyor

 

[hsayar]

konu ile ilgili yeni bir soru aşağıdaki linkte var, örnek arayanlar için
http://www.excel.web.tr/showthread.php?t=39838