
Sub topla()
Dim i, t As Long
Dim ElkTopla As Long
For i = 1 To Me.ListView1.ListItems.Count
ElkTopla = ElkTopla + Me.ListView1.ListItems(i).SubItems(6)
Next
Me.txtELEKTARATOP = ElkTopla
End Sub
smile da burda çok farklı çıktı. tekrar teşekkürler
Bu Konudaki Yorumlar |
Maliyet Analiz Programı hakk. - Yazar: aktasersin - 20/03/2013, 10:25
Cvp: Maliyet Analiz Programı hakk. - Yazar: aktasersin - 21/03/2013, 14:23
Cvp: Maliyet Analiz Programı hakk. - Yazar: memox - 01/04/2013, 15:43
Cvp: Maliyet Analiz Programı hakk. - Yazar: aktasersin - 01/04/2013, 16:27
|