Herhangibir metin kutusuna girilecek karakter

[sakaryali]

Herhangi bir Form üzeründeki metin kutusuna girilecek karakter sayısını nasıl sınırlandırabilirim ve sadece sayı girilmesini nasıl sağlayabilirim???

 

[Hüseyin]

Merhaba sakaryali,

aşağıdaki kodları bie denerseniz sanırım istediğiniz olacaktır.
Bunları module değilde objelerin kendi kodları olarak girmelisiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Girilen değer numerik değilse Textboxten çıkışı engelliyor, bu durumda boşta olamıyor.
If IsNumeric(TextBox1.Value) Then
Cancel = False
Else
Cancel = True
Beep ' 'beep' sesi üretiyor
MsgBox ("Sadece sayı girin!") ' Uyarı penceresi açıyor.
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.MaxLength = 8
End Sub

Saygılar