de numero a letra SIN MACRO

[3pies]

Copia y pega esto:

Código:

=SI(LARGO(A6)<3;"";ELEGIR(IZQUIERDA(DERECHA(A6;3);1)+1;"";SI(DERECHA(A6;2)="00";"CIEN ";"CIENTO ");"DOSCIENTOS ";"TRESCIENTOS ";"CUATROCIENTOS ";"QUINIENTOS ";"SEISCIENTOS ";"SETECIENTOS ";"OCHOCIENTOS ";"NOVECIENTOS "))&SI(O(VALOR(DERECHA(A6;2))<10;VALOR(DERECHA(A6;2))>19);"";SI(VALOR(DERECHA(A6;1))>5;"DIECI";ELEGIR(VALOR(DERECHA(A6;1))+1;"DIEZ ";"ONCE ";"DOCE ";"TRECE ";"CATORCE ";"QUINCE ")))&SI(VALOR(DERECHA(A6;2))<20;"";ELEGIR(IZQUIERDA(DERECHA(A6;2);1)-1;SI(DERECHA(A6;1)="0";"VEINTE ";"VEINTI");"TREINTA ";"CUARENTA ";"CINCUENTA ";"SESENTA ";"SETENTA ";"OCHENTA ";"NOVENTA "))&SI(Y(VALOR(DERECHA(A6;2))>30;DERECHA(A6;1)>"0");"Y ";"")&SI(O(VALOR(DERECHA(A6;2))<10;VALOR(DERECHA(A6;2))>15);ELEGIR(DERECHA(A6;1)+1;"";"UN ";"DOS ";"TRES ";"CUATRO ";"CINCO ";"SEIS ";"SIETE ";"OCHO ";"NUEVE ");"")

o bien esto otro (sustituyendo el punto y coma, por una coma):

Código:

=SI(LARGO(A6)<3,"",ELEGIR(IZQUIERDA(DERECHA(A6,3),1)+1,"",SI(DERECHA(A6,2)="00","CIEN ","CIENTO "),"DOSCIENTOS ","TRESCIENTOS ","CUATROCIENTOS ","QUINIENTOS ","SEISCIENTOS ","SETECIENTOS ","OCHOCIENTOS ","NOVECIENTOS "))&SI(O(VALOR(DERECHA(A6,2))<10,VALOR(DERECHA(A6,2))>19),"",SI(VALOR(DERECHA(A6,1))>5,"DIECI",ELEGIR(VALOR(DERECHA(A6,1))+1,"DIEZ ","ONCE ","DOCE ","TRECE ","CATORCE ","QUINCE ")))&SI(VALOR(DERECHA(A6,2))<20,"",ELEGIR(IZQUIERDA(DERECHA(A6,2),1)-1,SI(DERECHA(A6,1)="0","VEINTE ","VEINTI"),"TREINTA ","CUARENTA ","CINCUENTA ","SESENTA ","SETENTA ","OCHENTA ","NOVENTA "))&SI(Y(VALOR(DERECHA(A6,2))>30,DERECHA(A6,1)>"0"),"Y ","")&SI(O(VALOR(DERECHA(A6,2))<10,VALOR(DERECHA(A6,2))>15),ELEGIR(DERECHA(A6,1)+1,"","UN ","DOS ","TRES ","CUATRO ","CINCO ","SEIS ","SIETE ","OCHO ","NUEVE "),"")

Salu2

PD: La fórmula publicada en el link, tenía unos signos menos que sobraban (parecía una fórmula copiada y pegada en word, y que al cambiar de línea, cortada la palabra con guiones, al estilo de una frase convencional).