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.
bi hata var ama anlayamadım. bilen arkadaşlar yardım ederse sevinirim.
Kod:
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