Şartlı texboxsa veri girişinde yardım

[fatih34]

Sayın hocalarım textbox1 gelen evrağın sayısını 2013/1550 şeklinde yazdırmak istiyorum. Harf girildiğinde uyarı vermesini ancak bu şekilde girişe izin vermesi için hangi kodu yaza bilirim. Bu konuda yardımcı olursanız sevinirim.


Ayrıca: çalışmamda bulunan başka textboxlara sadece rakam girilmesi içinde hangi kodu kullanmalıyım

 

[Trilenium]

http://www.excel.web.tr/f48/textboxa-sadece-rakam-veya-sadece-harf-girebilmek-t11446.html

 

[fatih34]

sayın hocalarım textbox1 gelen evrağın sayısını yazıyorum. Örnek olarak 2013/1545 gibi.
Sadece sayı girilmesi için formda bulduğum kodu çalışmama uygulamadım. Ancak sılaş işaretini koyduğum zaman sayı değeri girmelisiniz diye uyarı işareti veriyor.
Aşağıda vermiş olduğum kodu hata vermeden giriş yapmak için ne yapmam gerekiyor. Bu konuda yardım ederseniz sevinirim.

Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = 0 Then Exit Sub
    If Not IsNumeric(TextBox1.Text) Then
        Beep
        MsgBox "Numerik olmayan bir değer girdiniz.LÜTFEN EVRAĞIN ŞUBEYE GİRİŞ SAYISINI GİRİNİZ"
    End If
       
End Sub

 

[fatih34]

sayın hocalarım sorun çözülmüştür. Teşekkürler