Agradecido por la solución.

Dios te bendiga

Acabo de probar tu macro y funciona excelente. Enhorabuena por este gesto.

Saludos.

Me alegro profundamente que te haya servido.

Saludos

Hola!

Oye he tratado muchas veces de hacerla la copio, y cuando escribo la formula me aparece

# ¿NOMBRE?

Me puedes aydar en que me estoy equivocando

La formula la escribo =CANTIDADENLETRAS(H41)

Te agradeceria que me pudieras ayudar.

Muchas Gracias.

PARA EMPEZAR NECESITAS EL SIGUIENTE CODIGO
LO COPIAS Y PRESIONAS ALT + F11 SE ABRE LA VENTANA DE VISUAL BASIC Y CREAS UN MODULO
LO PEGAS EN EL MODULO ,CIERRAS EL MODULO

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", "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

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

Te felicito, en verdad, es un aporte a la comunidad.

Este codigo de conversion de numeros a letras, es muy util a cualquie persona que maneje valores, o documentos de valor que hay que proteger con letras.

nuevamente felicidades.


c.p.c. Francisco ballesteros atondo

Excelente la formula, gracias por el aporte.

Hola mi nombre es ivonne soy de michoacan méxico muchas gracias la verdad me servira de mucho unicamente q me le tuve q cambiar algo pues me marcaba error en esta parte

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

y lo que hice fue porner la apertura de paretesis

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

eso me ayudo ahora no se si me podrias ayudar en otra cosa, pongo una formula por ejmplo de suma de dos celdas y si la hace pero al cambiar los datos de las celdas no me cambia el total de la suma me deja el total de los datos anteriores me podrias ayudar te lo agradecere mucho

atte

ivonne pz

Ivonne, esto puede servirte:
http://grupos.emagister.com/documento/udf_para_convertir_numeros_a_palabras/6610-311120