Listbox içinde arama yapmak!

[olymposss]

sn hocalarım herkese iyi günler

ekte örnek dosya mevcut.
form üstünde listboxta 1 sütun isimler mevcut.ara butonuna basınca inputbox a bir veri yazıp bu veriyi listbox içinde arama yapmasını istiyorum.bulunca o satır işaretli olsun bulmazsa kayıt yok desin.yardımlarınızı bekliyorum.teşekkürler
saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Büyük-küçük harf duyarlı değildir.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa2")
ara = InputBox("Lütfen aramak istediğiniz adı yazınız ve OK tuşuna basınız.")
If WorksheetFunction.CountIf(s1.[a:a], ara) = 0 Then GoTo 10
ListBox1.ListIndex = WorksheetFunction.Match(ara, s1.[a:a], 0) - 1
Exit Sub
10 MsgBox (ara & " kaydına veya benzer bir kayda ulaşılamadı."), , "REHBER2007"
End Sub

veya

Private Sub CommandButton1_Click()
ara = InputBox("Lütfen aramak istediğiniz adı yazınız ve OK tuşuna basınız.")
For Each deger In ListBox1.List
c = c + 1
If deger = ara Then
ListBox1.ListIndex = c - 1
Exit Sub
End If
Next
MsgBox (ara & " kaydına veya benzer bir kayda ulaşılamadı."), , "REHBER2007"
End Sub

 

[hamitcan]

Ben de bir örnek yapmıştım.

Private Sub CommandButton1_Click()
ara = InputBox("Lütfen aramak istediğiniz adı yazınız ve OK tuşuna basınız.Büyük/küçük harf duyarlıdır.")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i, 0) = ara Then
ListBox1.ListIndex = i
Exit Sub
End If
Next
MsgBox (ara & " kaydına veya benzer bir kayda ulaşılamadı."), , "REHBER2007"
End Sub

 

[olymposss]

sn leventm hocam sn hamitcan
çok teşekkür ederim. harika bir sonuca ulaştım.
saygılar

 

[nihattt]

Ben 2. sütunda arama yapmak istiyorum hata veriyor kodlar. nasıl bir düzenleme yapmak lazım acaba. Biraz uğraştım becereemdim.