listboxda süzülenleri toplama?

[udentr2002]

Merhaba arkadaşlar ekli dosyada da anlattım listboxda süzülenlerin bilgilerini toplayıp listboxun altındaki textboxa yazacak bir kodu nasıl yazabiliriz? İlgilenen arkadaşlarıma teşekkür ederim

 

[udentr2002]

dosyayı eklemeyi unuttum özürr

dosyam ektedir

 

[Zeki Gürsoy]

Olmuş mu üstad,

Private Sub TextBox1_Change()
On Error Resume Next
Dim isim As Range

Sheets("Sayfa1").Select
ListBox1.RowSource = Empty
ListBox1.Clear
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
For Each isim In Sheets("Sayfa1").Range("a3:a" & Sheets("Sayfa1").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
isim.Select
liste = ListBox1.ListCount
i = i + 1
ListBox1.AddItem
For x = 0 To 4
    ListBox1.List(i - 1, x) = isim.Offset(0, x)
Next
TextBox2 = Val(TextBox2.Text) + ListBox1.List(i - 1, 2)
TextBox3 = Val(TextBox3.Text) + ListBox1.List(i - 1, 3)
TextBox4 = Val(TextBox2.Text) - Val(TextBox3.Text)
'For x = 1 To 5
'ListBox1.List(liste, x - 1) = isim.Offset(0, x - 1)
'Next

End If
Next

End Sub

 

[udentr2002]

zeki kardeş

olmuşmu ne demek harika olmuş ellerine sağlık kardeş Allah razı olsun