Private Sub textbox1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
aradaşlar bu kodu bir türlü çalıştıramadım
1 tane userform oluşturup sonra textbox ekliyorum ve kodu forma kopyalıyorum sonra çalıştır ama olmuyor
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
aradaşlar bu kodu bir türlü çalıştıramadım
1 tane userform oluşturup sonra textbox ekliyorum ve kodu forma kopyalıyorum sonra çalıştır ama olmuyor