Listbox verilerin için de arama yaptırmak

[KAPLAN381]

Ekde ki örnek de listboxa gelen verilerimin içinde arama yaptırıp bir harfe bastığımda o harfi içeren isimlerin gelmesini istiyorum ama kodu yazamadım da bulamadım. Forum da yardımcı olacak arkadaşlarımdan ilgisini bekliyorum

 

[turist]

Aşağıdaki kodu kullanıp, deneyin.

Private Sub TextBoxBUL_Change()
ListBox1.Clear
Me.TextBoxBUL.Value = Me.TextBoxBUL.Value
If Me.TextBoxBUL = "" Then
UserForm_Initialize
Else
For Each isim In Sheets("GENEL BİLGİLER").Range("C2:C" & Sheets("GENEL BİLGİLER").Range("C" & Rows.Count).End(xlUp).Row)
    If isim Like "*" & TextBoxBUL & "*" Then
        liste = ListBox1.ListCount
            ListBox1.AddItem
            ListBox1.List(liste, 0) = isim.Offset(0, -2)
            ListBox1.List(liste, 1) = isim & " " & isim.Offset(0, 1)
     End If
Next
End If
End Sub

 

[KAPLAN381]

http://www.excel.web.tr/f47/onay-kutusunu-ko-ula-baolamak-t159609/sayfa2.html

ilginiz için teşekkür ederim.
burada da yardımcı olmuştunuz bir bakabilir misiniz teşekkürler

 

[turist]

http://www.excel.web.tr/f47/onay-kutusunu-ko-ula-baolamak-t159609/sayfa2.html

ilginiz için teşekkür ederim.
burada da yardımcı olmuştunuz bir bakabilir misiniz teşekkürler

Konuya cevap verilmiştir.

 

[kadriguler]

Listbox da yukarıdaki şekilde arama yapılır ve sonuç alınır. Ancak büyük dosyalarda biraz yavaşlama olabiliyor .O yüzden yaptığım userformda şöyle bir yol takip ettim , textbox da yazan değeri sayfa içinde autofilter metodu ile aramak ,bulunan sonuçları başka bir sayfaya kopyalamak ve listbox ın içini bu sayfadaki veriler ile doldurmak .Sonuç bayağı fark etti ,daha hızlı oldu . Şu videodan izleyebilirsiniz :

[YOUTUBE]https://www.youtube.com/watch?v=5yQr7jSW9jA&t=4s[/YOUTUBE]

 

[kadriguler]

Listbox da yukarıdaki şekilde arama yapılır ve sonuç alınır. Ancak büyük dosyalarda biraz yavaşlama olabiliyor .O yüzden yaptığım userformda şöyle bir yol takip ettim , textbox da yazan değeri sayfa içinde autofilter metodu ile aramak ,bulunan sonuçları başka bir sayfaya kopyalamak ve listbox ın içini bu sayfadaki veriler ile doldurmak .Sonuç bayağı fark etti ,daha hızlı oldu . Şu videodan izleyebilirsiniz :

https://www.youtube.com/watch?v=5yQr7jSW9jA&t=4s (dosya indirme linki var)


[YOUTUBE]https://www.youtube.com/watch?v=5yQr7jSW9jA&t=4s[/YOUTUBE]