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?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Diğer Textboxa geçerken uyarsın.
- Konbuyu başlatan YASINT
- Başlangıç tarihi
Mahmut Kök
Özel Üye
- Katılım
- 14 Temmuz 2006
- Mesajlar
- 878
- Excel Vers. ve Dili
- Excel 2007 - Türkçe
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
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'kodlarınız.
End Sub
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
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
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