Del código:
Código:
If Cantidad < 0 Then
EnLetras = "PESOS Menos "
Cantidad = Abs(Cantidad)
Else
EnLetras = "PESOS "
End If
elimina las dos líneas que he resaltado en "rojo".
Y del código:
Código:
Centavos:
Resto = WorksheetFunction.Round(100 * Resto, 0)
EnLetras = Trim(EnLetras) + " CON " + Format(Resto, "00") + "/100" también elimina lo que está en rojo.
Finalmente (y ya en Excel), la fórmula:
= EnLetras(ENTERO(A2)) & " coma " & EnLetras( 100*(A2-ENTERO(A2)) )
hace lo que estás buscando.
Saludos
[/QUOTE]
Gracias quedo perfecto
muchas gracias nuevamente
no sabre como pagar el favor
jajaja
me has ahorrado mucho trabajo, espero no haberte causado tanto del mismo
atte
ulises flores.
valdivia-chile