Textbox1 deki veriyi Listbox1 de arama

[heft]

Merhaba,
Konu başlığından anlaşılacağı üzere textbox1 e yazdığımız veriyi listbox1 de bulup seçilmesini istiyorum.
Bunu yapan veya kullanan var mı?
Nasıl bir kod yazmamız gerekir?

 

[Muzaffer Ali]

Private Sub TextBox1_Change()
    Dim bak As Integer
    For bak = 0 To ListBox1.ListCount - 1
        If Left(ListBox1.List(bak), Len(TextBox1.Text)) = TextBox1.Text Then
            ListBox1.ListIndex = bak
            Exit Sub
        End If
    Next
End Sub

 

[heft]

teşekkürler dalgalıkur.
emeğinize sağlık.

 

[heft]

Sayın Dalgalıkur şöyle bir problemle karşılaştım,
Eğer veri varsa seçiyor,eğer veri yoksa seçili kalıyor.
Bunu nasıl engelliyorsunuz yada seçimi nasıl kaldırıyorsunuz?

Birde şöyle bir durum var,
arama 1.kolona göre yapılıyor.Ya 3.kolon olsaydı bunu nasıl yapardık?

 

[Muzaffer Ali]

Yeni kodlar aşağıdaki gibi oldu

Private Sub TextBox1_Change()
    Dim bak As Integer
    Dim KolonNo As Integer
    KolonNo = 0
    If TextBox1.Text = "" Then
        ListBox1.ListIndex = -1
        Exit Sub
    End If
    For bak = 0 To ListBox1.ListCount - 1
        If Left(ListBox1.List(bak, KolonNo), Len(TextBox1)) = TextBox1.Text Then
            ListBox1.ListIndex = bak
            Exit Sub
        End If
    Next
    ListBox1.ListIndex = -1
End Sub

 

[heft]

çok teşekkürler