Verificar si en una cadena de texto hay un numero con vba
Quiero comprobar que al meter un dato en un textbox sean caracteres alfabéticos y que no entre un nº... Por ejemplo si meto "campa4nero"... Me reconozca que hay un 4 y que me avise con un msgbox.
1 Respuesta
Valdokken: Para hacer la prueba, inserta un TextBox en un Formulario que le puedes llamar TxtNumeros.
Copia éste Código.
Private Sub TxtNumeros_AfterUpdate()
Dim I As Integer
Dim Caracter As String
Dim CadenaTexto As String
Dim StrNumeros As String
CadenaTexto = Me.TxtNumeros
For I = 1 To Len(CadenaTexto)
If IsNumeric(Mid(CadenaTexto, I, 1)) Then
Caracter = Mid(CadenaTexto, I, 1)
StrNumeros = StrNumeros & Caracter
End If
Next
Me.TxtNumeros = StrNumeros
End Sub
No olvides Activar el Procedimiento Propiedades >> Eventos >> Después de Actualizar
Un saludo >> Jacinto
Disculpa pero releyendo tu pregunta me he percatado de algo que había pasado por alto, y es que tu quieres que "No te deje Introducir Números". Te preparo unas líneas y te las envío. Lo anterior ya lo tienes para extraer Números de una Cadena. Saludos >> Jacinto
Valdokkken:Espero acertar ahora.
En el Cuadro de texto que te comentaba, que ahora llamaré TBoxTexto
Copias éste Código y no te olvides de activar el Procedimiento >> Al pulsar una Tecla
Private Sub TBoxTexto_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90 'Mayusculas
Case 97 To 122 'Minusculas
Case 164 To 165 'ñ y Ñ
Case 8, 32 'Espacio y regreso de tabulador
Case Else
KeyAscii = 0
MsgBox "Solo se pueden teclear LETRAS en ésta caja de texto", vbInformation, "ERROR EN LA ENTRADA DE DATOS"
End Select
End Sub
Mis saludos >> Jacinto
