sayfa sayfa alt toplamı alarak çıktı

[gedavet]

iyi günler diliyorum diyelim ki bir liste var veriler alta doğru uzayıp gidyor ve çıktı almak istiyorum ancak her sayfanın altında o sayfanın toplamı olsa ve baştaki başlık satırını yenilenecek satır özelliğinden yapıyorum sadece alttaki toplam satırını yapamadım bu mümkünmüdür

 

[musty98]

tabi çok kolay o yukarıdaki otomatik toplam işareti varya ters E gibi ona tıkla sonra beliren alanın köşelerinden tut sağa sola sürükle istediğin alana . eğer sorduğun bu değilse bir örnek ekleyebilirseniz yapabilirsem yardımcı olurum

 

[uzmanamele]

iyi günler diliyorum diyelim ki bir liste var veriler alta doğru uzayıp gidyor ve çıktı almak istiyorum ancak her sayfanın altında o sayfanın toplamı olsa ve baştaki başlık satırını yenilenecek satır özelliğinden yapıyorum sadece alttaki toplam satırını yapamadım bu mümkünmüdür

merhaba
standart şekliyle olmaz.

fikir vermesi açısından ek dosyayı inceleyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = Sheets("SAYFA1").[B7] & ":" & Sheets("SAYFA1").[C7]
        .RightFooter = ""
    End With
End Sub

 

[gedavet]

Bu ekde ki dosyada mesela satış tutarları her sayfanın altında o sayfanın toplamı olsa en sondakide genel toplam olsa

 

[uzmanamele]

merhaba

pratik çözüm:
toplam satırınızı son sayfanın en altında almak yerine ilk sayfanın en başında alınız.
eğer birden fazla sayfa oluyorsa zaten ara sayfalarda toplamı göremiyorsunuzdur. bu durumda en son satırda toplamı görmekle ilk satırda toplamı görmek arasında fark olur mu.

 

[gedavet]

Her sayfa için ara toplamı görmek istiyorum

 

[gedavet]

Ekdeki dosyaya yardımcı olabilirmisiniz

 

[gedavet]

Excel hocalarım iyi günler acaba bunun çözümü yıkmu yardımcı olabilen olursa çok iyi olur

 

[musty98]

Buyrun makro felan yazmadım ama işinize yarar sanırım şunları yaptım

satır numarası verdim ilk sütuna
görünümden sayfa önizleme ye geldim 50 şerli satırlar halinde sayfaları ayarladım
sonra her 50 satırda bir toplam aldım
sonra en sonuna bu aradaki toplamların toplamını aldırdım. inşallah işinize yarar yada en azından fikir olarak bir katkım olmuştur karadüzen ama idare eder

 

[gedavet]

musty98 bey ilgini için teşekkür ederim ancak 7 nolu mesajdaki ekdeki olduğu gibi liste özelliği var onda bu gibi işlem ayarlanmıyor liste uzayıp gidiyor listenin kaçıncu satırı kaçakıncı sayfa gelelcek bilmiyorum otomatik sayfa ne kadar sığarsa sayfayı toplamasını istiyorum

 

[musty98]

liste ne kadar uzun olabilirki mirim. bu mesajınızı sabah saat 10 da atmıştınız.formül kullanılması içinde sayfaya sığacak satırlar belli olmalıdır zaten. köşeye basıp tüm sayfayı seçin satır yüksekliğini aynı yapın ,veri filtre uygulayı kapatın zaten başlıkları her sayfada tekrarlattığınız için sayfalara düşecek satır adedi hemen hemen aynı olacaktır o kadar aralıklarla ara toplam aldırırsınız manuel. en son toplamınızada =ETOPLA(E5:E249;E250;H5:H249) aralığı genişletip sadece toplam satırlarını toplatırsınız olur bu iş bence. veri satırı 7000 sayfa dahi olsa en fazla yarım saatinizi alır ayarlamak . işiniz bitince de görünüm sayfa önizlemeden mavi çizgileri kaydırıp toplamların tam sayfa altına gelecek şekilde ayarını yaparsınız olur biter eğer özel veri yoksa yükle dosyanı benim yarım saatim var çıkmama bi göz atarım

 

[gedavet]

teşekkür edrim siz 2 sayfalık bir örnek yapıverebilirmisiniz ben ona göre çoğaltayım
liste oluştur özelliğini kullandım için işlemler ona göre oluyor

 

[musty98]

9.mesajdaki örnek işte öyle ayarladım ben onu

 

[gedavet]

musty98 bey sizin dediğinisi anladım ancak benim kullandığım çalışma 7 mesajdaki gibi sayfalrı belielyemiyorum çünkü liste yazdıkça çoğalıp gidiyor buna göre yapmak istiyorum

 

[muygun]

Merhaba;
Alternatif.
A sütununda (A4) otomatik süz ile 1,2,3,4... gibi seçip yazdırmayı deneyin.
Not:A sütunundaki formülü gerektiği kadar çoğaltın. (ben 1000.satıra kadar formülledim.) Daha sonra bittiği yerden sonraki iki satıra sayfa toplamı ve genel toplam satırını ve formüllerini oluşturup A sütununun yazı rengini beyaz yaparak görüntü sorununu da halledersiniz.
İyi çalışmalar.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?
sayfayı yazdırmadan önce sayfa düzeni ayarlarını yapmalısınız.
bu örnekte her sayfada 30 satır görüldüğü için kod bu şekilde düzenlenmiştir.
alt-üst bilgi için kullanılmayan yerleri silebilir veya başka şeyler yazabilirsiniz.

Sub AktifSayfayıYazdır()
    Dim AraToplam As Long
    Dim GenelToplam As Long
ss = Cells(65536, 8).End(3).Row
gtop1 = Cells(2, 8).Address
gtop2 = Cells(ss, 8).Address
GenelToplam = Application.WorksheetFunction.Sum(Range(gtop1 & ":" & gtop2))
    For i = 2 To ss Step 30
        j = j + 1
    atop1 = Cells(i, 8).Address
    atop2 = Cells(i + 29, 8).Address
    AraToplam = Application.WorksheetFunction.Sum(Range(atop1 & ":" & atop2))
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Sayfa Toplamı :" & AraToplam & " / " & "Genel Toplam :" & GenelToplam
        .RightFooter = ""
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=j, To:=j, Copies:=1
Next
ActiveSheet.PageSetup.CenterFooter = ""
End Sub

not:
syn hamitcan'a makronun yazılmasındaki katkılarından dolayı teşekkür ederim.

 

[gedavet]

süleyman bey ilginiz için teşekkür ederim ancak ben bu şekilde bir çalışma değilde liste oluştur öxelliği ile nekadar aralık olaca belli değil çünkü buna göre çözümü varmı sağ kılip yapıp bir liste oluşturdum uzayıp gidiyor yazdır dediğim zaman örnek 10 sayfa ya sığıyor diyelim toplamı sonda oluyor sayfa altlarında sayfa toplamı otomatik yapılırmı veya makro ile bunu istiyorum

 

[uzmanamele]

merhaba

syn mustafakoza,
istediğiniz durum örnek dosyada kısmen var. her sayfa için sayfa toplamını alt bilgi olarak görebilirsiniz.
normal şekilde bu isteğiniz olmaz. bunun için makro yazılabilir ama bu çözümün işinize pek yarayacağını sanmıyorum.
mesela şöyle olabilir; yazdır dediğinizde tüm sayfayı alır, 25-30 satırlık çıktı ayarlar, her sayfanın altına bir satırı ilave eder, ara toplamları alır, yazma işlemi bitince eklenen satırları silerek eski haline getirir.
teorik olarak istediğiniz bu şekilde mümkün ancak bu nerdeyse bir program yazmak gibi.
açıkcası bununla vakit harcamayı hiç istemem.

 

[gedavet]

SÜLEYMAN BE Y TEŞEKKÜR EDERİM DEDİĞİNİZGİBİ İSTEDİĞİM yazdır dediğinizde tüm sayfayı alır, 25-30 satırlık çıktı ayarlar, her sayfanın altına bir satırı ilave eder, ara toplamları alır, yazma işlemi bitince eklenen satırları silerek eski haline getirir.
MNATIK OLARAK BU ÇOK SOR SA NE YAPALIM MUYGIUN BEY SİZEDE TEKKÜR EDERİM BİRAZ ÇÖZÜM OLMUŞ ANCAK BUDA AYARLAMASI UĞRAŞTIRIYOR VEYA YANLIŞ YAPILBİLİR BELİRLİ BİR YERDE KISITLANIYOR BUNU OTOMATİK NASIL OLUR BİLMİYORUM