Quien Me ayuda

25/11/2005 - 21:30 por Ruben | Informe spam
Hola quisiera que me indiquen como hago para que un textbox solo me
acepte texto y espacio en blanco (ojo que cuando ingresen texto les
cambie a mayuscula automaticamente) pero que no me acepte numeros,
estoy usando el sgte codigo el cual me funciona pero me acepta en
minuscula como hago el cambio.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[a-z ]" Then KeyAscii = 0
Worksheets("Reportes").Range("f44") Worksheets("Reportes").Range("f44") & Chr(KeyAscii)
End Sub

si hay otra forma please diganme como lo puedo hacer si es posible
indiquenme el codigo, gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/11/2005 - 21:38 | Informe spam
hola, Ruben/Edison/[o lo que quieras poner] :))

... que un textbox solo me acepte texto y espacio en blanco
... que cuando ingresen texto les cambie a mayuscula automaticamente
... que no me acepte numeros [...]



si ya quedo 'entendido' lo de 'pasar' a la celda en el evento '_keypress'... :D
y el mismo tema que ya te habia dado en respuesta... :))
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If LCase(Chr(KeyAscii)) Like "[a-zñ ]" _
Then KeyAscii = Asc(UCase(Chr(KeyAscii))) _
Else KeyAscii = 0
End Sub

saludos,
hector.

p.d. [disculpa que 'insista', pero...] necesitas darte mas tiempo y ANALIZAR el contenido TOTAL de las propuestas ;)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida