listbox sütun toplamı alma

[tlgtrn]

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
ListBox1.ColumnCount = 4
ListBox1.RowSource = "sayfa1!a4:d" & s1.[a65536].End(3).Row
Label1.Caption = Date & " itibari ile stok durumu :"
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "25;60;60;70"



For i = 1 To ListBox1.ListCount
toplam = ListBox1.ListIndex(i) + toplam '(burası nasıl olacak??)
Label2.Caption = toplam
Next


End Sub

arkadaşlar bu kodu tamamlayamadım, yardım edebilir misiniz.. istediğim şu;
listboxdaki 4.sütunun toplamını alttaki labelda göstermek istiyorum..

 

[veyselemre]

[vb:1:ab0f2301bc]Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
ListBox1.ColumnCount = 4
ListBox1.RowSource = "sayfa1!a4:d" & s1.[a65536].End(3).Row
Label1.Caption = Date & " itibari ile stok durumu :"
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "25;60;60;70"

toplam = 0

For i = 0 To ListBox1.ListCount - 1
toplam = ListBox1.List(i, 3) + toplam
Next
Label2.Caption = toplam

End Sub[/vb:1:ab0f2301bc]

 

[tlgtrn]

hocam süpersin, tabiki hızından dolayı.. yoksa bu kod senin için çocuk oyuncağı farkındayım.. teşekkür ederim.. :bravo:

birşey daha sorabilir miyim? formuma checkbox koymak istiyorum, işaretlenince listbox1 de bütün datayı göstersin,
işaretlenmeyince yine listbox1 de 4.sütunda sıfır olanları gizlesin.. ve formu açınca default olarakda işaretsiz olarak çıksın..
yardım edebilir misin??