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

Katılım
6 Mart 2007
Mesajlar
28
Excel Vers. ve Dili
excel 2007
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

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
Merhaba
Dosyanızı ekleyin yardımcı olmaya çalışalım
 

asi_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
bir upload stesinden yükleyin.
Fazla vaktim yok gideceğim. hemen yükleme yaparsanız bakarım
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,520
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki kodları deneyiniz.

Kod:
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
 
Katılım
6 Mart 2007
Mesajlar
28
Excel Vers. ve Dili
excel 2007
Korhan bey tesekkur edetim. Henuz deneyemedim, yeni gordum. Siz yaptiysaniz olmustur :)
 
Katılım
6 Mart 2007
Mesajlar
28
Excel Vers. ve Dili
excel 2007
Korhan üstad, teşekkür ederim. tam istediğim gibi. ellerin dert görmesin :)
 
Üst