textbox'a girilen verileri sınırlamak

[takoo]

merhaba arkadaşlar.bir textbox'umuz var,buna sadece sayıların girilmesini istiyoruz ve dahası bizim belirlediğimiz sayılardan birinin girilmesini istiyoruz.örneğin textbox1 e 1 ile 20 arasındakisayılar girilebilir.yardımcı olursanız çok sevinirim,şimdiden teşekkürler iyi çalışmalar.
ha bir de bir kod bloğunda bizim belirlediğimiz ölçüler dışında bir gelişme olursa şu karşımıza çıkan hata iletisi yerine bizim belirlediğimiz bir ileti çıksın veyahut o kod bloğu direkt son bulsun. mesela
Documents.Open FileName:="t1" böyle bir dosya yok ise ya kod bloğu son bulsun ya da bizim belirlediğimiz bir ileti çıksın. bu konuda da yardım ederseniz sevinirim.

 

[Orion1]

Merhaba.
Tetxbox için aşağıdaki kodları userformun kod sayfasına yapıştırın.
İyi çalışmalar.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < 1 Or TextBox1.Value > 20 Then
    MsgBox "Girdiğiniz sayı 1 ile 20 arasında olmalıdır.", vbCritical
    Cancel = True
End If
End Sub

 

[takoo]

teşekkür ederim, işin rastgelsin,iyi çalışmalar