Otomatik süzde toplam alma

[Mahmut Bayram]

5 sütunlu otomatik süzlü tablom var. Mesela 1. sütunu süzdüğüm zaman altta süzülmüş halinin toplamını verecek.
Kolay Gelsin.

 

[Haluk]

subtotal - alttoplam fonksiyonunu kullanacaksınız.

 

[VisualBasic]

Günler Rakamlar1 Rakamlar2 Rakamlar3 Rakamlar4
Pazartesi 100,00 1.000,00 10.000,00 10.000,00
Salı 100,00 1.000,00 10.000,00 10.000,00
Çarşamba 100,00 1.000,00 10.000,00 10.000,00
Perşembe 100,00 1.000,00 10.000,00 10.000,00
Cuma 200,00 1.000,00 10.000,00 10.000,00
Cumartesi 100,00 1.000,00 10.000,00 10.000,00
Pazar 100,00 1.000,00 10.000,00 10.000,00
Pazartesi 100,00 1.000,00 10.000,00 10.000,00
Salı 100,00 1.000,00 10.000,00 10.000,00
Çarşamba 100,00 1.000,00 10.000,00 10.000,00
Perşembe 100,00 1.000,00 10.000,00 10.000,00
Cuma 200,00 1.000,00 10.000,00 10.000,00
Cumartesi 100,00 1.000,00 10.000,00 10.000,00
Pazar 100,00 1.000,00 10.000,00 10.000,00
Pazartesi 100,00 1.000,00 10.000,00 10.000,00

Verileniz bunlar olsun.

Sub SuzuleniTopla()
  Dim say As Long
  say = WorksheetFunction.CountA(Range("A:A")) + 2
  Range("A1:E" & [A65536].End(3).Row).AutoFilter Field:=1, Criteria1:="Cuma"
  MsgBox WorksheetFunction.Sum(Range("B1:B1000").SpecialCells(12))
End Sub

Hem süzme hem toplama işlemi aynı anda gerçekleşir. AltToplam işlevi size daha çok yardımcı olacaktır.

Sub SuzuleniAltTopla()
    Cells.RemoveSubtotal
    Range("A1:E" & [A65536].End(3).Row).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5)
    Cells.Columns.AutoFit
End Sub

Sub SuzuleniAltToplaIptal()
    Cells.RemoveSubtotal
    Cells.Columns.AutoFit
End Sub

 

[Haluk]

Suleyman bey;

Soruyu soran kişi, soruyu "Fonksiyonlar" bölümüne sorduğuna göre belli ki fonksiyon ile cevap arıyor.

Ã?zellikle VBA ile çözüm istese, zaten belirtirdi.

Yardımcı olmak istyorsanız, fonksiyonla çözülmüş örnek bir dosya eklersiniz mesajınıza, daha iyi olur.

 

[TRABLUS]

Sayın VisualBasic,
Arkadaşımız burada fonksiyon sormuş. En azından sorusunu o bölüme yazmış.

 

[TRABLUS]

Tarih: Pts Hzr 27, 2005 11:06

@raider :bravo:

 

[VisualBasic]

Excel Menüsünden Veri Alttoplamlar komutunu kullanabilirsiniz.

Dildeğiniz sütunların toplamının alınabilmesi için Alttoplamlar paletinden işaretlemelisiniz.

 

[hasanozbek]

alttoplam

sütünların üstüne bir satır ekleyin, örnek a1 hücresine =alttoplam(9;a2:a5000) formülünü yazın (türkçe) =subtotal(9;a2:a5000) gibi
süzülenleri toplandığını göreceksiniz
kolay gelsin

 

[Mahmut Bayram]

Herkese teşekkürler. Ã?ğrenmenin sınırı yok buradan o anlaşılıyor.