TextBox1_Exit olayında setfocus problemi

[conanait]

herkese iyi günler,
Private Sub CommandButton2_Click()
.
.
.
.
10:
MsgBox "HATALI DEÐER GİRDİNİZ!"
UserForm4.TextBox1.Value = ""
TextBox1.SetFocus
Range("o5").Select
Exit Sub
End Sub

eğer bu kodu bir düğmeye atarsanız textbox1 seçili hale geliyor ama textbox1'in exit olayına yazdığınızda textbox1 seçili olmuyor. tamam çıkış olayına yazmışız yani çıkıca şunu yap diye ama tekrar kendisi seçili halde kalamaz mı.
kısacası textbox1 deki değer textbox1 den tab tuşuyla çıkıldıktan sonra kontrol ediliyor hatalı ise imleç tekrar aynı textbox ta bulunsun isteniyor.
yardımlarınız için şimdiden teşekkürler

 

[excelvba]

MsgBox "HATALI DEÐER GİRDİNİZ!"
UserForm4.TextBox1.Value = ""
TextBox1.SetFocus
Range("o5").Select
Exit Sub

Yukarıdaki kodlarınızı tab tuşu ile textboxtan ayrıldıktan sonra seçili olan nesnenin enter olayına yazarak deneyin.

 

[conanait]

şöyle bir yöntem izledim;
msgbox benzeri bir userform oluşturdum,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
.
.
10:
UserForm4.Hide
UserForm8.Show
Exit Sub
End Sub

userform4 mevcut olan form8 ise msgbox yerine kullanılan



Private Sub CommandButton1_Click() 'userform8 üzerinde
UserForm4.TextBox1.Value = ""
UserForm4.TextBox1.SetFocus
Range("o5").Select
Unload Me
UserForm4.Show
End Sub

biraz dolambaçlı oldu ama oldu, daha kolay bir çözüme herzaman açık olduğumu bilmenizi isterim

iyi çalışmalar

 

[excelvba]

Benim önerdiğim çözümü denedinizmi?