morferon

Carlos soloffice respondió: Te propongo esto. Crea un módulo y copia este código: Function CODIFICAR(numero As String) As String Dim sNumeros As String Dim sLetras As String Dim i As Integer Dim sResultado As String sNumeros = "0123456789" sLetras = "ABCDEFGHIJ" sResultado =...