Listview'de sutunlararası işlem

[seddur]

Merhaba.Ekran alıntısında görünen Listview1'in 3.sutununda SATIŞ yazan 2.sutundaki tutardan 3.sutunda TAKSİT yazan 2. sutundaki tutarlar çıkarılarak bakiye textbox1'e yazdırılmak istenmektedir.Örnek vermek gerekirse 100.000 TL - 25.000 TL - 20.000 TL olarak işlem yaptırılacak.Yardımcı olacak arkadaşa teşekkür ediyorum.

 

[seddur]

Aşağıdaki kodu yazdım ama çalışmadı hata da vermedi.
Private Sub CommandButton2_Click()
If ComboBox1.Value = "BAKİYE" Then
For c = 1 To Tahsilat.Tahsilat1.ListItems.Count
If Tahsilat.Tahsilat1.ListItems(c).SubItems(0) = ComboBox4 Then
topla = topla + Val(Tahsilat.Tahsilat1.ListItems(c).ListSubItems(2))
Tahsilat.TextBox1.Text = topla - Tahsilat1.ListItems(c).SubItems(2) & Tahsilat1.ListItems(c).SubItems(3) & "SATIŞ"
End If
Next
End If

 

[seddur]

Aşağıdaki kod ile sorunu çözdüm.Arşiv için paylaşıyorum.(Tahsilat = userform Tahsilat1 = Listview adı)
If ComboBox1.Value = "BAKİYE" Then
For c = 1 To Tahsilat.Tahsilat1.ListItems.Count
If Tahsilat.Tahsilat1.ListItems(c).SubItems(3) = "TAKSİT" Then
topla = topla + Val(Tahsilat.Tahsilat1.ListItems(c).ListSubItems(2))
End If
Next
End If