26/10/2006, 18:00
|
| | | Fecha de Ingreso: febrero-2006
Mensajes: 446
Antigüedad: 19 años, 2 meses Puntos: 3 | |
| gndark muchas gracias por tu ayuda,los codigos me funcionan bien,pero lo unico que no puedo conseguir es utilizar la barra espaciadora.
por ejemplo no puedo escribir:
hola gndark
porque el codigo para aceptar letras no permite generar ese espacio,como puedo solucionar ese problema?
gracias
On Error Resume Next
' si no es una letra entre la A y la Z
' en mayúscula o minúscula
If Not Chr(KeyAscii) Like "[A-Za-z]" Then
Select Case KeyAscii
' si es un retroceso, enter o tabulación
Case vbKeyBack, vbKeyReturn, vbKeyTab
' no se hace nada
Case Else
' si no, se anula el caracter
' introducido
KeyAscii = 0
Beep
End Select
End If |