Textbox Enter

[memduh]

Eğer textbxo1 boş ise textbox enter olayı çalışmasın. Textbox1 dolu ise textbox enter çalışsın. Saygılar.

 

[metinozlu]

Private Sub TextBox1_Enter()
If TextBox1 = "" Then
Exit Sub
Else
MsgBox ("Dolu")
End If
End Sub

 

[memduh]

Sayın metinozlu cevabınız için teşekkür ederim. Sanırım yanlış ifade ettim.
Eğer textbxo1 boş ise textbox1 de entere basınca textbox2 ye geçmesin. Textbox1 dolu ise textbox2 ye geçsin. Saygılar.

 

[Korhan Ayhan]

Selamlar,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox ("LÜTFEN VERİ GİRİNİZ...")
Cancel = True
Else
Cancel = False
End If
End Sub