Textbox yazarken filtreleme

[dadaloglu38]

Bir fiyat listesinde arama yapıyoruz.
Bu kod listedeki ürünlerin ilk harfinden referans alarak arama yapıyor. Benim istediğim ise aradığımız kelime ile başlayan yada içinde o kelime geçen cümleleri filtrelemesi.

Yardımcı olursanız çok memnun olurum.


Private Sub TextBox1_Change()

Dim MyRange As Range
Dim noA As Integer
ListBox1.Clear
noA = WorksheetFunction.CountA(Sheets("Data").Range("G:G "))
For Each MyRange In Sheets("Data").Range("G1:G" & noA)
If Left(LCase(MyRange), Len(TextBox1)) = LCase(TextBox1) Then ListBox1.AddItem (MyRange)
Next

End Sub

 

[Haluk]

Bunu bir deneyin ...

Private Sub TextBox1_Change()
    Dim MyRange As Range
    Dim noA As Integer
    
    ListBox1.Clear
    
    noA = WorksheetFunction.CountA(Sheets("Data").Range("G:G "))
    For Each MyRange In Sheets("Data").Range("G1:G" & noA)
        If MyRange Like "*" & TextBox1 & "*" Then ListBox1.AddItem MyRange
    Next
End Sub

 

[dadaloglu38]

Haluk Hocam teşekkür ederim,
Yazmış olduğunuz kod çalışıyor fakat küçük harf büyük harf duyarlılığını nasıl çözeriz yardımcı olursan çok memnun olurum.

Örneğin; listede "Kalem" yazıyor. "KALEM" yada "kalem" olarak arattığımızda bulamıyor.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub TextBox1_Change()
    Dim Hucre As Range, Son As Integer, Veri As String, Aranan As String
    
    ListBox1.Clear
    
    Son = Cells(Rows.Count, "G").End(3).Row
    
    For Each Hucre In Sheets("Data").Range("G1:G" & Son)
        Veri = UCase(Replace(Replace(Hucre, "ı", "I"), "i", "İ"))
        Aranan = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
        If Veri Like "*" & Aranan & "*" Then ListBox1.AddItem Hucre
    Next
End Sub

 

[dadaloglu38]

Işe yaradı çok teşekkür ederim. Ellerinize sağlık.

 

[Haluk]

Alternatif:

Private Sub TextBox1_Change()
    Dim MyRange As Range
    Dim noA As Integer
    
    ListBox1.Clear
    [AA1] = TextBox1.Text
    noA = WorksheetFunction.CountA(Sheets("Data").Range("G:G "))
    For Each MyRange In Sheets("Data").Range("G1:G" & noA)
        If Evaluate("=lower(" & MyRange.Address & ")") Like "*" & Evaluate("=lower(AA1)") & "*" Then ListBox1.AddItem MyRange
    Next
End Sub