Listboxta toplama islemi

[mraltin]

Arkadaslar mrb.
Userform uzerinde bir listbozim var ve bu listboza veriler sorulama ile geliyor.benim istedigim sorgulama sonucu listboxin ikinci kolunundaki verilerin toplamini alabilirmiyim.
Bunu sorguyu(Rowsource)sayfa uzerinde yapip forma yansitmayi dusundum ama yapamadim.
listbox uzerinde istedigimiz kolonun toplamini alabilirmiyiz.

 

[xxrt]

Userformun üzerine
Label1
CommandButton1
ListBox1 ekliyerek,Listbox1.RowSource özelliğine
Sayfa1!A1:B3
yazarak Sayfa1'in A ve B sütunlarına ait verileri ListBoxa alıyoruz.
ListBox1'in ColumCount özelliğini 2 yaptıktan sonra;

[vb:1:5e51b855e0]Private Sub CommandButton1_Click()
On Error Resume Next
Label1.Caption = ""
For i = 0 To ListBox1.ListCount - 1
a = a + ListBox1.List(i, 1) '1 rakamı B Sütunu için
Next i
Label1.Caption = Format(a, "##,###.00")
End Sub[/vb:1:5e51b855e0]Kodlarını CommandButton1'e yazıyoruz.

 

[mraltin]

Sn.xxrt verdiginiz kodlari formuma ekledim calisiyor fakat soyle bir sorun var;
veritabanindan tutarlari degistirmeme ve listboxtaki degerde degismesine ragmen(ornegin Listboxin 2.sutununda 20 ve 30 olmasina ragmen label.caption degeri degismiyor.ilk yazdigi deger surekli kaliyor.(degerler degissede label tutari degismiyor)

 

[mraltin]

Sn.xxrt tesekkurler
a = a + ListBox1.List(i, 1) '1 rakamı B Sütunu için
kodunda hata yapmisim simdi farkina vardim
Tekrar tsk