sütunda arama yapıp, listboxa yazdırma

[maed2312]

merhaba arkadaşlar;
a sütununda isimler var. userforma bir button, textbox ve listbox ekledim. ekledim. textboxa ismi veya ismin bir kısmını yazdığımda bu kritere uyan ( sadece a sütunu) hücrelerin listboxta listelenmesini istiyorum.
şimdiden teşekkür ederim. iyi çalışmalar...

(not:arama yaptım ama kendi istediğim işe pek uyduramadım)

 

[asi_kral]

Merhaba
Dosyanızı ekleyin yardımcı olmaya çalışalım

 

[maed2312]

dosya ekleyemiyorum

 

[asi_kral]

bir upload stesinden yükleyin.
Fazla vaktim yok gideceğim. hemen yükleme yaparsanız bakarım

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

Private Sub TextBox1_Change()
    Dim Bul As Range, Adres As String
    
    On Error Resume Next
    ListBox1.Clear
    ListBox1.RowSource = ""
    On Error GoTo 0
    
    If TextBox1 = "" Then
        UserForm_Initialize
    Else
        Set Bul = Range("A:A").Find(TextBox1, , , xlPart)
        If Not Bul Is Nothing Then
            Adres = Bul.Address
            Do
                ListBox1.AddItem Bul.Value
                Set Bul = Range("A:A").FindNext(Bul)
            Loop While Not Bul Is Nothing And Bul.Address <> Adres
        End If
    End If
End Sub

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A2:A" & Cells(Rows.Count, 1).End(3).Row
End Sub

 

[maed2312]

Korhan bey tesekkur edetim. Henuz deneyemedim, yeni gordum. Siz yaptiysaniz olmustur

 

[maed2312]

Korhan üstad, teşekkür ederim. tam istediğim gibi. ellerin dert görmesin