Textbox en excel
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
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
1 respuesta
Respuesta de inocampo
1