Podria algún experto corregir y comentarme algunas líneas de este código? si no todas, algunas
Sub valida_letras()
StrValido = "EJV1234567890-" ' + Chr(32) 'caracteres a reconocer, este aquí en minúsculas o mayúsculas
Ini_Tecla = Tecla 'Ini_Tecla será
Tecla = Asc(UCase(Chr(Tecla))) 'Transforma y reconoce la tecla como mayúscula
If Tecla > 26 Then 'Esta línea a que corresponde? y ¿el 26 a que?
If InStr(StrValido, Chr(Tecla)) = 0 Then
Tecla = 0
Else 'si no
Tecla = Ini_Tecla 'Tecla será Ini_Tecla
End If 'final del 1º If (si)
End If 'final del 2º If (si)
End Sub[/CODE]
Gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Podria algún experto corregir y comentarme algunas líneas de este código? si no todas, algunas
Gracias