Bul butonu

[ttrex]

öncelikle burda insanların sorularına sabırla cevap verdiğiniz için teşekkür ederim.
sorunum şu: bul butonunu saatlerce uğraşmama rağmen bir türlü çalıştıramadım. ekteki çalışmamda bul butonuna basınca bilgilerimin TextBox ve comboboxlarda çıkmasını istiyorum. ekteki programı değiştirmenizi değilde hangi kodları kullanacağım ve bu kodların hangi anlamları olduğunu anlatmanızı temenni ediyorum. Saygılar...

 

[ÖmerBey]

Merhaba,
Kodları nasıl kullanacağınızı zaten az çok anlamış gözüküyorsunuz. Sadece ufak tefek hatalar olmuş.
İlgili düğmenin kodunu şu şekilde değiştirirseniz sizin yolunuzla istediğinizi elde edersiniz.

Private Sub CommandButton2_Click()
Set S1 = Sheets("OGRENCI")
Dim bul As Range
For Each bul In S1.Range("a2:a" & Range("a65536").End(3).Row)
    If bul = TextBox1 Then
        TextBox2 = bul.Offset(0, 1)
        ComboBox1 = bul.Offset(0, 2)
        ComboBox2 = bul.Offset(0, 3)
        ComboBox3 = bul.Offset(0, 4)
        ComboBox4 = bul.Offset(0, 5)
    End If
Next bul
End Sub