Listbox Sutunlarını Toplamak

[BYSERTTAS]

Selamlar...
Arkadaşlar aşağıdaki kod ile Listbox Sutununun toplamını alıyorum. yalnız tek bir sutunu topluyor benim yapmak istediğim ise tüm sutunları toplayıp ilgili textboxsa yazdırmak. Yani ListBox1 in 6,7,8.9 sutunlarının alt toplamlarını ,Textbox6,Textbox7,Textbox8,Textbox9 Textlerine yazmak istiyorum.
Yardımcı olursanız sevinirim. Şimdi den Teşekkürler

Dim X As Long, Topla As Double

For X = 0 To ListBox1.ListCount - 1
If ListBox1.List(X, 6) <> "" Then
Topla = Topla + ListBox1.List(X, 6)
End If
Next
Tb_GtopHazıne = Format(Topla, "Currency")

 

[Muzaffer Ali]

Merhaba.

    Dim Bak As Integer
    For Bak = 0 To ListBox1.ListCount - 1
        TextBox6.Text = Val(TextBox6.Value) + ListBox1.List(Bak, 6)
        TextBox7.Text = Val(TextBox7.Value) + ListBox1.List(Bak, 7)
        TextBox8.Text = Val(TextBox8.Value) + ListBox1.List(Bak, 8)
        TextBox9.Text = Val(TextBox9.Value) + ListBox1.List(Bak, 9)
    Next

 

[BYSERTTAS]

Merhaba.

    Dim Bak As Integer
    For Bak = 0 To ListBox1.ListCount - 1
        TextBox6.Text = Val(TextBox6.Value) + ListBox1.List(Bak, 6)
        TextBox7.Text = Val(TextBox7.Value) + ListBox1.List(Bak, 7)
        TextBox8.Text = Val(TextBox8.Value) + ListBox1.List(Bak, 8)
        TextBox9.Text = Val(TextBox9.Value) + ListBox1.List(Bak, 9)
    Next

 

[BYSERTTAS]

Hocam öncelikle teşekkür ederim. ellerinize emeğinize sağlık.
Ancak Toplama yapacağım rakamlar küsüratlı yanı 14,25 gibi val tam sayıları topluyor dolayısıyla hatalı sonuç veriyor.
Listede aşağıdaki kayıtları olduğun var sayarasak( Sadece 1 TextBox için Örnek verdim.Tüm textboxlar bu şekilde olmalı)
1.000,00
14,25
45,03
75,12
350,33

Sonucun= 1.484,73 bu şekilde olması gerekiyor.
Düzeltme yapmanızı istirham ediyorum.

 

[Muzaffer Ali]

Deneyiniz.

Private Sub ListTopla()
    Dim Bak As Integer
    Dim sy As Double
    For Bak = 0 To ListBox1.ListCount - 1
        TextBox6.Text = Topla(TextBox6.Text, ListBox1.List(Bak, 6))
        TextBox7.Text = Topla(TextBox7.Text, ListBox1.List(Bak, 7))
        TextBox8.Text = Topla(TextBox8.Text, ListBox1.List(Bak, 8))
        TextBox9.Text = Topla(TextBox9.Text, ListBox1.List(Bak, 9))
    Next
End Sub

Function Topla(txt As String, lst As String) As Double
    Topla = Format(Val(Replace(txt, ",", ".")) + Val(Replace(lst, ",", ".")), "#.##")
End Function

 

[BYSERTTAS]

Teşekkürler hocam. Allah razı olsun deneyeceğim.