ListBox da tam eşleşmeden arama yapmak.

[qwerty1478]

Merhaba
A sutunda 1 Ali DEMİ şeklinde veriler var
asagıdakı kod ile Textboxa veri girince listbox da A sutunundaki verileri listeleme yapıyorum. Fakat sadece ilk harfe gore listeleme oluyor.
1 yazınca sadece 1 ile başlayanlar cıkıyor. Ali yazdıgımda herhangi bir veri gelmiyor. Ben DE yazdıgımda içerisinde DE olan satırları nasıl listeleyebilirim.

Private Sub TextBox6_Change()
Dim sf As Worksheet
Set sf = Sheets("Sayfa1")
ListBox1.RowSource = ""
ListBox1.Clear
For i = 1 To Range("a65536").End(3).Row
   If sf.Range("A" & i) Like TextBox6.Value & "*" Then 'A sütununda arama yapar.
    ListBox1.AddItem
    ListBox1.List(ListBox1.ListCount - 1, 0) = sf.Range("A" & i)

   End If
Next i
End Sub

 

[haliliyas]

Like TextBox6.Value & "*" yerine

Like "*" & TextBox6.Value & "*"

şeklinde dener misiniz?

 

[qwerty1478]

Çok teşekür ederim tam istediğim gibi oldu

 

[haliliyas]

Rica ederim
İyi çalışmalar