TextBox rakam denetimi

[kelkitli]

Değerli Dostlar Selamlar,
TextBox a TC Kimlik no girmekteyim. Rakam girince yazsın, harf girince yazmasın, 11 rakamı geçince uyarsın, 11 rakamdan az yazılınca çıkışta TextBox u temizlesin çıksın. Yani TextBox ya 11 rakam olmalı, yada boş olmalı.
Nasıl bir kod yazılması gerekir.
Saygılar.

 

[fedeal]

Private Sub TextBox1_Change()
If Len(TextBox1) > 11 Then MsgBox "FAZLA GİRİŞ YAPILDI"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then TextBox1 = ""
End Sub

İyi çalışmalar.

 

[dEdE]

Merhaba,
Bir alternatif de benden olsun.
Rakam girince yazar, harf girince yazmaz, 11 rakamı geçmesi mümkün olmaz, 11 rakamdan az yazılınca çıkışta uyarır ve TextBox u temizler.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then
MsgBox "Eksik Rakam Girdiniz !" & vbCrLf & "T.C. Kimlik nosu 11 Karakterdir.", vbCritical, "D İ K K A T  !"
TextBox1.Value = ""
End If
End Sub

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
    If Len(TextBox1.Value) > 11 Then SendKeys "{BS}"
End Sub

 

[kelkitli]

Sayın fedeal, Saın dEdE, teşekkür ederim. İşlem tamadır.

 

[can_26]

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0: MsgBox "Lütfen Rakamsal Değer Giriniz"
End If
End Sub

böyle bir kodla da yine girilen verinin rakamsal olup olmadığını kontrol edebilirsin.nacizane aklıma geldi yazayım istedim...