de numero a letra SIN MACRO

AxiLA · #1 (**permalink**) 13/06/2007, 12:33

hola, soy nuevo en el foro .. espero que me puedan ayudar con esto...

vi que en otros post hay formas de pasar de numero, por ejemplo "120" a letra "cientoveinte" pero se hacian a travez de vb...

mi profesor pidio si alguien podia realizar una formula para hacer eso ( de numero a letra o al revez ) .... alguien la tiene??

desde ya, garcias!!!

ideasking · #2 (**permalink**) 13/06/2007, 13:15

Estudie esto quizas te pueda servir:

http://office.microsoft.com/es-es/ex...366193082.aspx

Suerte

abrahamvj · #3 (**permalink**) 13/06/2007, 13:28

O esto:

http://groups.google.com/group/micro...&rnum=1&hl=es#

Abraham

AxiLA · #4 (**permalink**) 13/06/2007, 13:58

el problema es que no puedo utilizar el editor de VB... lo tengo que hacer solamente en el excel :S

abrahamvj · #5 (**permalink**) 13/06/2007, 15:11

Si lees BIEN el enlcae que te di, veraz que no se usa VBA solo FORMULAS DEL EXCEL

Abraham

AxiLA · #6 (**permalink**) 15/06/2007, 10:49

la verdad que no veo ninguno sin vb :S:S me podes copiar y pegar la formula???

disculpa las molestias

abrahamvj · #7 (**permalink**) 15/06/2007, 11:01

=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",ELEGI R(VALOR(DERECHA(A6,1))+1,"DIEZ ","ONCE ","DOCE ","TRECE ","CATORCE ","QUINCE ")))&SI(VALOR(DERECHA(A6,2))<20,"",ELEGIR(IZQUIERD A(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(A 6,2))>15),ELEGIR(DERECHA(A6,1)+1,"","UN ","DOS ","TRES ","CUATRO ","CINCO ","SEIS ","SIETE ","OCHO ","NUEVE "),"")

Abraham

AxiLA · #8 (**permalink**) 15/06/2007, 11:12

ahh... me salta un error cuando lo pongo en excel me lo podes mandar en un archivo de excel? o agregame al msn [email protected]

gracias

abrahamvj · #9 (**permalink**) 15/06/2007, 13:02

cambia las comas (,) por puntos y comas (;)... ...

Abraham

AxiLA · #10 (**permalink**) 15/06/2007, 18:14

no me anda :S

JavierB · #11 (**permalink**) 16/06/2007, 04:02

Hola AxiLA

Revisa un poco la fórmula. Además de cambiar las comas por puntos, hay algunos espacios en blanco que se han "colado" porque es un texto muy largo y el editor del foro lo corta.

Saludos,

AxiLA · #12 (**permalink**) 16/06/2007, 09:14

Cita:

Iniciado por JavierB

Hola AxiLA

Revisa un poco la fórmula. Además de cambiar las comas por puntos, hay algunos espacios en blanco que se han "colado" porque es un texto muy largo y el editor del foro lo corta.

Saludos,

intente pasando todo a punto y coma y borrando los espacios pero me sigue dando error.... por favor alguien que me lo pase hecho se lo agradeceria

3pies · #13 (**permalink**) 16/06/2007, 10:03

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).

AxiLA · #14 (**permalink**) 17/06/2007, 12:19

parezco idiota pero copio y pego la formula y en la celda aparece #¡VALOR!

JavierB · #15 (**permalink**) 17/06/2007, 12:41

Hola de nuevo.

Tienes que poner un número en la celda A6 para que aparezca, en letra, en al celda donde has puesto la fórmula.

Saludos,

AxiLA · #16 (**permalink**) 17/06/2007, 12:57

es verdad, muchas gracias... no me habia dado cuenta, como hago ahora para que pase de letra a numeros??

abrahamvj · #17 (**permalink**) 18/06/2007, 09:10

La tarea es nuestra o tuya?? una cosa es ayudar, pero pedir que te hagan tod, pues, es otra cosa

Abraham

AxiLA · #18 (**permalink**) 18/06/2007, 10:29

pido mil disculpas si estoy muy pedigueño... es que estoy en semejante urgencia para hacer esto y practicamente sin tiempos viajando día de pormedio que no me puedo poner a estudiar el cómo ni desarrollarlo... cuando ésta etapa termine prometo ponerme a disposicion del foro y sus preguntas...

es muy complicado pasar de letra a numero??

julialop · #19 (**permalink**) 21/10/2008, 14:49

Hola muchas gracias por la formula pero ¿si tiene decimales? por ejemplo para poner en letras euros??

julialop · #20 (**permalink**) 21/10/2008, 14:51

Hola perdona el atrevimiento pero me urge saber como poner en letra moneda, es decir, con decimales
un saludo
julia

Antonio8688 · #21 (**permalink**) 21/10/2008, 22:57

Para julialop y para AxiLA:

Consulten en este Link:

http://www.teladearana.es/descargas.html?func=startdown&id=2

Aquí podrán descargar lo que andan buscando.

__________________________________________________
Un saludo desde Barranquilla, la Puerta de Oro de Colombia

LEGULEYA · #22 (**permalink**) 29/10/2009, 21:27

Abraham, por favor ayudame. Hice todo lo que dijiste paso a paso, me resultó, pero tengo un problema. Necesito llegar por lo menos al 9.999, y la formula que das solo llega al 999, por eso invente un anexo a la misma para que me diera los miles, copiando los modelos de las otras, pero me dice que la formula es demasiado larga y no me da opcion de reducirla, le he bajado todos los espacios. No se que más hacer.

caesar.l · #23 (**permalink**) 30/10/2009, 00:16

No revivas temas viejos, viene en Políticas del foro

Cita:

2.8 Los usuarios no pueden revivir o reactivar temas publicando información inútil o sin sentido, o llevando a cabo cualquier otra acción para deliberadamente mantener arriba en el índice del foro dicho tema.

Lo que puedes hacer es dividir la formula

Por ejemplo si en la celda A1 esta el numero 1 234 567.00 Pues una que clasifique si hay millones en A2, una que calsifique miles en A3, otra que casifique los cientos (que es el ejemplo que muestran) en A4 y una para las fracciones en A5 y en A6 una concatenación de las celdas anteriores "=concatenar (A2:A6)" y ahí tendrias todo el resultado