Soru Combobox içinde arama

[sirkülasyon]

Hayırlı Ramazanlar, Hayırlı İftarlar
Birinci sütununda Adı soyadı
İkinci sütununda ise T.C. kimlik numarası olan İki sütunlu bir Combobox3'ün içinde
Textbox1' e girilen Harf ise Combobox3'ün ComboBox3.ListIndex = 0 (Birinci Sütunda) filtreleme yapacak
Textbox1' e girilen Rakam ise Combobox3'ün ComboBox3.ListIndex = 1 (İkinci Sütunda) filtreleme yapacak
bir makro kodu için yardımcı olabilir misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir mantık kurabilirsiniz. Ben aramayı 3 karakter yazıldığında yapacak şekilde düzenledim. Tek karakter olursa birden fazla veri olabileceği için en son olan veriyi getirecektir. İsterseniz bu satırı kaldırabilirsiniz. Her yazdığınız karaktere göre yeniden arama yaparak yine doğru olarak çalışır.

Private Sub TextBox1_Change()

If Len(TextBox1) < 3 Then Exit Sub

verisayisi = ComboBox1.ListCount - 1
uzunluk = Len(TextBox1)

Select Case IsNumeric(TextBox1)
Case False: sutno = 0
Case True: sutno = 1
End Select

For a = 0 To verisayisi
If Left(ComboBox1.List(a, sutno), uzunluk) = TextBox1 Then ComboBox1.ListIndex = a
Next

End Sub

ÖRNEK DOSYA

 

[sirkülasyon]

Var Olasın Levent Abi