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

Basic - ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:Martha Contreras Hernandez (3 intervenciones)
Fecha:01/09/2008 22:10:00
SOLO REQUIERO QUE ME AYUDEN EN DECIRME COMO HACER PARA ESCRIBIR UNA CANTIDAD EN NUMERO Y SE ESCRIBA AUTOMATICAMENTE EN LETRA, ESTO LO REQUIERO PARA HACER POLIZAS DE CHEQUE Y AHORRE TIEMPO Y FALTAS DE ORTOGRAFIA, MUCHO LES AGRADECERIA ME AYUDEN DE VERDAD QUE SI LO NECESITO
ATENTAMENTE
MARTHA CONTRERAS
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Rawl (1 intervención)
Fecha:03/09/2008 04:00:34
no entiendo, algo como que escribas 1975 y salga MIL NOVECIENTOS SETENTA Y CINCO o algo asi?
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Martha Contreras Hernandez (3 intervenciones)
Fecha:03/09/2008 17:33:32
EXACTAMENTE, UN UNA OCACION UNA COMPAÑERA DE UN TRABAJO QUE ANTERIORMENTE TENIA ASI HACIA LAS ´POLIZAS DE CHEQUE ELL DICE QUE FUE A UN CURSO DE EXCELL DONDE LE ENSEÑARON A UTILIZAR LOS MACROS Y HACI HACIAMOS LAS POLIZAS DE CHEQUE,

ESCRIBIAMOS 1795
Y EN EL RENGLON DE ABAJO
SE ESCRIBIA
UN MIL SETECIENTOS NOVENTA Y CINCO PESOS 00/100 M.N.)

ESPERO QUE ME PUEDA AYUDAR, DE VERDAD QUE LO REQUIERO POR EL TIPO DE TRABAJO QUE DESEMPEÑO, SOLO QUE ESA AMIGA YA NO LA HE PODIDO LOCALIZAR ES POR ESO QUE NO LO TENGO.
MUCHAS GRACIAS POR SU APOYO
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Lucas Benjamin Perez Saavedra (1 intervención)
Fecha:22/03/2011 21:36:13
Necesito saber como se escribe con palabras 85.000 y 85.760 y132.000,132.400,98.000 y 98.980
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Antoni Masana (35 intervenciones)
Fecha:23/09/2008 12:02:35
Encontre esta macro para EXCEL ( sin provar ) espero te sirva:

Function num_letras(Numero As Double) As String Dim Letras As String Dim HuboCentavos As Boolean Dim Decimales As Double Decimales = Numero - Int(Numero) Numero = Int(Numero) Dim Numeros(90) As String Numeros(0) = "cero" Numeros(1) = "uno" Numeros(2) = "dos" Numeros(3) = "tres" Numeros(4) = "cuatro" Numeros(5) = "cinco" Numeros(6) = "seis" Numeros(7) = "siete" Numeros(8) = "ocho" Numeros(9) = "nueve" Numeros(10) = "diez" Numeros(11) = "once" Numeros(12) = "doce" Numeros(13) = "trece" Numeros(14) = "catorce" Numeros(15) = "quince" Numeros(20) = "veinte" Numeros(30) = "treinta" Numeros(40) = "cuarenta" Numeros(50) = "cincuenta" Numeros(60) = "sesenta" Numeros(70) = "setenta" Numeros(80) = "ochenta" Numeros(90) = "noventa" Do '*---> Centenas de Millón If (Numero < 1000000000) And (Numero >= 100000000) Then If (Int(Numero / 100000000) = 1) And ((Numero - (Int(Numero / 100000000) * 100000000)) < 1000000) Then Letras = Letras & "cien millones " Else Select Case Int(Numero / 100000000) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100000000)) End Select If (Int(Numero / 100000000) <> 1) And (Int(Numero / 100000000) <> 5) And (Int(Numero / 100000000) <> 7) And (Int(Numero / 100000000) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100000000) * 100000000) End If '*---> Decenas de Millón If (Numero < 100000000) And (Numero >= 10000000) Then If Int(Numero / 1000000) < 16 Then Letras = Letras & Numeros(Int(Numero / 1000000)) Letras = Letras & " millones " Numero = Numero - (Int(Numero / 1000000) * 1000000) Else Letras = Letras & Numeros(Int(Numero / 10000000) * 10) Numero = Numero - (Int(Numero / 10000000) * 10000000) If Numero > 1000000 Then Letras = Letras & " y " End If End If End If '*---> Unidades de Millón If (Numero < 10000000) And (Numero >= 1000000) Then If Int(Numero / 1000000) = 1 Then Letras = Letras & " un millón " Else Letras = Letras & Numeros(Int(Numero / 1000000)) Letras = Letras & " millones " End If Numero = Numero - (Int(Numero / 1000000) * 1000000) End If '*---> Centenas de Millar If (Numero < 1000000) And (Numero >= 100000) Then If (Int(Numero / 100000) = 1) And ((Numero - (Int(Numero / 100000) * 100000)) < 1000) Then Letras = Letras & "cien mil " Else Select Case Int(Numero / 100000) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100000)) End Select If (Int(Numero / 100000) <> 1) And (Int(Numero / 100000) <> 5) And (Int(Numero / 100000) <> 7) And (Int(Numero / 100000) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100000) * 100000) End If '*---> Decenas de Millar If (Numero < 100000) And (Numero >= 10000) Then If Int(Numero / 1000) < 16 Then Letras = Letras & Numeros(Int(Numero / 1000)) Letras = Letras & " mil " Numero = Numero - (Int(Numero / 1000) * 1000) Else Letras = Letras & Numeros(Int(Numero / 10000) * 10) Numero = Numero - (Int((Numero / 10000)) * 10000) If Numero > 1000 Then Letras = Letras & " y " Else Letras = Letras & " mil " End If End If End If '*---> Unidades de Millar If (Numero < 10000) And (Numero >= 1000) Then If Int(Numero / 1000) = 1 Then Letras = Letras & "un" Else Letras = Letras & Numeros(Int(Numero / 1000)) End If Letras = Letras & " mil " Numero = Numero - (Int(Numero / 1000) * 1000) End If '*---> Centenas If (Numero < 1000) And (Numero > 99) Then If (Int(Numero / 100) = 1) And ((Numero - (Int(Numero / 100) * 100)) < 1) Then Letras = Letras "cien " Else Select Case Int(Numero / 100) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100)) End Select If (Int(Numero / 100) <> 1) And (Int(Numero / 100) <> 5) And (Int(Numero / 100) <> 7) And (Int(Numero / 100) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100) * 100) End If '*---> Decenas If (Numero < 100) And (Numero > 9) Then If Numero < 16 Then Letras = Letras & Numeros(Int(Numero)) Numero = Numero - Int(Numero) Else Letras = Letras & Numeros(Int((Numero / 10)) * 10) Numero = Numero - (Int((Numero / 10)) * 10) If Numero > 0.99 Then Letras = Letras & " y " End If End If End If '*---> Unidades If (Numero < 10) And (Numero > 0.99) Then Letras = Letras & Numeros(Int(Numero)) Numero = Numero - Int(Numero) End If Loop Until (Numero = 0) '*---> Decimales If (Decimales > 0) Then Letras = Letras & " con " Letras = Letras & Format(Decimales * 100, "00") & "/100 centavos" End If num_letras = Letras End Function
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Martha Contreras (3 intervenciones)
Fecha:23/09/2008 16:35:24
CREO QUE SI ES UNA POSIBILIDAD PERO COMO LE HAGO PARA APLICARLA Y QUE ME FUNSIONE ESTAS MACROS EN EXCEL?
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:sandritha sandy_cruz_lopez_08_98@live.com.mx (1 intervención)
Fecha:04/09/2011 23:35:00
la raiz cuadrada se saca x doz jajjajaja
y las cantidades depende la cantidad y el numero o.O
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Antoni Masana (35 intervenciones)
Fecha:24/09/2008 07:45:53
Abres la hoja de EXCEL en la que deseas usar la macro.

Ves al menu:

-> Herramientas -> Macro -> Macros...

Donde pone Nombre de la macro poner Num_Letras y pulsar el boton Crear

Borrar las lineas que hay en la ventana de la macro, osea esto:

Sub Num_Letras()

End Sub

Copiar toda la parrafara que te envie, bueno todo no solo desde Function hasta End Function

Pegarlo en la ventana de la macro. Cerrar la macro desde el boton de cerrar ( el haspa X ) o desde Archivo -> Cerrar y volver a Microsoft Excel

Ahora en la hoja de calculo donde deba salir el texto del numero escribes :

=num_letras(XX)

donde XX es la celda que tiene el valor numerico.

Y ya esta.

Saludos
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:bregs (1 intervención)
Fecha:27/05/2011 15:31:00
no esto esta genial grax qe super ayudota todo lo que se ahorra uno que bien graxxxxxx suerte
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:sheryl Campomanes  (1 intervención)
Fecha:15/04/2010 03:20:17
Oh tal vez eres un geniesillo!!!!
muchas gracias!!
nos fue de mucha utilidad!!!
solo ke mi excel casi muere jeje
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Laura (2 intervenciones)
Fecha:21/12/2011 18:09:18
Hola!

Inserte la macro justo como explicaste, pero al poner la formula en excel me sale lo siguiente:

Error de compilación: Error de sintaxis

Letras = Letras "cien"
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Laura (2 intervenciones)
Fecha:21/12/2011 18:21:25
Listo, ya encontre el problema, le faltaba una "&".



Bye
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:EN

Autor:franco (1 intervención)
Fecha:22/12/2011 14:19:15
es monto que quiero escribir 6 134,82
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Omar (1 intervención)
Fecha:21/02/2012 00:07:03
oye a mi me paso lo mismo y borre esa parte y me quedo a si en el macros

Function num_letras(Numero As Double) As String Dim Letras As String Dim HuboCentavos As Boolean Dim Decimales As Double Decimales = Numero - Int(Numero) Numero = Int(Numero) Dim Numeros(90) As String Numeros(0) = "cero" Numeros(1) = "uno" Numeros(2) = "dos" Numeros(3) = "tres" Numeros(4) = "cuatro" Numeros(5) = "cinco" Numeros(6) = "seis" Numeros(7) = "siete" Numeros(8) = "ocho" Numeros(9) = "nueve" Numeros(10) = "diez" Numeros(11) = "once" Numeros(12) = "doce" Numeros(13) = "trece" Numeros(14) = "catorce" Numeros(15) = "quince" Numeros(20) = "veinte" Numeros(30) = "treinta" Numeros(40) = "cuarenta" Numeros(50) = "cincuenta" Numeros(60) = "sesenta" Numeros(70) = "setenta" Numeros(80) = "ochenta" Numeros(90) = "noventa" Do '*---> Centenas de Millón If (Numero < 1000000000) And (Numero >= 100000000) Then If (Int(Numero / 100000000) = 1) And ((Numero - (Int(Numero / 100000000) * 100000000)) < 1000000) Then Letras = Letras & "cien millones " Else Select Case Int(Numero / 100000000) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100000000)) End Select If (Int(Numero / 100000000) <> 1) And (Int(Numero / 100000000) <> 5) And (Int(Numero / 100000000) <> 7) And (Int(Numero / 100000000) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100000000) * 100000000) End If '*---> Decenas de Millón If (Numero < 100000000) And (Numero >= 10000000) Then If Int(Numero / 1000000) < 16 Then Letras = Letras & Numeros(Int(Numero / 1000000)) Letras = Letras & " millones " Numero = Numero - (Int(Numero / 1000000) * 1000000) Else Letras = Letras & Numeros(Int(Numero / 10000000) * 10) Numero = Numero - (Int(Numero / 10000000) * 10000000) If Numero > 1000000 Then Letras = Letras & " y " End If End If End If '*---> Unidades de Millón If (Numero < 10000000) And (Numero >= 1000000) Then If Int(Numero / 1000000) = 1 Then Letras = Letras & " un millón " Else Letras = Letras & Numeros(Int(Numero / 1000000)) Letras = Letras & " millones " End If Numero = Numero - (Int(Numero / 1000000) * 1000000) End If '*---> Centenas de Millar If (Numero < 1000000) And (Numero >= 100000) Then If (Int(Numero / 100000) = 1) And ((Numero - (Int(Numero / 100000) * 100000)) < 1000) Then Letras = Letras & "cien mil " Else Select Case Int(Numero / 100000) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100000)) End Select If (Int(Numero / 100000) <> 1) And (Int(Numero / 100000) <> 5) And (Int(Numero / 100000) <> 7) And (Int(Numero / 100000) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100000) * 100000) End If '*---> Decenas de Millar If (Numero < 100000) And (Numero >= 10000) Then If Int(Numero / 1000) < 16 Then Letras = Letras & Numeros(Int(Numero / 1000)) Letras = Letras & " mil " Numero = Numero - (Int(Numero / 1000) * 1000) Else Letras = Letras & Numeros(Int(Numero / 10000) * 10) Numero = Numero - (Int((Numero / 10000)) * 10000) If Numero > 1000 Then Letras = Letras & " y " Else Letras = Letras & " mil " End If End If End If '*---> Unidades de Millar If (Numero < 10000) And (Numero >= 1000) Then If Int(Numero / 1000) = 1 Then Letras = Letras & "un" Else Letras = Letras & Numeros(Int(Numero / 1000)) End If Letras = Letras & " mil " Numero = Numero - (Int(Numero / 1000) * 1000) End If '*---> Centenas If (Numero < 1000) And (Numero > 99) Then If (Int(Numero / 100) = 1) And ((Numero - (Int(Numero / 100) * 100)) < 1) Then Else Select Case Int(Numero / 100) Case 1 Letras = Letras & "ciento" Case 5 Letras = Letras & "quinientos" Case 7 Letras = Letras & "setecientos" Case 9 Letras = Letras & "novecientos" Case Else Letras = Letras & Numeros(Int(Numero / 100)) End Select If (Int(Numero / 100) <> 1) And (Int(Numero / 100) <> 5) And (Int(Numero / 100) <> 7) And (Int(Numero / 100) <> 9) Then Letras = Letras & "cientos " Else Letras = Letras & " " End If End If Numero = Numero - (Int(Numero / 100) * 100) End If '*---> Decenas If (Numero < 100) And (Numero > 9) Then If Numero < 16 Then Letras = Letras & Numeros(Int(Numero)) Numero = Numero - Int(Numero) Else Letras = Letras & Numeros(Int((Numero / 10)) * 10) Numero = Numero - (Int((Numero / 10)) * 10) If Numero > 0.99 Then Letras = Letras & " y " End If End If End If '*---> Unidades If (Numero < 10) And (Numero > 0.99) Then Letras = Letras & Numeros(Int(Numero)) Numero = Numero - Int(Numero) End If Loop Until (Numero = 0) '*---> Decimales If (Decimales > 0) Then Letras = Letras & " con " Letras = Letras & Format(Decimales * 100, "00") & "/100 centavos" End If num_letras = Letras End Function Sub sa() End Sub



despues de eso de que le borre el error ya me funciono muy bien espero que te sirva
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Fer (1 intervención)
Fecha:14/02/2012 03:18:09
como le hago para que me ponga "pesos" en la cantdad con letra
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:RAFAEL CORTEZ TERRERO (1 intervención)
Fecha:09/02/2009 06:58:03
podrias esplicarme un poco mas dettallado con un archivo listo para grabarlo en mi maquina, digo si se puede por qu no le entiendo como grabar las macros
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:leonel (1 intervención)
Fecha:15/09/2009 15:55:40
hola necesito que me envien los pasos a seguir para trabajar en excel escribiendo una catidad en numero pero esta que se escriba con letras....gracias
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:mary garcia (1 intervención)
Fecha:02/11/2012 15:52:58
como escribo en letras bajo la moneda en venezuela la cantidad de 47.497,02 / 74.604,93
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:joel lopez (1 intervención)
Fecha:06/09/2013 05:39:06
quiero saber este numero poerlo en letra,,,,26192041296
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:PEPE HERNANDEZ (1 intervención)
Fecha:27/01/2014 04:52:33
Veintiseis mil ciento noventa y dos millones, cuarenta y un mil doscientos noventa y seis
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:agustina (1 intervención)
Fecha:25/03/2014 01:26:17


Gracias, salí de la duda
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:ANA (1 intervención)
Fecha:15/07/2014 16:00:37
COMO SE ESCRIBE EN LETRAS LOS BS. 181.681.971,85
Comentar
Imágen de perfil de jesus
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

11.999.802.011

Autor:jesus jca166@hotmail.com (1 intervención)
Fecha:24/10/2013 04:44:00
nesecito saber esta cantidad en letra 11.999.802.011
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:CLAUDIA (1 intervención)
Fecha:21/11/2008 00:19:21
buenas tardes oie me podrias ayudar.

tengo una pregunta: de que manera es correcto escribir 1,522.00

mil quinientos veinte y dos pesos 00/100 m.n
mil quinientos veintidos pesos 00/100 m.n
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:RAYO (1 intervención)
Fecha:22/11/2013 21:24:57
DE LAS DOS FORMAS ES CORRECTO, SOLO HAY QUE CUIDAR LAS BISILABAS
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:maricarmen (1 intervención)
Fecha:27/02/2012 00:33:47
como escribo con números siete mil millones
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:gabo (1 intervención)
Fecha:22/07/2014 04:40:44
como se escribe esta cantidad 635472
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Martha  (1 intervención)
Fecha:02/03/2011 23:04:03
tenes que escribir el numero y despues representarlo . Por Ejemplo : 284 : docientos ochenta y cuatro ,! Bueno soy maestra de primaria y secundaria. Espero que le sirva. Un Beso a todos Gracias...!
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Anibal Javier Mercado (1 intervención)
Fecha:09/12/2009 13:02:11
Yo hago facturación, cómo hago para que la cifran final se escriba en letras automáticamente en la parte que corresponda en la factura?
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:Sandra Osuna (1 intervención)
Fecha:15/05/2010 03:24:59
Como le hago par convertir cantidades en numero a letra? eso me ayudaria a ahorrar tiempo para las polizas que tengo que generar todo los dias.
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Autor:annyliseth (1 intervención)
Fecha:26/09/2011 21:38:54
como escribir en letra la siguiente cifra 894.873.248
Comentar
Me gusta: Está respuesta es útil y esta clara
1
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:SIDNEY (1 intervención)
Fecha:22/05/2012 21:39:42
ESTA SI ES LA CORRECTA TAL Y COMO VA

Function Num_texto(Numero) Dim Texto Dim Millones Dim Miles Dim Cientos Dim Decimales Dim Cadena Dim CadMillones Dim CadMiles Dim CadCientos Texto = Numero Texto = FormatNumber(Texto, 2) Texto = Right(Space(14) & Texto, 14) Millones = Mid(Texto, 1, 3) Miles = Mid(Texto, 5, 3) Cientos = Mid(Texto, 9, 3) Decimales = Mid(Texto, 13, 2) CadMillones = ConvierteCifra(Millones, 1) CadMiles = ConvierteCifra(Miles, 1) CadCientos = ConvierteCifra(Cientos, 0) If Trim(CadMillones) > "" Then If Trim(CadMillones) = "UN" Then Cadena = CadMillones & " MILLON" Else Cadena = CadMillones & " MILLONES" End If End If If Trim(CadMiles) > "" Then Cadena = Cadena & " " & CadMiles & " MIL" End If If Trim(CadMiles & CadCientos) = "UN" Then Cadena = Cadena & "UNO CON " & Decimales & "/100" Else If Miles & Cientos = "000000" Then Cadena = Cadena & " " & Trim(CadCientos) & " PESOS CON " & Decimales & " /100 MN" Else Cadena = Cadena & " " & Trim(CadCientos) & " PESOS CON " & Decimales & " /100 MN" End If End If Num_texto = Trim(Cadena) End Function Function ConvierteCifra(Texto, SW) Dim Centena Dim Decena Dim Unidad Dim txtCentena Dim txtDecena Dim txtUnidad Centena = Mid(Texto, 1, 1) Decena = Mid(Texto, 2, 1) Unidad = Mid(Texto, 3, 1) Select Case Centena Case "1" txtCentena = "CIEN" If Decena & Unidad <> "00" Then txtCentena = "CIENTO" End If Case "2" txtCentena = "DOSCIENTOS" Case "3" txtCentena = "TRESCIENTOS" Case "4" txtCentena = "CUATROCIENTOS" Case "5" txtCentena = "QUINIENTOS" Case "6" txtCentena = "SEISCIENTOS" Case "7" txtCentena = "SETECIENTOS" Case "8" txtCentena = "OCHOCIENTOS" Case "9" txtCentena = "NOVECIENTOS" End Select Select Case Decena Case "1" txtDecena = "DIEZ" Select Case Unidad Case "1" txtDecena = "ONCE" Case "2" txtDecena = "DOCE" Case "3" txtDecena = "TRECE" Case "4" txtDecena = "CATORCE" Case "5" txtDecena = "QUINCE" Case "6" txtDecena = "DIECISEIS" Case "7" txtDecena = "DIECISIETE" Case "8" txtDecena = "DIECIOCHO" Case "9" txtDecena = "DIECINUEVE" End Select Case "2" txtDecena = "VEINTE" If Unidad <> "0" Then txtDecena = "VEINTI" End If Case "3" txtDecena = "TREINTA" If Unidad <> "0" Then txtDecena = "TREINTA Y " End If Case "4" txtDecena = "CUARENTA" If Unidad <> "0" Then txtDecena = "CUARENTA Y " End If Case "5" txtDecena = "CINCUENTA" If Unidad <> "0" Then txtDecena = "CINCUENTA Y " End If Case "6" txtDecena = "SESENTA" If Unidad <> "0" Then txtDecena = "SESENTA Y " End If Case "7" txtDecena = "SETENTA" If Unidad <> "0" Then txtDecena = "SETENTA Y " End If Case "8" txtDecena = "OCHENTA" If Unidad <> "0" Then txtDecena = "OCHENTA Y " End If Case "9" txtDecena = "NOVENTA" If Unidad <> "0" Then txtDecena = "NOVENTA Y " End If End Select If Decena <> "1" Then Select Case Unidad Case "1" If SW Then txtUnidad = "UN" Else txtUnidad = "UNO" End If Case "2" txtUnidad = "DOS" Case "3" txtUnidad = "TRES" Case "4" txtUnidad = "CUATRO" Case "5" txtUnidad = "CINCO" Case "6" txtUnidad = "SEIS" Case "7" txtUnidad = "SIETE" Case "8" txtUnidad = "OCHO" Case "9" txtUnidad = "NUEVE" End Select End If ConvierteCifra = txtCentena & " " & txtDecena & txtUnidad End Function
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

2.838,50M2 EN NUMERO Y SE PONGA EN LETRA AU

Autor:SILVIA KEILANDREINA_87@HOTMAIL.COM (1 intervención)
Fecha:26/05/2013 21:19:19
COMO SE ESCRIBE EN LETRA 2.838,50M2
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:BONNI (1 intervención)
Fecha:31/07/2013 05:42:50
LA VERDAD ME ENCANTO ME RESOLVIÓ MI DUDA DESPUÉS DE LEER VARIAS OPCIONES ESTA ME ENCANTO
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:EMBER (1 intervención)
Fecha:23/07/2012 20:45:16
usa el programa WORK ESE SIRVE PARA HACER ESAS POLIZAS.
Comentar
Me gusta: Está respuesta es útil y esta clara
1
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:Arturo (1 intervención)
Fecha:31/07/2012 00:48:53
prueba este codigo a mi me funciona a la perfeccion saludos

Function PesosMN(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For I = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case I Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next I Select Case lnNumeroBloques Case 1 PesosMN = lcBloque Case 2 PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN Case 3 PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN End Select lnNumeroBloques = lnNumeroBloques + 1 Loop Until lyCantidad = 0 PesosMN = "" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N." End Function
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:deysi deysam@hotmail.com (1 intervención)
Fecha:01/02/2013 18:45:30
Muchisissisisisisisisimas gracias !!!!!!!! x el aporte
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Autor:raul (1 intervención)
Fecha:23/12/2013 20:52:53
como le puedo hacer para que diga dolares en lugar de pesos???
gracias
Comentar