Soru Combobox içinde arama

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
Kod:
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
 
Son düzenleme:

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Var Olasın Levent Abi
 
Üst