Haciendo peripecies (trapesio, cuerda floja o bicicleta en el alambre como quieran pensarlo) con partes de codigos forme esto pero no logro tampoco que me funcione, el objetivo es el mismo, dependiendo del cual seria mas facil adaptarlo.
De un codigo quite este que SOLO pretendo que reconozca SOLO las 3 letras E, V, y J NINGUNA OTRA
Código:
Select Case KeyAscii
Case 69, 74, 86 'E,J,V
Case Else
'Si no es ninguna de LAS 3 letras indicadas manda un mensage o retorna 0
MsgBox "Solo permitido al inicio, tecla V E J", vbInformation, Title:="CARACTER NULO"
KeyAscii = 0
End Select
luego de otro esto, para que ACEPTE SOLO números
Código:
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0 '<-- Esta linea es para borrar la tecla presionada equivocadamente
'Si no es ninguna de letras indicadas manda un mensage o retorna 0
MsgBox "Solo permitido números", vbInformation, Title:="CARACTER NULO"
End If
y por ultimo este para que me auto ingrese el guion de echo lo hace probado solo
Código:
Select Case Len(txt_RIF_CI)
Case 1, 10
txt_RIF_CI = txt_RIF_CI & "-"
End Select
Uni todo el codigo, las 3 partes en el evento
Código:
Private Sub txt_RIF_CI_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(StrConv(Chr$(KeyAscii), vbUpperCase))
SOLO para que llegue a 12 caracteres
If Len(Me.TextBox3) = 12 Then KeyAscii = 0: MsgBox "LLego al MAX de 12 caracteres": Exit Sub
em el orden que estan pero nada logre.
TOTAL, quiero que me reconozca las 3 letras, SOLO al inicio del TextBox, NI ESTAS 3 NI NINGUN OTRA PERMITA DE ENTREMEDIO despues del 1ª guion y hasta el 9, el o los guiones auto entran y luego que solo me reconozca números
Ej. En la caja (TextBox) quedaria así E-12345678-9
Como mensione arriba, quiero que solo valide las 3 letras, que no permita las mismas o otra letra de entremedio y que solo permita las 3 AL INICIO.
Gracias de antemano por vuestra ayuda