listbox a veri alma

[cetvel]

selam arkadaşlar,

userform açıldığında bilgi sayfasındaki bilgilerin tamamının listboxta görünmesini ve daha sonra ComboBox ta isim seçildiğinde listbox a Bilgi sayfasındaki seçilen kişiye ait bilgilerin süzülmesini istiyorum.

Çok uğraştım, ilgili örnekleride inceledim ama birtürlü başaramadım, bana bu konuda yardımcı olacaklara şimdiden çok teşekkür ederim.

 

[cetvel]

dosya eklendi

 

[fedeal]

kodlar altta, iyi çalışmalar.
(ayrıca comboboxa harf girdikçede süzer bunun için combobox1 in matchentry ayarını 2 olarak ayarlayın.)

Private Sub ComboBox1_Change()
Call listele
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "DATA!A5:A2500"
Call listele
End Sub

Sub listele()
Set sf = Sheets("BİLGİ")
ListBox1.Clear
ListBox1.ColumnCount = 10
ReDim fdl(1 To 10, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 10, 1 To a)
For k = 1 To 10
fdl(k, a) = sf.Cells(4, k)
Next k
a = a + 1
ReDim Preserve fdl(1 To 10, 1 To a)
For k = 1 To 10
fdl(k, a) = "~~~~~~~~~~~"
Next k
For i = 5 To sf.Cells(65536, "A").End(xlUp).Row
If ComboBox1.Text = "" Then GoTo atla
deg2 = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
deg1 = UCase(Replace(Replace(sf.Cells(i, "E").Value, "ı", "I"), "i", "İ"))
If deg2 = Left(deg1, Len(deg2)) Then
atla:
a = a + 1
ReDim Preserve fdl(1 To 10, 1 To a)
For k = 1 To 10
fdl(k, a) = UCase(Replace(Replace(sf.Cells(i, k).Value, "ı", "I"), "i", "İ"))
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl
End Sub

 

[cetvel]

Teşekkür ederim sayın fedal
emeğinize sağlık