Textboxa Hatalı Giriş Yapıldığında Uyarı Mesajı Verdirme

[AyYıldızım]

On Error Resume Next
If TextBox1.Text = "" Then: TextBox2 = ""
If TextBox1.Text = "0" Then: TextBox2 = "Yok"
If TextBox1.Text = "1" Then: TextBox2 = "5"
If TextBox1.Text = "2" Then: TextBox2 = "10"
If TextBox1.Text = "3" Then: TextBox2 = "15"
If TextBox1.Text = "4" Then: TextBox2 = "20"
If TextBox1.Text = "5" Then: TextBox2 = "25"
If TextBox1.Text = "6" Then: TextBox2 = "30"
If TextBox1.Text = "7" Then: TextBox2 = "35"
If TextBox1.Text = "8" Then: TextBox2 = "40"
If TextBox1.Text = "9" Then: TextBox2 = "45"
If TextBox1.Text = "10" Then: TextBox2 = "50"

Arkadaşlar yukarıdaki tanımlamalarını yaptığım textboxlara göre textbox 1 de boş,0,1,2...10 değerleri haricinde bir değer yazıldığında hata mesajı veren bir kodlama nasıl yapabilirim, saygılar,

mesala textboxa 15 girdim,

0-10 arasında bir değer giriniz uyarısının çıkmasını istiyorum. yardmcı olmanız temennisiyle. saygılar.

 

[Emir Hüseyin Çoban]

. . .

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1.Value >= 0 And TextBox1.Value <= 10 Or TextBox1.Value = "" Then
Else
TextBox1.Value = ""
TextBox1.SetFocus
MsgBox "0-10 arasında bir değer giriniz", vbCritical
End If

End Sub

Düzeltme: Kodlar son ilavelere göre revize edildi.

. . .

 

[AyYıldızım]

Hüseyin Bey çok teşekkür ederim, emeğiniz için sağolun.

Birde Hüseyin Bey, textbox 1 de değer olmadığı zamanda uyarı veriyor textbox1 boşken uyarı vermemesini sağlayabilirmiyiz. saygılar.

 

[Emir Hüseyin Çoban]

. . .

If TextBox1.Value >= 0 And TextBox1.Value <= 10 Or TextBox1.Value = "" Then

. . .

 

[AyYıldızım]

Çok teşekkür ederim Hüseyin Bey, hızlı cevabınız için sağolun.