Textbox el cual solo se pueda introducir números o la letra C
Necesitaría una macro para que el textbox solo deje introducir números y la letra C.
He desarrollado esto:
Private Sub num_caixa_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Del 48 al 57 son todos los números del 0 al 9 y el 67 la C If (KeyAscii >= 48 And KeyAscii <= 57) And (KeyAscii = 67) Then KeyAscii = KeyAscii Else KeyAscii = 0 End If End Sub
pero no no me va bien, alguien me podría decir cual es el fallo? El fallo que me da es que no me deja introducir ningún tipo de caracter
2 respuestas
Respuesta de Julián González Cabarcos
1
No es en el evento al presionar, sino en el evento Al bajar una tecla
Private Sub CargoContacto_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <= 47 Or KeyCode >= 58 And KeyCode <> 67 Then
KeyCode = 0
End If
End Sub
¡Gracias! he cambiado el and por el or y me ha funcionado. Siento no poder valorar tu respuesta como se merece pero seguro que es buena. :)