Kod:
Private Sub Komut4_Click()
Dim i, say, toplam As Integer
Dim toplamm As Variant
say = Me.Liste0.ListCount
for i = 0 To say - 1
toplam = toplam + Me.Liste0.Column(3, i)
Next
Me.Metin2.Value = toplam
End Sub
#4
Hallettim... kodu bu şekilde değiştirin işlem tamam olacaktır. ozaman seçmeye gerek kalmıyor. kolay gelsin...
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
