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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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 ;)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida