listbox arama

[marimar]

textbox ile listbox'tan eleme

merhaba arkadaşlar listbox'a açılışta şehir isimleri ekleniyor.
textbox'a yazdığım yazıya göre listboxtaki verilerin bulunmasını istiyorum
mesela k yazdığım zaman listbox'ta k harfi ile başlayan şehirlerin (konya,kocaeli,kahramanmaraş vb.), ko yazdığım zaman ko ile başlayan şehirlerin (konya,kocaeli), kon yazdığım zaman kon ile başlayan şehirlerin (konya) listelenmesini istiyorum.
teşekkürler

 

[hakan_demirkan]

arkadaşım sitede bu dediğine benzer birçok örnek var istersen bir arama yap bulursun...'combobox ile süzme' arattır çıkar

 

[Orion1]

Dosyanız ekte.

Private Sub TextBox1_Change()
Dim k As Range, adr As String
ListBox1.Clear
Set k = Range("A:A").Find(TextBox1.Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem Cells(k.Row, "A").Value
        Set k = Range("A:A").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub