textbox a yalnızca sayı formatında veri girilmesi

[platipuss]

Arkadaşlar merhaba

sitede mutlaka vardır diye arama yaptım fakat ilginçtir bulamadım ya da gözden kaçırdım...

sorum textbox a yalnızca sayı formatında veri girilmesi text formatında ya da sayı olarak algılanmayacak her türlü datada hata mesajı iletmesi...


herkese iyi çalışmalar...

 

[algil]

Aşağıdaki kodu bi deneyin

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) = False And TextBox1 <> Empty Then
MsgBox "Sadece sayı girebilirsiniz."
TextBox1 = ""
End If
End Sub

 

[platipuss]

Cok Tesekkur Ederİm...