Bul makrosunda yardım

[fatih34]

Userform8 de bulunan Listbox1 Sayfa1 deki veriler geliyor. Verinin üzerine tıkladığımda ilgili bilgiler TextBoxlarda gözüküyor.
Benim sorum Sayfa1 de satır sayısı fazla olacağından, aradığım bilgiyi listboxda bul butonu ile bulmak için yardım. Formda bir kaç örnek dosya buldum ancak çalışmamam uygulayamadım.
Örnek dosyam ektedir.

 

[fatih34]

Bu konuda yol gösterecek hocam yokmu?

 

[Muzaffer Ali]

Aşağıdaki kodlar işinizi görür mü?

Private Sub CommandButton1_Click() 'Bul butonu
    Bul 0
End Sub

Private Sub CommandButton2_Click() 'Sonrakini bul butonu
    Bul ListBox1.ListIndex + 1
End Sub

Sub Bul(Baslangic As Integer)
    Dim bak As Integer
    For bak = Baslangic To ListBox1.ListCount - 1
        If ListBox1.List(bak, 0) = TextBox9.Text Then
            ListBox1.ListIndex = bak
            Exit For
        End If
    Next
End Sub