Listbox kolon toplamı

Katılım
13 Ocak 2010
Mesajlar
47
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
21,973
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
47
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.
 

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
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_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,361
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
İki tarih arasında toplam mı almak istiyorsunuz.
 

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
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_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,361
Excel Vers. ve Dili
OFİS 2013 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
 

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
Excel Vers. ve Dili
excel 2019 pro.Türkçe
Tamam uyarladım oldu.Çok teşekkür ederim.
 
Üst