Comboboxda filtre..

[acolkesen1]

Merhaba,
Örnek dosyada comboboxda filtre yaptırmak istiyorum. Combobox seçildiğinde açılan listede comboboxa veri girildikçe girilen veriyle ilgili filtre yaptırmak mümkün müdür? Örn; comboboxa A yazıldığında açılan listede sadece A ile başlayanları listelemek comboboxda yapılabilir mi? ilgilenen arkaşlara teşekkür ederim..
Not: Arama sonucu çıkan dosyalar eski olduğu için açılmıyor..

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
ListBox1.Clear
ListBox1.ColumnCount = 9
son = Cells(65536, "a").End(xlUp).Row
Set bul = Range("a2:A" & son).Find(ComboBox1 & "*", , xlValues, xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
Do
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(bul.Row, "a")
ListBox1.List(s, 1) = Cells(bul.Row, "b")
ListBox1.List(s, 2) = Cells(bul.Row, "c")
ListBox1.List(s, 3) = Cells(bul.Row, "d")
ListBox1.List(s, 4) = Cells(bul.Row, "e")
ListBox1.List(s, 5) = Cells(bul.Row, "f")
ListBox1.List(s, 6) = Cells(bul.Row, "g")
ListBox1.List(s, 7) = Cells(bul.Row, "h")
ListBox1.List(s, 8) = Cells(bul.Row, "ı")
s = s + 1
Set bul = Range("a2:A" & son).FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adres
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1 = ".": ComboBox1 = ""
End Sub

 

[acolkesen1]

Merhaba Sayın N.Ziya Hiçdurmaz,
İlginiz için teşekkür ederim. Ama anlatamka istediğimi sanırım yanlış ifade ettim. Açılan liste yerine açılan kutu deseydim daha doğru olacaktı. Açılan listeden kastım, combobox ın mousemove olayına yazılmış olan dropdown komutu ile açılan kutu idi. Sizin kodlarınızla hemen alttaki listbox a aktarılıyor. Daha açık yazmak gerekirse; combobox ın üzerine gittiğimizde aşağıya doğru açılıyor.Combobox a A yazdığımızda bu açılan kutuda sadece A ile başlayanlar listelenebilir mi diye sormak istemiştim. Sonra açılan kutudan seçtiğimiz veriyi combobox a aktarcağız. Sizden ricam, eğer bu işlem combobox ile mümkün değilse öneriniz ne olabilir?