Listbox kolon toplamı

Katılım
13 Ocak 2010
Mesajlar
46
Excel Vers. ve Dili
Office2007
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Deneyiniz:cool:
Kod:
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")
 
Katılım
13 Ocak 2010
Mesajlar
46
Excel Vers. ve Dili
Office2007
Sayın Evren Gizlen
Mükemmel, isteğim olay budur. Yardımınız için teşekkür ederim.
 
Katılım
26 Eylül 2020
Mesajlar
171
Excel Vers. ve Dili
excel 2019 pro.Türkçe
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.
 

Ekli dosyalar

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
İki tarih arasında toplam mı almak istiyorsunuz.
 
Katılım
26 Eylül 2020
Mesajlar
171
Excel Vers. ve Dili
excel 2019 pro.Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Ben sadece satış kısmını toplattım.
Deneyebilir misiniz.

Kod:
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
 
Katılım
26 Eylül 2020
Mesajlar
171
Excel Vers. ve Dili
excel 2019 pro.Türkçe
Tamam uyarladım oldu.Çok teşekkür ederim.
 
Üst