call topla
' bu kodu metin kutusunun olay yordamına kopyalayınız, değiştiğinde,yada güncelleme sonrası olay yordamına koyabilirsiniz,
liste11'yazan yere listbox'ın adını yaz,
toplamını alacağın alan liste kutusunda hangi sütun ise.... 8 yazan yere onu yazınız.
me.toplam' olan metin kutusuda toplamı yazdıracağın alan.
olacağını düşünüyorum, bi deneyin,
saygılar.
Private Sub topla()
Dim Sw As Long, Sonuc As Double
For Sw = 1 To Me.Liste11.ListCount - 1
Sonuc = Sonuc + Nz(CDbl(Me.Liste11.Column(8, Sw)), 0)
Next Sw
Me.toplam = Sonuc
End Sub