Userform veri sorgulama (liste şeklinde açılabilen sorgu sonucu)

[nirvanarapeme]

Arkadaşlar oluşturduğum bir userform dan basit bir veri sorgulaması yapmak istiyorum. Bu sorgulama hakkında iki sorum olacak;

textbox20 ye kod girişi yapıp sorgula butonuna bastığımda "Data" adındaki bir sheet içinde yer alan sütun A'daki veri aynı ekranda bulunan textbox22 (veya combobox/list)'ye gelecek.

Sorgunun geleceği textbox22 yi nasıl dizayn edersem textbox20'de arama yaptığımda örneğin A sütunu içinde "abc" yazısı yazan bütün kelimeler bir combobox gibi açılılan formatta bir sorgu sonucu oluşabilir.


Bu iki işlevi yapabilmek için nasıl bir kod önerirsiniz. Yardımcı olabilirseniz çok sevinirim. Teşekkürler

 

[prmts]

Combobox kullanırsanız alttaki kodlar işinizi görebilir.

Private Sub CommandButton1_Click()
ComboBox1.Clear
For t = 1 To Sheets("DATA").Range("a65536").End(3).Row
If Sheets("DATA").Cells(t, 1).Value Like "*" & TextBox20.Text & "*" Then ComboBox1.AddItem Sheets("DATA").Cells(t, 1).Value
Next t
End Sub

Alttaki Tahsin beyin verdiği örnegi inceleyin listbox kullanmış.

http://www.excel.web.tr/f14/bul-ve-listele-t117875.html#post644498