Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Conversor de números a letras

Titulo:.zip

Conversor de números a letras

Autor:Jorge Eduardo Gallegos Torres (gatje@hotmail.com)
Lenguaje:Excel
Ejemplo de una macro en Excel para la conversión de números a letras.

Comentarios (61)Votos positivos 85%Votos negativos 15%

21/03/2006 Abel Barón Gutiérrez ok
Sr. Gallegos reciba usted una doble felicitación de mi parte: en primer lugar por la excente macro desarrollada para convertir números a letras y en segundo lugar por su generosidad para compartirla. Le pregunto: porqué la macro no aparece en la ventana de macros?
12/05/2006 Guadalupe Leija Flores ko
Felicidades.....te quedo excelene..... LA COPIA!!!!!
26/05/2006 Ivan ok
Esta buenisimo GRACIAS.
15/06/2006 Victor ok
Gracias, hacia tiempo que buscaba este codigo...
05/07/2006 PLACIDO PARADA CUBIDES ok
GRACIAS POR SU COLABORACION. SU TRABAJO ES MUY IMPORTANTE
25/07/2006 pedro ko
¿Como se ejecuta la macro? Probé con un botón y nada.
26/09/2006 Danny Torres Salinas ok
Gracias Jorge Gallegos, la verdad no se programar en visual pero se algo de programacion en la cual modifique algunos datos y ahora ya puedo usar esa funcion, si hubiese mas puntuacion de 10 votaria por mas, porque fue de mucha utilidad,
MUCHAS GRACIAS
29/09/2006 Reinaldo Camaño ok
Muy bueno el conversor, pero no me funciona para 1000000.
01/10/2006 Andres ok
Una pregunta. pero como le puedo quitar lo q dice pesetas?... y cambiar de denominacion de moneda?

Andres
09/11/2006 E Gallegos ok
Guadalupe Leija Flores gleija01@hotmail.com <-- Yo soy el autor de mi conversor, lo hice yo mismo, y a ti te lo mande desde mi buzon, si quieres te mando tambien el conversor para Access, Visual, SQL, y otros, digo por si quieres tambien modificarlos y compartirlos con tu nombre y dejando a un lado al verdadero Autor. No se vale, pero cuestion de etica, Saludos.
Suerte!!!

E. Gallegos
10/12/2006 Norberto Morillo ok
Gracias por el codigo es bastante bueno.
Excel, menu herramientas, Macros, editor de Visual Basic.
En el modulo en la funcion llamada letra por el final de la funcion modifique el nombre de la moneda de su pais ejemplo LEMPIRAS moneda de Honduras:

If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " LEMPIRAS CON" & Trim(Decimales) & "/100 CENTAVOS"
Else
Cadena = Cadena & " " & Trim(CadCientos) & " LEMPIRAS CON" & Trim(Decimales) & "/100 CENTAVOS"
End If
10/12/2006 Norberto Morillo ko
lo que no me gusta es que E Gallegos dice que es su codigo y que es una macro. Dos mentiras es una Function del emulador de VB que tienen Office no una MACRO y dos no es un codigo que es desarrollado por el. ABAJO ESTA COMO MODIFICARLO PARA PONER LA MONEDA DE CADA PAIS.

saludos,

Norberto.
26/01/2007 Adriana ko
Es verdad: no funciona para 1.000.000.-
02/04/2007 leo ko
Mira el código en si funciona de perlas.
El problema es que no traduce las cantidades "redondeadas" por Excel. Ejemplo
Si el total de la factura es 15.255,64. eso se redondea a 15.256. la función proporcionada no acepta el redondeo hacia una unidad mas.
Saludos
10/05/2007 Fernando ok
Miren independientemente de quin lo realzo el codigo esta muy bueno; y creo que en realidad esa es la idea de esta pagina; compartir.-
Un abrazo y gracias.-
18/05/2007 Jorge MD ok
A TODO DAR!!! ya tenia yo como 5 dias queriendo hacer uno pero solo llegue hasta numeros de 4 digitos... perfecto y facil de entender....
31/05/2007 aaa ko
por favor esto no funciona, sean serios
13/06/2007 Victor ok
Muy buena macro, solo con un pequeño detalle, cuando pongo la cantidad sin decimales, me pone nada mas la cantidad, perfecto, pero por que no me pone "PESOS 00/100 M.N." me podrian ayudar?.... mi correo es victorchavez29@msn.com
24/06/2007 Eddie Urrutia ok
vale loko me sirvio caleta
si es copia me da lo mismo total lo vi aca
xauuu
24/07/2007 JAH625 ok
Antes de sufrir algun comentario sobre la antiguedad del post alego que lo escribo porque el codigo funciona y alguien lo puede descargar y encontrarse con lo mismo.

Hay que modificar lo siguiente:

(como no se puede subrallar, lo pongo asi)

ANTES

If Millones & Miles & Cientos & Decimales = \\\"000000\\\" Then
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(Decimales) & \\\"/100 CENTAVOS\\\"
Else
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(Decimales) & \\\"/100 CENTAVOS\\\"
End If

DESPUES

If Millones & Miles & Cientos & Decimales = \\\"000000\\\" Then
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(cadDecimales) & \\\"/100 CENTAVOS\\\"
Else
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(cadDecimales) & \\\"/100 CENTAVOS\\\"
End If
24/07/2007 JAH625 ok
No hubiera sufrido ningun comentario puesto que el ultimo fue hace un mes y aparte que las barras sobran se han puesto al enviar el comentario. Lo que hay que cambiar es "decimal" por "caddecimal"
24/07/2007 JAH625 ok
Lo he hecho de memoria. el cambio es Decimales por caddecimales
06/08/2007 muchas gracias! ok
Solo que le cambié algunas cosas, lo modifiqué a metros y centímetros y con minúsculas. Gracias otra vez :-)
04/09/2007 Alonso ok
Tengo un Problema cuando lso centavo estan en 00 NO pone al final 00/100 pesos M.N. ya le estuve buscando y no lo hace podrian ayudarme pro favor, fuera de eso todo esta genial saludos....
02/10/2007 Javier ok
Muy buen programa, lo feliito
16/10/2007 Manuel Rojas ok
Ha realizado una valoración positiva de este curso.
18/10/2007 Wilson Riaño ok
Me parece sencillo y practico, bueno.
12/11/2007 Jorge Ramirez ok
Es bueno, pero creo que se puede simplificar. De hecho he visto algun otro que esta mas sencillo.
26/11/2007 Manu ok
Bonito. es una buena forma de insertar una funcion util.
16/01/2008 manuel ok
excelente, muy buen aporte.
Muchas gracias
21/01/2008 Ana ok
Muchas gracias por haber compartido esto, he buscado varios macros y la mayoría tiene muchos errores. En cuanto a que si se tiene .00 en los decimales, eso lo arregle desde Herramientas --> Macro --> Editor de Visual Basic, le das CONTRO+F y busca la palabra PESOS, arriba hay una parte donde menciona "00" y no tiene la parte de que escriba PESOS Y M.N. hay que ponérsela:
If Decimales = "00" Then
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO "
Else
If Miles & Cientos = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If
letra = Trim(Cadena)
End If
Else
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO " & "CON " & Trim(caddecimales)
Else
If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If

EXCELENTE!!!
13/03/2008 Marco Esquivel ok
Excelente macro!
27/03/2008 Nubia ok
Hola, al final de toda la instrucción, sólo debo dar "guardar" y cómo empiezo a utilizarla?
Gracias
09/04/2008 issac ok
gracias por darnos trucos y hacernos la vida mas fasil, esta tecnica de conversor de numero a letra la busque desde hace mucho tiempo y no habia tenido respuesta gracias por su ayuda, mexico d.f.
16/04/2008 sergio ok
Buena la macro, sin embargo se confunde con los numeros 1.000.000, 1.000.000.000 y sucesivamente despues de cada mil millones y el mismo numero mas 100 millones. los primeros los reconoce como 0 cero y los segundos como espacio.

si te sirve para corregir.....
27/04/2008 Jose ok
Muchisimas gracias!, me sirvio de mucho tu codigo :-)
10/05/2008 Hainer Alexander Baquero ko
Hola, te felicito por que me parece muy interesante la macro, aunque tuve un problema, no me sirve para "un millon", que puedo hacer para solucionar este inconveniente.

22/06/2008 Santiago ok
Gracias, esta macro esta genial... Aqui en Colombia tienen otro amigo más..... Vayan con Fé......
30/06/2008 Walter TC ko
Está ok, pero solo llega hasta 999,999,999 (NOVECIENTOS NOVENTA Y NUEVE MILLONES NOVECIENTOS NOVENTA Y NUEVE MIL NOVECIENTOS NOVENTA Y NUEVE)
15/07/2008 Armando Arias ok
Exelente aca en chile no manejamos decimales para el dinero por lo que no tengo ningun problema y me ahorro estar escribiendo a cada rato la cifra en letras
31/07/2008 juan ok
na... me quiero matar... hace 2 años que vengo trabajando con precios, con numero y letra, y yo siempre lo puse a mano.. jeje.. que comando facil.. gracias
15/09/2008 GILBERTO ok
Felicidades, excelente utilidad
18/11/2008 JAIRO ok
Excelente ,, gracias por tu aporte. ´

He probado con versiones anteriores de office pero al parecer no funciona con Officce 2000 Profesional la formula, agradeceria cualquier información.

Nuevamente Gracias.
26/02/2009 leo ok
muy bueno
12/03/2009 Winston RAmirez ok
Muy bien
07/05/2009 Daniel Hernández ok
EXCELENTE... me parece magnifico, ya con la correción. Me resulta muy útil. Gracias por compartir esta aportación.
06/06/2009 Oscar ok
Excelente!!!!

Saludos
Osky
10/06/2009 yacson ok
interesante la funcion
14/07/2009 mau ok
ESTA EXCELENTE Y ES FACIR DE PASAR A OTROS LIBORS EN EXCEL 2007 VIA VISUAL BASIC.
SOLO QUE NO SE COMO CAMBIAR EL CODIGO PARA QUE EN CASO DE QUE LA CANTIDAD NO TENGA DECIMALES DE TODAS FORMAS LE PONGA PESOS 00/100 M. N., COMO LE HAGO?
FELICIDADES¡¡¡¡¡¡¡¡¡¡¡¡¡
28/07/2009 kARINA ok
no se como correrla, o sea estoy trabajando en mi hoja y copio pero resulta un error, se q es mi culpa y q no se utilizarla, espero puedan ayudarm...

muy bueno este aporte
09/09/2009 JCT ok
Muy bueno me sirvio bastante
Muy buen archivo felicidades
30/09/2009 david ok
excelente codigo, funciona a las 1000 maravillas..
08/11/2009 georgina ko
Buen trabajo pero le encuentro las siguientes contras:
si el nº es mayor a mil millones no da error y da el valor en letras hasta las 9 cifras enteras solamente
cuando el numero es decimal debería aparecer la cantidad decimal en letras
si el nº es decimal o sea por ej. 0.25 no muestra bien 25 centavos
08/12/2009 Ricardo de luna ok
justo lo que necesitaba, gracias ya podre terminar mis facturas mas rapido
10/01/2010 jorge ok
Por favor podrían publicar cuál es el código fuente del macro en excel, porque no reconoce la función...
12/02/2010 MARTHA BAQUERO ko
la macro tiene 2 errores no identifica el millon en cifra cerrada $1,000,000 tampoco identifica $1,000,000,000

23/02/2010 Ernesto ok
Muy buena la macro , solo hay que mejorarle, la parte de la moneda nacional.
Saludos
19/07/2013 Edward Nuñez ok
Gracias por la valiosa información. Quisiera saber como se ajusta el codigo para que identifique los MILES DE MILLONES 1.000'000.000- y Superiores. Saludos
26/10/2013 Alberto_123 ok
El problema es mucho más complejo de lo que se presenta aquí. Existen más opciones válidas por la Real Academia, la construcción del femenino y demás. Vean la aplicación que lo resuelve prácticamente todo:

http://tip.dis.ulpgc.es/numeros
01/11/2013 santiago ko
algien me puede ayudar a buscar donde sale para escribir los numeros
25/05/2014 carlos ok
ayuda no se como utilizar el codigo y para convertir los numeros

Comenta este código fuente

Nombre
Correo (no se visualiza en la web)
Valoración del curso ok ko
Comentarios