Çözüldü Textboxa giriş doğru olmadan çıkılmasın

[sirkülasyon]

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox4.Value) = 10 Then
TextBox4.Value = Format(TextBox4.Value, "0(###) ### ## ##")
ElseIf Len(TextBox4.Value) = 16 Then
ElseIf TextBox4.Value = "" Then
Else
MsgBox "Telefon numarasını '0' olmadan 10 hane olarak giriniz!", vbExclamation, "DİKKAT EDİNİZ!"
End If
End Sub

Doğru olarak girilmeden textboxtan çıkılmasın. Nasıl yapabilirim?

 

[Korhan Ayhan]

Doğruluk koşulunuz nedir?

 

[sirkülasyon]

Korhan Abi
Userformda textbox4' e 0 hariç 10 rakam girmezse uyarı veriyor. Ancak diğer textboxa geçiyor.

Doğruluk koşulu "GSM numarası" sıfır hariç 10 hane olacak. 0 girmeyecek.
Girişi yanlış yaparsa diğer hücrelere geçiş yapmayacak

 

[Korhan Ayhan]

Deneyiniz.

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Left(TextBox4, 1) = "0" Or Len(TextBox4) <> 10 Then
        MsgBox "Telefon numarasını başında 0 (sıfır) olmadan 10 hane olarak giriniz!", vbExclamation, "DİKKAT EDİNİZ!"
        Cancel = True
        Exit Sub
    End If
End Sub

 

[sirkülasyon]

Saygılarımla Korhan abi
Teşekkür ederim