Buenas tardes:

Estoy utilizando en mis facturas la formula =cantidadenletra() pero tengo facturas que estan en dolares mi pregunta en como le hago para que la cantidad en letra me la de en ingles

de antemano gracias

Hay que traducir ya sea la macro o el complemento, alguien que sepa SPANGLISH y tenga tiempo de echarse un clavado.
De otra forma dale una buscada en Google. tal vez haya un foro de fiscalia en Ingles que ya lo tenga, buscalo asi "AMOUNT IN LETTER" or "DLLS in LETTER" intentale.

[quote:ac7e99849e="SONITSA"]como usan esa formula de cantidad en letra porfavor
me lo podria detallar y ejemplificar

por fa[/quote:ac7e99849e]

Es una macro que alguien programo, aqui en fiscalia puedes descargar una Hoja Excel en Herramientas computacionales, dentro de la Hoja Excel ya incluye la macro, y la usas como cualquier funcion de excel (Fx) y al darle enter a la formula te regresa el texto con el importe en Letra, de otra forma tendrias que andar haciendolo a mano la captura de dicho texto (XXXXX PESOS 99/100 MN).

Mmm

Habria que cambiar todo el codigo con los textos en español al ingles.

Yo lo mas que tengo es un codigo donde cambia de numero a letra puedes seleccionar el tipo de moneda, pero esta en español.

Avisame si te interesa

ANONIMO3
Juegate las cartas que la brisca la traigo Yo!

OK, en la red encontre el siguiente codigo solo sera cuestion de cambiar los datos encontrados en Ingles como por ejem: "uno"x"one" puede ser que asi te salga nada pierdes con intentarlo:


Esta es una función que convierte montos en letras, esta hecha en Visual Basic para aplicaciones y puede ser usada en las macros de Excel, Word, Outlook, etc. Funciona bien para cantidades entre 1.00 y 999,999,999.99, incluye los centavos y las leyendas características de los montos en México.

Function CantidadEnLetra(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
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", "DIESISEIS", "DIESISIETE", "DIESIOCHO", "DIESINUEVE", "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
CantidadEnLetra = lcBloque
Case 2
CantidadEnLetra = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & CantidadEnLetra
Case 3
CantidadEnLetra = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & CantidadEnLetra
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
CantidadEnLetra = "(" & CantidadEnLetra & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N. )"
End Function

[size=18:f359daee18][/size:f359daee18]Nada mas no cambies por ejemplo donde dice CantidadEnLetra ya que estas son variables del programa.
Saludos[size=12:f359daee18][/size:f359daee18]

Mañana la publico aqui, no tengo el archivo a la mano

ANONIMO3
Hoy por ti, mañana ... tambien