Listbox kolon toplamı

[Excelexcellent]

Merhaba
Userformda 5 kolondan oluşan listbox'un 5. kolonunda alt alta bulunan rakamların toplamını Textboxta görmek istiyorum. Aşağıdaki kodu uygulamaya çalıştım ama olmadı. Hata nerede yardımcı olabilirmisiniz.
Teşekkür ederim.


Private sub CommandButton1.click()
toplam = 0
For i = 5 To ListBox1.ListCount
toplam = toplam + Val(ListBox1.List(i - 5))
Next i
TextBox2 = toplam

 

[Orion1]

Deneyiniz

toplam = 0
For i = 0 To ListBox1.ListCount-1
toplam = toplam + cdbl(ListBox1.List(i,listbox1.columncount-1))
Next i
TextBox2 = format(toplam,"#,##0.00")

 

[Excelexcellent]

Sayın Evren Gizlen
Mükemmel, isteğim olay budur. Yardımınız için teşekkür ederim.

 

[Orion1]

Sayın Evren Gizlen
Mükemmel, isteğim olay budur. Yardımınız için teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[fehdur]

Sayın orion1 merhaba!Listboxda toplama yapmaya çalışıyorum.Geçmişte yazdığınız bir kod dikkatimi çekti-zaten bu konuda fazla kod da yok- kendi dosyama uyarlama yaptım ama çalıştıramadım..Acaba dosyaya bakıp yardımcı olabilir misiniz?.Teşekkür ediyorum.

 

[Erdem Akdemir]

İki tarih arasında toplam mı almak istiyorsunuz.

 

[fehdur]

listbox'a gelen verilerin tümü toplanacak.(yani iki tarih arasında)Ama iki kolonda rakam var.yani ikinci kolonu ben yaparım diye belirtmedim.

 

[Erdem Akdemir]

Ben sadece satış kısmını toplattım.
Deneyebilir misiniz.

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select sum(SATIŞ) from[sayfa5$] where [SÖZ#TARİHİ] between " & CLng(CDate(TextBox1.Value)) & " and " & CLng(CDate(TextBox2.Value)) & " "
Set rs = con.Execute(sorgu)

TextBox3.Value = Format(rs.Fields.Item(0).Value, "#,##0.00")

rs.Close
Set rs = Nothing
Set con = Nothing

 

[fehdur]

Tamam uyarladım oldu.Çok teşekkür ederim.