Textbox a Veri Girişi

[excelman]

Merhabalar;

Textbox a rakam harici veri girişini aşağıdaki kodla engelleyebiliyoruz

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0:
End Sub

Ben textbox a virgül ve nokta girişine de izin vermek istiyorum.Bunu sağlayan bir formül varmıdır?

Kolay Gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=7193&highlight=sadece+rakam*

 

[bage]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 45 Or KeyAscii > 57 Or KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = 0
End If

Umarım işinizi görür...

 

[excelman]

Sayın leventm, verdiğiniz link için teşekkür ederim kod işime yaradı.
Sayın bage verdiğiniz cevap nokta ve virgül girişine izin vermiyor.
Çizgi(-) ve Slaç(/) girişine izin veriyor

İlginize teşekkürler.