Listboxda filtreli toplama problemi

[byfika]

Merhabalar, listboxda filtre yapılınca hatalı toplama yapmakta, detaylı açıklama örnek dosyanın içinde yazılı.
Bilgi için şimdiden teşekkürler

 

[systran]

t1 değişkeni sırasıyla
12
1224
2458
değerlerini alıyor.
Sizin toplameder ifadesi ile yapmak istediğiniz şey sanırım burada olayı karıştırıyor.

t1 = CDbl(Replace(Replace(IIf(ListBox1.List(i, 7) = Empty, 0, ListBox1.List(i, 7)), ".", ""), " TL", "")) + CDbl(Replace(t1, ".", ""))

burayı biraz daha dikkatli inceleyin.
Hatta bu kadar uzun ifadeyi tek satırda yazmadan, parçalara ayırıp adım adım takip ederseniz hatayı yakalaması daha kolay olacaktır.
a=Listbox1.List(i,7)
b=Replace(a, "x" , "y")
c=Cdbl(b) gibi.

 

[byfika]

Bilgi için teşekkürler, yazdığınız gibi yapmaya çalışacağım.
Saygılar...

 

[byfika]

Aşağıdaki kodlama ile problemi çözdüm.
İhtiyaç duyan arkadaşlara yardımcı olması amacıyla siteye yüklüyorum.

Private Sub CommandButton8_Click()
Dim i As Long
Dim toplam As Double
Dim sutunIndex As Integer
sutunIndex = 7
toplam = 0
For i = 0 To ListBox1.ListCount - 1
If IsNumeric(ListBox1.List(i, sutunIndex)) Then
toplam = toplam + CDbl(ListBox1.List(i, sutunIndex))
End If
Next i
TextBox17.Value = Format(toplam, "#,##0.00")
End Sub