Listview sutun toplama

[kemal turan]

MERHABA,
Aşağıdaki kod ile listview 11 nci sutunun toplamını textbox3 e toplamını aldırmak istiyorum.
kodun bold olan kısmında hata veriyor.
teşekkür ederim.
Private Sub CommandButton5_Click()
Toplam
End Sub
Private Sub Toplam()
Dim Toplam As Long

Dim i As Integer
With ListView01
For i = 1 To .ListItems.Count - 1
If IsNumeric(.ListItems(i).SubItems(11)) Then
Toplam = Toplam + .ListItems(i).SubItems(11) * 1

End If
Next i
End With
ListView01.ListItems.Add
ListView01.ListItems(iCount).SubItems(11) = Toplam
TextBox3.Value = Toplam
End Sub

 

[Muzaffer Ali]

Merhaba.
Hata mesajında ne yazıyor?

 

[Haluk]

Ufak bir örnek yaptım.... UserForm üzerinde 1 adet Listview, 1 adet TextBox, 1 adet CommandButton var.

Private Sub UserForm_Initialize()
    Me.ListView1.View = lvwReport
    
    Me.ListView1.ColumnHeaders.Add , , "İsim", ListView1.Width / 2
    Me.ListView1.ColumnHeaders.Add , , "Alacak", ListView1.Width / 2.1

    With Me.ListView1.ListItems
        .Add , , "Ali"
        .Add , , "Ahmet"
        .Add , , "Mehmet"
    End With

    Me.ListView1.ListItems(1).SubItems(1) = 100
    Me.ListView1.ListItems(2).SubItems(1) = 200
    Me.ListView1.ListItems(3).SubItems(1) = 600
End Sub
'
Private Sub CommandButton1_Click()
    Dim mySum As Double
    For i = 1 To ListView1.ListItems.Count
        mySum = mySum + ListView1.ListItems(i).SubItems(1)
    Next
    TextBox1 = FormatCurrency(mySum)
End Sub

Not: Ayrıca sizin kodunuzda "Toplam" ifadesi hem prosedür adı, hem de değişken adı olarak kullanılmış. Bunlardan birini değiştirin....


.

 

[Mahmut Bayram]

Deneyiniz.

Private Sub CommandButton5_Click()
Dim i As Integer
Dim Toplam As Double
 
    For i = 1 To ListView1.ListItems.Count
        Toplam = Toplam + ListView1.ListItems(i).SubItems(10)
    Next
    TextBox3.Text = Val(Toplam)
End Sub

 

[kemal turan]

Deneyiniz.

Private Sub CommandButton5_Click()
Dim i As Integer
Dim Toplam As Double

    For i = 1 To ListView1.ListItems.Count
        Toplam = Toplam + ListView1.ListItems(i).SubItems(10)
    Next
    TextBox3.Text = Val(Toplam)
End Sub

merhabalar,
Ustalarımıza teşekkür ediyorum.
Selametle kalınız