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

  Imprimir  
Vista:

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Publicado por Martha Contreras Hernandez (3 intervenciones) el 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Martha Contreras Hernandez (3 intervenciones) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Lucas Benjamin Perez Saavedra (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Antoni Masana (35 intervenciones) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Martha Contreras (3 intervenciones) el 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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por sandritha sandy_cruz_lopez_08_98@live.com.mx (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Antoni Masana (35 intervenciones) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por sheryl Campomanes  (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Laura (2 intervenciones) el 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"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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



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

RE:EN

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Omar (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por RAFAEL CORTEZ TERRERO (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por gEOVANNY (1 intervención) el 26/11/2014 18:16:57
hola disculpa me puedes ayudar ... quisiera que todo salga haci (con 00/100 dolares) por que pongo 500 y me sale solo QUINIENTOS y quisiera que salga quinientos con 00/100 dolares ...gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por leonel (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por agustina (1 intervención) el 25/03/2014 01:26:17


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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

11.999.802.011

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por CLAUDIA (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

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

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Martha  (1 intervención) el 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...!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Anibal Javier Mercado (1 intervención) el 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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por Sandra Osuna (1 intervención) el 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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA

Publicado por annyliseth (1 intervención) el 26/09/2011 21:38:54
como escribir en letra la siguiente cifra 894.873.248
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Publicado por SIDNEY (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

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

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

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

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

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

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

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Publicado por Arturo (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

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

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Publicado por raul (1 intervención) el 23/12/2013 20:52:53
como le puedo hacer para que diga dolares en lugar de pesos???
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ESCRIBIR CANTIDAD EN NUMERO Y SE PONGA EN LETRA AU

Publicado por MILAGROS HERNANDEZ MILASURRENDER@GMAIL.COM (1 intervención) el 14/08/2014 19:35:15
DOSMIL SETENTA CON CERO CENTIMOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar