Listview üzerinden toplam alma.

[unalh]

S.a Arkadaşlar,


Sitede birkaç örnek buldum fakat çok karışık.

Yapmaya çalıştığım şey Hesap adı veya Hesap no'da arama yaptığım zaman listview de listelenen verilerin toplam tutarını almak (TextBox15)

İlginize teşekkür ederim.
Hayırlı Cumalar.

 

[halit3]

bunları denermisiniz.

Private Sub ARAMA_Change()
ListView1.ListItems.Clear
On Error Resume Next
b = UCase(Replace(Replace(ARAMA, "ı", "I"), "i", "İ"))
For i = 2 To [B65536].End(xlUp).Row
If UCase(Replace(Replace(Sheets("Ödendi").Cells(i, 2).Value, "ı", "I"), "i", "İ")) _
Like "" & b & "*" Then
Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
Liste.SubItems(1) = Cells(i, 1).Value
Liste.SubItems(2) = Cells(i, 2).Value
Liste.SubItems(3) = Cells(i, 3).Value
Liste.SubItems(4) = Cells(i, 4).Value
Liste.SubItems(5) = Cells(i, 5).Value
Liste.SubItems(6) = Cells(i, 6).Value
Liste.SubItems(7) = Cells(i, 7).Value
Liste.SubItems(8) = Cells(i, 8).Value
Liste.SubItems(9) = Cells(i, 9).Value
Liste.SubItems(10) = Cells(i, 10).Value
Liste.SubItems(11) = Cells(i, 11).Value
Liste.SubItems(12) = Cells(i, 12).Value
Liste.SubItems(13) = Cells(i, 13).Value
Liste.SubItems(14) = Cells(i, 14).Value
toplam = toplam + CDbl(Cells(i, 10).Value)
say = say + 1
End If
Label21 = say & " Adet Çek Listelendi..."
Next i
TextBox15.Text = toplam
End Sub

Private Sub ARAMA1_Change()
ListView1.ListItems.Clear
On Error Resume Next
b = UCase(Replace(Replace(ARAMA1, "ı", "I"), "i", "İ"))
For i = 2 To [B65536].End(xlUp).Row
If UCase(Replace(Replace(Sheets("Ödendi").Cells(i, 3).Value, "ı", "I"), "i", "İ")) _
Like "" & b & "*" Then
Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
Liste.SubItems(1) = Cells(i, 1).Value
Liste.SubItems(2) = Cells(i, 2).Value
Liste.SubItems(3) = Cells(i, 3).Value
Liste.SubItems(4) = Cells(i, 4).Value
Liste.SubItems(5) = Cells(i, 5).Value
Liste.SubItems(6) = Cells(i, 6).Value
Liste.SubItems(7) = Cells(i, 7).Value
Liste.SubItems(8) = Cells(i, 8).Value
Liste.SubItems(9) = Cells(i, 9).Value
Liste.SubItems(10) = Cells(i, 10).Value
Liste.SubItems(11) = Cells(i, 11).Value
Liste.SubItems(12) = Cells(i, 12).Value
Liste.SubItems(13) = Cells(i, 13).Value
Liste.SubItems(14) = Cells(i, 14).Value
toplam = toplam + CDbl(Cells(i, 10).Value)
say = say + 1
Label21 = say & " Adet Çek Listelendi..."
End If
Next i
TextBox15.Text = toplam
End Sub

 

[Terkanli]

Merhaba unalh,
Dosyanız ekte
Userformunda bir iki düzeltme yaptım rakamları sağa yasladım, listview de tutarlarda krş görünmesini sağladım. toplam ları textbox15 e alıyor.
kolay gelsin.
Tansu

 

[unalh]

Halit ve Terkanlı,

Cavaplarınız ve ilgiz için teşekkür ederim.

Hayırlı işler.