İsme Göre Toplama

[nisyan]

Arkadaşlar bir excel tablosunda isim ve borç alacak bilgilerini tutuyorum. Fakat bu çalışma kitabına hergün yeni isimler girebiliyor. Sabit isimler yok yani tabloda. Filtre ile filtrelediğimde filtreleme yaptığım ismin borç ve alacak toplamını nasıl gösterebilirim.

Sürekli güncellenen bir dosya dediğim gibi sabit bir değer ya da isim yok.

 

[ytustatistics]

topla.çarpım

=topla.çarpım((A2:A20=A2)*(B2:B20))

bu formülü kullanın

 

[dawidoff]

=alttoplam(9;b2:b13)

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
TextBox2 = ""
TextBox3 = ""
ListBox1.Clear
ListBox1.ColumnCount = 3
For sut = 2 To [a65536].End(3).Row
If Range("a" & sut) Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("a" & sut)
ListBox1.List(s, 1) = Range("b" & sut)
ListBox1.List(s, 2) = Range("c" & sut)
TextBox2 = Val(TextBox2) + ListBox1.List(s, 1)
TextBox3 = Val(TextBox3) + ListBox1.List(s, 2)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[nisyan]

teşekkür ederim.