userformda ara

[Yesilyurtlu]

Hayırlı Akşamlar.
Üstadlarım ekli formda kayıt oluyor yalnız arama formunda Adı ve Soyadı ile ara dediğim zaman ki çalışacak userform2 yi yapamadım.
Yardımcı olabilir misiniz?

 

[Husgvarna]

Aşağıdaki kodu deneyin.

Private Sub CommandButton2_Click()
If TextBox8.Text = "" Then
    MsgBox ("İsim Adı Soyadı Bölümünü Boş Geçmeyiniz.")
    Exit Sub
End If
Set xx = Range("B2:B65536").Find(TextBox8.Value)
If Not xx Is Nothing Then
UserForm1.Hide
UserForm2.TextBox1.Value = Cells(xx.Row, 2).Value
UserForm2.TextBox2.Value = Cells(xx.Row, 3).Value
UserForm2.TextBox3.Value = Cells(xx.Row, 4).Value
UserForm2.TextBox6.Value = Cells(xx.Row, 5).Value
UserForm2.Show
UserForm2.TextBox1.Locked = True
UserForm2.TextBox2.Locked = True
UserForm2.TextBox3.Locked = True
UserForm2.TextBox6.Locked = True
Else
MsgBox "Bulunamadı"
End If
End Sub

 

[Yesilyurtlu]

Husgvarna
Yardımınız için Teşekkür Ederim