Foro Excel

Comparto con ustedes el codigo para que en un TEXTBOX de un formulario, solo se permita la captura de letras y espacios (se pueden capturar vocales con acento)

Private Sub TextBox1_change()
Dim letra As Byte

On Error Resume Next

letra = Asc(Right$(TextBox1, 1))

Select Case letra
Case 32, 65 To 90, 97 To 122, 193, 201, 205, 211, 218, 225, 233, 237, 243, 250
Case Else
SendKeys "{bs}"
End Select

End Sub

Nota: Las vocales con acento, NO se deben de introducir presionando la tecla Alt + el numero (con el teclado numerico)

La tecla que UTILIZO en mi caso, esta a la izquierda de la tecla ENTER, tiene los dos simbolos de apostrofes " y ' , no se a cual correspondera en su teclado, pero es la que CREO normalmente utilizan ustedes para poner Acentos.

Anexo codigo del sr. Diego Turriaga......muchisimo mas compacto
Option Compare Text

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("aáí bcdeéí¨fghií­í¬jklmnñoóí²pqrstuúí¹í¼vwxyz ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Una preguntica al respecto..

Como validar para que me deje ingresar solo numeros????

Gracias

Ferchogz

y la respuesta de KL no te sirvio ?????

http://www.exceluciones.com/portal/viewtopic.php?t=6728&highlight=