Label Combobox Hk

[bulentkars]

Arkadaşlar Merhaba

Benim UserForm üzerinde 10 adet Combobox 1 adet label 1 adet Commanbutton var.
Her combobox a ait aşağıdaki kodlar var.Kodlar doğru çalışıyor.Burada tek sıkıntı uyarı verdiğinde Combobox1 siliyor.Fakat Combobox2 ye geçiyor.Örneğin Combobox1 e kritere uymayan veri girdiğimde MsgBox "2.Kontrolü yapmadan giriş yapamassınız" uyarısını veriyor.
ComboBox1.SetFocus ComboBox1 = "" kodları yazmama rağmen combobox1 siliyor ve combobox2 ye geçiş yapıyor.combobox1 de kalmasını sağlayabilirmiyim.Bu konuda yardımcı olursanız sevinirim.Şimdiden Teşekkürler.


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 <> "" And Label1.Caption = "" Then
MsgBox "2.Kontrolü yapmadan giriş yapamassınız.", vbCritical, "Uyar"
ComboBox1.SetFocus
ComboBox1 = ""
End If


End Sub

 

[Orion1]

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 <> "" And Label1.Caption = "" Then
MsgBox "2.Kontrolü yapmadan giriş yapamassınız.", vbCritical, "Uyarı - E V R E N"
ComboBox1.value = ""
[B][COLOR="Red"]cancel=true[/COLOR][/B]
End If

 

[bulentkars]

Evren Bey İlginiz için çok teşekkür ederim.

İstediğim oldu fakat uyardıdan sonra combobox1 e gelmiyor.Yani imleç hiç bir comboxta seçili olmuyor entere 2.kez bastığımda combobox2 ye geliyor.

 

[bulentkars]

Evren Bey galiba sorunu buldum sayfa1 de düğmeyi tıkladığımda userform1 açlışıyor.
UserForm1.Show vbModeless olduğu için uyarıdan sonra combobox1 e düşmüyor.
UserForm1.Show yaptığımda düşüyor.
bunu çözmenin bir yolu varmı acaba