Sayfada arama yaptırma hk.

[TrMn1]

diğer bi sayfada arama yapıp textbox lara bilgileri dökmesi için olan programda
bi hata var ama anlayamadım. bilen arkadaşlar yardım ederse sevinirim.

Private Sub CommandButton4_Click()
If TextBox1.Value = "" Then
    MsgBox " TC KİMLİK ALANI BOŞ OLAMAZ. ! ", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox1.Value = "" Then Exit Sub
Set k = Sheets("kisi").Range("B2:AZ5000").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox1.Value = Cells(k.Row, "C").Value
TextBox2.Value = Cells(k.Row, "D").Value
TextBox3.Value = Cells(k.Row, "E").Value
Else
MsgBox " Aranan Kişi Bulunamadı.! "
End If
TextBox1.SetFocus
End Sub

 

[Korhan Ayhan]

Merhaba,

Ne gibi bir hata oluşuyor.

 

[Orion1]

Merhaba.
İlk anda görünüşe göre ya en az 1 tane textbox nesneniz yok,yada kisi isminde bir sayfanız yok.birazda setfocustan şüpheliyim.
O anki görüntünüzde textbox1 yoksa ona setfocus yapamazsınız.