rakam yerine harf girildiğinde uyarı versin

[celine]

Arkadaşlar ekte yolladığım dosyada, rakam girilmesi gereken yerlere harf girildiğinde uyarı vermesini istiyorum. Birde programımda 18.hücreden kayıt girişi başlıyor 40.hücrede kayıt girişinin son bulmasını ve 41.de uyarı vermesini istiyorum. Nasıl yapabilirim acaba?

 

[Necdet]

Lütfen aynı konu ile ilgili yeniden başlık açmayınız.

http://www.excel.web.tr/showthread.php?p=218207#post218207

 

[Rıdvan01]

Private Sub textBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox " Harf girilmeyecek,Sadece Rakam ve " / " İşareti Girebilirsiniz ..."
End Sub

sanırım buda harf girişine izin vermeyen kod
deneyiniz