Diğer Textboxa geçerken uyarsın.

[YASINT]

Merhaba arkadaşlar benim istediğim textboxa veri girdiğim zaman, girdiğim veriyi sayfa1 den arayarak var ise uyarmasını yok ise sonraki textboxa geçmesini istiyorum. Ama Command butona basmadan yapmak istiyorum. Bunu nasıl sağlıyabilirim?

 

[Mahmut Kök]

Metin kutusundan çıktığınız anda çalışan kod ile yapabilirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'kodlarınız.

End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Private Sub TextBox1_AfterUpdate()
On Error Resume Next
If Sheets("sayfa1").Cells.Find(TextBox1) <> TextBox1 Then Exit Sub
Cells.Find(TextBox1).Select
Me.Caption = Sheets("sayfa1").Cells.Find(TextBox1) & " bulundu"
MsgBox ActiveCell & " bulundu"
End Sub