aşağıdaki kodları bie denerseniz sanırım istediğiniz olacaktır.
Bunları module değilde objelerin kendi kodları olarak girmelisiniz.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.