listbox yardımı

[ipkins]

arkadaşlar dosyamı ekliyorum sorunumu orda anlattım yardım ederseniz çok sevinirim. formda aradım bulamadım kısaca sorunum şu formumda bir adet textbox ve bir adet listbox var textboxa ismin başharfini girdiğimde listboxda o harfle başlayan isimler listeleniyor listbox a tıklayınca ilgili hücreyi seçmesini istiyorum ama başka hücreyi seçiyor bilen arkadaşlar ilgilenirseniz çok sevinirim şimdiden herkese teşekkürler.
kusura bakma arkadım eklemeyi unutmuşum şimdi gönderdim dosyayı

 

[kundakci]

Örnek dosyayı eklermisiniz

 

[ipkins]

konuyu bilen arkadaşalar eğer yoğun değilseniz bir baksanız dosyaya

 

[hamitcan]

İlgili kodu aşağıdaki şekilde değiştirin.

Private Sub ListBox1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      Cells.Find(What:=ListBox1.List(i, 0), After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False).Activate
    End If
Next
End Sub

 

[ipkins]

teşekkür ederim hamitcan çok teşekkür ederim