listbox a eklenen degerleri toplamak.

[mtozer]

Listbox a textboxdaki degerleri alt alta ekledim. Ancak toplatamiyorum. Bununla ilgili kod nedir. Yardimci olurmusunuz.

 

[vardar07]

Linkteki konuyu inceleyiniz.
http://www.excel.web.tr/f48/listboxta-tutary-toplama-t115864.html

 

[mtozer]

Bunuda denedim ama olmadi. Daha sade bir kod var mi. Sadece listbox taki kodu textbox a toplayabilecek.

 

[mtozer]

For i20 = 1 To ListBox1.ListCount
If IsNumeric(i) Then
aaa = aaa + ListBox1.Column(8, i)
End If
Next i20

TextBox19.Text = ListBox1.ListCount

Bu kodu ekledim. Sayıların toplamını değil, sayı adetini gösteriyor.