Combobox ile dinamik liste

[Ali Excel Öğreniyor]

Herkese merhaba,
Ben userform üzerindeki combobox’a dinamik veri çekmek istiyorum. Örnek olarak
Excel sayfa1 de alt alta 50 hücrelik bir verim var, mesela

Mustafa
Ahmet
Ali
Safa

Ben userform da bulunan combobox a bu verinin hepsini değil
“fa” yazdığımda içinde “fa” geçenleri additem olarak içine alsın istiyorum. Yani yazdığım harf içinde geçiyorsa combobox a ekliyecek.
Mesela hepsinde “a” var, ben “a” yazdığımda hepsini ekliycek yazmaya devam ettiğimde “afa” burada “mustafa” ve “safa” yı ekliyecek. Birsürü formda gezdim ama bir türlü bulamadım.

 

[YUSUF44]

Verdiğiniz bilgilere göre aşağıdaki kodları userforma ekleyip deneyin. Fazlası için örnek dosya paylaşın:

Private Sub ComboBox1_Change()

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select distinct F1 from [Sayfa1$] where F1 like '%" & ComboBox1.Text & "%'"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows

End Sub