Alt Toplam almak Makro İle

[HD1975]

Merhab ;

Kullandığım sayfada,H sütununda bulunan alacak listesinin toplamına ihtiyacım var yalnız bir koşul gerekiyor .

E sütununda Alacak ve Borç yazıyor.

E sütununa bakacak alacak yazanların h sütunundaki satırların alttoplamını
verece,yine aynı şekilde borç yazanlarında h sütunundaki satırların altoplamını verecek.

Alttoplam olması gerekiyor,çünkü otomatik filtre kullanıyorum....

Yalnız bunu formül olarak kullanıyorum,benim istediğim makro ile yapabilmek.

Mümkünmüdür acaba ?

Saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub alttoplam()
Dim son, sat As Integer
son = Cells(65536, "e").End(xlUp).Row
Cells(son + 1, "h") = Empty: Cells(son + 2, "h") = Empty
    For sat = 1 To Cells(65536, "h").End(xlUp).Row
        If Cells(sat, "e") = "ALACAK" Then
            Cells(son + 1, "h") = Cells(son + 1, "h") + Cells(sat, "h")
        End If
        If Cells(sat, "e") = "BORÇ" Then
            Cells(son + 2, "h") = Cells(son + 2, "h") + Cells(sat, "h")
        End If
    Next
    Cells(son + 1, "h") = "ALACAK " & Cells(son + 1, "h")
    Cells(son + 2, "h") = "BORÇ " & Cells(son + 2, "h")
End Sub

 

[HD1975]

Teşekkür Ederim ;

Yalnız bu filtreyi dikkate almadan tüm toplamı veriyor.
Biz ayrıca otomatik filtre kullandığımız için filtrelenmiş alanın toplamına
ihtiyacımız var.