|
Hola para que tu texto box no te reciba si no números debes ingresar esta rutina.
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And _
TextBox1.Text <> "" Then
Beep
MsgBox "Campo numerico"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
Suerte y necesito que me califiques si no no puedo ayudar a mas personas ya que me bloquean
|