userform ara butonu

[erzen]

Arkadaşlar bir tane userformum var. T.C. kimlik no kısmı dodurulup ara butonuna bastığımda alttaki textboxlara bulduğu değeri yazmasını nasıl sağlayabilirim.
Teşekkürler.

 

[Mahmut Kök]

Sizin hazırladığınız forma göre, bul düğmesine aşağıdaki kodu eklemeniz gerekir.

Private Sub CommandButton1_Click()
Set bul = Range("a1:a65536").Find(TextBox3, lookat:=xlWhole)
If Not bul Is Nothing Then
TextBox4 = Cells(bul.Row, "b")
TextBox5 = Cells(bul.Row, "c")
ComboBox1 = Cells(bul.Row, "d")

Else
MsgBox "aradığınız kayıt bulunamadı."
End If
End Sub

 

[erzen]

Teşekkürler