- Katılım
- 20 Aralık 2023
- Mesajlar
- 4
- Excel Vers. ve Dili
- 16
Arkadaşlar 2 adet listbox var verileri çekiyorum ama toplama yaparken sıkıntı çıkıyor
Kod:
lst2.Clear
Label5.Caption = lstdata.List(lstdata.ListIndex)
For a = 0 To lstdata.ListCount - 1
lstdata.Selected(a) = False
If lstdata.List(a) = Label5.Caption Then
lstdata.Selected(a) = True
lst2.AddItem lstdata.List(a)
lst2.List(lst2.ListCount - 1, 2) = lstdata.List(a, 2)
lst2.List(lst2.ListCount - 1, 3) = lstdata.List(a, 3)
lst2.List(lst2.ListCount - 1, 4) = lstdata.List(a, 4)
toplam1 = toplam1 + lstdata.List(a, 4)
toplam2 = Format(toplam2 + lstdata.List(a, 4), "#,#00")
End If
Next
lst2.AddItem ""
lst2.List(lst2.ListCount - 1, 1) = "TOPLAM"
lst2.List(lst2.ListCount - 1, 4) = toplam2