DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
If Not (IsNumeric(TextBox1)) Then SendKeys "{bs}"
End Sub
'
Private Sub TextBox2_Change()
If Right(TextBox2, 1) Like "[0-9]" Then SendKeys "{bs}"
End Sub
Private Sub TextBox1_Change()
If Right(TextBox1, 1) Like "[!0-9,]" Then SendKeys "{bs}"
End Sub