Listboxda isim ararken ikinci ve üçüncü harfleri kullanabilme

[doganayfidaan]

Merhaba,
Benim ekte paylaştığım dosyada anasayfadaki listboxda tek bir harf alğılıyor örneğin ali ayşe asiye diye müşterilerimiz var , ben a harifna bastığımda en başta hangi müşteri varsa o çıkıyor ben ise ay yazıp ayşe müşterisini bulmak istiyorum.
Altta paylaştığım videoda benzer bişi var yapmaya çalıştım ama daha çok karıştı yardımcı olur musunuz?

 

[Greenblacksea53]

Dim kayitSayisi, satır, Text As String

Text = Textbox1.Value: Text = WorksheetFunction.Proper(Text): Textbox1.Value = Text
ListBox1.Clear
kayitSayisi = Sheets("sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
For satır = 1 To kayitSayisi
        If InStr(WorksheetFunction.Proper(Sheets("sayfa1").Range("A" & satır)), Textbox1.Value) >= 1 Then
        ListBox1.AddItem Sheets("sayfa1").Range("A" & satır)
End If
Next satır

Textbox1 Change olayına kodları yapıştırın.

Textbox1 = arama kutusu olarak düşün
ListBox1= Textbox1 aradığın kelime harf yada hecenin listeneceği alan
Not : İsimler sayfa1 A sütununda olduğunu varsaydım

 

[doganayfidaan]

Dim kayitSayisi, satır, Text As String

Text = Textbox1.Value: Text = WorksheetFunction.Proper(Text): Textbox1.Value = Text
ListBox1.Clear
kayitSayisi = Sheets("sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
For satır = 1 To kayitSayisi
        If InStr(WorksheetFunction.Proper(Sheets("sayfa1").Range("A" & satır)), Textbox1.Value) >= 1 Then
        ListBox1.AddItem Sheets("sayfa1").Range("A" & satır)
End If
Next satır

Textbox1 Change olayına kodları yapıştırın.

Textbox1 = arama kutusu olarak düşün
ListBox1= Textbox1 aradığın kelime harf yada hecenin listeneceği alan
Not : İsimler sayfa1 A sütununda olduğunu varsaydım

Hocam,benim sayfa1 de degil her müşteriye yeni sayfa oluşuyor bende 5.sayfadan sonra başlıcak şekilde nasıl düzeltiriz.Rica etsem dosyamı inceleyip bakabilir misiniz?