Lisbox daki değerleri toplama

[Excelmy]

Ekte bulunan dosyada açıklamaya çalıştım ancak kısaca Listbox da bulunan verilerin toplamını textbox da nasıl alabiliriz.

Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda hiç veri yok. En azından tablo formatınızı gönderirseniz ve verileri ListBox nesnesine nasıl aldığınızı yazarsanız yardım almanız dahada kolay olacaktır.

 

[Excelmy]

Listbox daki kolonların alt toplamı

Sayın Korhan AYHAN,

Dosya ektedir. Teşekkür ederim

 

[Orion1]

Dosyanız ektedir.

For sat = 6 To Cells(65536, "a").End(xlUp).Row
ListBox3.AddItem
ListBox3.List(S, 0) = Cells(sat, "a")
ListBox3.List(S, 1) = Cells(sat, "c")
ListBox3.List(S, 2) = Cells(sat, "d")
ListBox3.List(S, 3) = Cells(sat, "e")
ListBox3.List(S, 4) = Cells(sat, "f")
S = S + 1
Next
[B][COLOR="Red"]TextBox12.Text = Format(WorksheetFunction.Sum(Range("D6:D" & sat - 1)), "#,##0.00")
TextBox13.Text = Format(WorksheetFunction.Sum(Range("E6:E" & sat - 1)), "#,##0.00")
TextBox14.Text = Format(WorksheetFunction.Sum(Range("F6:F" & sat - 1)), "#,##0.00")[/COLOR][/B]