kod çalışma hatası

[cobra29]

Private Sub textbox1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub


arada&#351;lar bu kodu bir t&#252;rl&#252; &#231;al&#305;&#351;t&#305;ramad&#305;m
1 tane userform olu&#351;turup sonra textbox ekliyorum ve kodu forma kopyal&#305;yorum sonra &#231;al&#305;&#351;t&#305;r ama olmuyor

 

[Levent Menteşoğlu]

Yapmak istediğiniz nedir?

 

[cobra29]

textbox a sadece numaratik değer girilmesi

 

[Ali]

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub

veya


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Asc(".")
Case Else
KeyAscii = 0
End Select
End Sub

 

[cobra29]

teşekkür ederim arkadaşım çok sağol..........