• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bul makrosunda yardım

  • Konbuyu başlatan Konbuyu başlatan fatih34
  • Başlangıç tarihi Başlangıç tarihi
Katılım
2 Ekim 2007
Mesajlar
359
Excel Vers. ve Dili
2010
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.
 

Ekli dosyalar

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

Kod:
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
 
Geri
Üst