Permitir Solo Números en Textbox

Hola Amigos.
Deseaba Consularles lo siguiente.
Tengo diseñado un Formulario, en el cual un textbox solo se deben permitir Datos de Texto,
lo que me gustaría que hiciera es que cuando se ingrese un Numero o cualquier dato que no sea numero, este se elimine (pero solo el dato ingresado, no la frase completa que halla en este).
Esperando su buena ayuda.
Gracias Expertos
Respuesta
1
Para que no escriban números te puede servir esto:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   numero = KeyCode
   If numero < 106 And numero > 95 Then
      TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
   End If
End Sub
Experto Gracias por t ayuda
Pero tengo un pequeño problemita...
Que efectivamente si yo ingreso números números seguidos me elimina el ultimo
Ingresado. Pero al momento que dejo presionado un Numero sin soltar, me sige ingresando
Números..
Con este código solo permite letras
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   VALVIEJO = TextBox1
   If KeyCode > 48 And KeyCode < 58 Then
      KeyCode = 1
   End If
   If KeyCode > 95 And KeyCode < 106 Then
      KeyCode = 1
   End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Operaciones con textbox

En un formulario tengo un label y 2 textbox, en el Label aparece la cantidad de días del mes seleccionado con un combobox(ej, Diciembre = 31 días) este dato servirá para restar con los datos que le ingreso al textbox1, de tal manera que el valor que...
1 respuesta

Poder pasar de un textbox a otro textbox frame

Tengo un formulario en cual capturo un dato en un textbox y luego de darle enter debe pasar a otro textbox en un frame distinto dentro del mismo formulario. Me podrían decir que estoy haciendo mal que cuando doy el enter se me pierde el cursor y no...
1 respuesta

Pasar de textbox a texbox con Enter

Estoy aprendiendo a programar en Excel y realice un formulario con muchos Textbox y combos para capturar información, pero no quiero ir dando clic uno por uno ya que son demasiados, quiero dar enter y que pase al siguiente y así sucesivamente.
1 respuesta

Evento pulsar la tecla tab en formularios

Estoy trabajando en un formulario en visual basic-excel, y deseo crear en un textbox el evento en que se pulse la tecla tab, de forma que se programe la consecuencia de su pulsación.
1 respuesta

Buscar de textbox1 y mostrar resultado(s) en lista

En Excel Necesito que al escribir un dato en el textbox1 busque los datos en la hoja1 columna A y me de todos los datos que coincidan de la columna B A B RUT Numero 11.111.111-0 1540 22.222.222-k 7080 33.333.333-7 1212 11.111.111-0 1657 33.333.333-7...
1 respuesta

Textbox que solo acepte números y guiones

Mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código : If Not IsNumeric(TextBox1) Then Dim mensaje As String mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar...
3 respuestas

Copiar valor textbox a una celda

Tengo un textbox con el que quiero que al introducirle un valor alfanumérico, éste se copie en una celda determinada, por ejemplo A1, y que cuando salga del textbox el valor se borre de éste pero que lo mantenga en la celda (algo así como copiar sólo...
1 respuesta