listview de sütundaki değrlerin toplamını aldırmak

[udentr2002]

merhaba arkadaşlar,

Aşağıda ki kod ile Listview nesnesinde süzme yapıyorum

Private Sub CommandButton6_Click()
Sheets("Veri").Activate
 Set SR = Sheets("Veri")
    ListView3.ListItems.Clear
    ALAN = IIf(ComboBox7 = "", Range("A3:A" & [a65536].End(3).Row).Address, Range("A1:A" & [a65536].End(3).Row).Address)
    Set bul = Range(ALAN).Find(ComboBox7 & "*", LookAt:=xlWhole)
    If Not bul Is Nothing Then
    Adres = bul.Address
    Do
    satır = bul.Row
    With ListView3
    .ListItems.Add , , SR.Cells(satır, 1)
    x = x + 1
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 2)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 3)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 4)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 5)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 6)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 7)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 8)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 9)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 10)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 11)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 12)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 13)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 14)
    SAY = SAY + 1
    End With
    
    
    Set bul = Range(ALAN).FindNext(bul)
    Loop While Not bul Is Nothing And bul.Address <> Adres
    End If
  
    Set SR = Nothing
    Set ALAN = Nothing
    Set bul = Nothing
     
    ComboBox8 = ""
ComboBox9 = ""
End Sub

Burdan sonra bana lazım olan 10. satırdaki listview nesnesine gelen sayıların toplamını aldırıp bir textboxa yazırmak.

Bunun için yardımlarınızı rica ediyorum.

SAYGILARIMLA

 

[udentr2002]

Bu konu hakkında yardımlarınızı rica ederim.

Saygılarımla

 

[halit3]

Bu konu hakkında yardımlarınızı rica ederim.

Saygılarımla

Ben genelde örnek dosya olmayınca bu konulara bakmıyorum gereksiz yere bir sürü mesaj yazmak zorunda kalıyoruz.

Anladığım kadarı ile bir defalık cevap yazıyorum kırmızı yerleri ekledim.

Private Sub CommandButton6_Click()
Sheets("Veri").Activate
 Set SR = Sheets("Veri")
    ListView3.ListItems.Clear
    ALAN = IIf(ComboBox7 = "", Range("A3:A" & [a65536].End(3).Row).Address, Range("A1:A" & [a65536].End(3).Row).Address)
    Set bul = Range(ALAN).Find(ComboBox7 & "*", LookAt:=xlWhole)
    If Not bul Is Nothing Then
    Adres = bul.Address
    Do
    satır = bul.Row
    With ListView3
    .ListItems.Add , , SR.Cells(satır, 1)
    x = x + 1
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 2)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 3)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 4)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 5)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 6)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 7)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 8)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 9)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 10)
   [COLOR=red] deg = deg + CDbl(SR.Cells(satır, 10))
[/COLOR]    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 11)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 12)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 13)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 14)
    SAY = SAY + 1
    End With
    
    
    Set bul = Range(ALAN).FindNext(bul)
    Loop While Not bul Is Nothing And bul.Address <> Adres
    End If
  
    Set SR = Nothing
    Set ALAN = Nothing
    Set bul = Nothing
     [COLOR=red]yazdırılacak.Text = deg
[/COLOR]    ComboBox8 = ""
ComboBox9 = ""
End Sub

 

[udentr2002]

hocam ilginiz ve alaknız için çok teşekkür ederim. Hemen uygulayacağım dosyama. Sizi yordum Allah razı olsun bilginize ve emeğinize sağlık