Ver Mensaje Individual
  #56 (permalink)  
Antiguo 13/03/2010, 13:04
uzziber
Colaborador
 
Fecha de Ingreso: agosto-2004
Mensajes: 1.611
Antigüedad: 19 años, 8 meses
Puntos: 47
Respuesta: Pasar de números a letras en Excel

Para efectos prácticos, la macro está bien; no creo que haya facturas de 1 peso ó menores;
Agrega éstas líneas a la macro...

Loop Until (Numero = 0)

If (Letras = "un") Then
num_letras = UCase("(" & Letras & " peso " & (Round(Decimales * 100)) & "/100 M.N.)")
Else
num_letras = UCase("(" & Letras & " pesos " & (Round(Decimales * 100)) & "/100 M.N.)")
End If
End Function

Y llegó el momento de que aprendas algo más de VB; como puedes leer en el hilo, los foreros mejoraron, modificaron y ajustaron a sus necesidades la macro; te toca ajustarla a tus necesidades, ojalá puedas corregir el tema de los "veintemiles" (que ya está hecho) y podrías intentar hacer que cuándo el valor sea "0.55" aparezca en el texto "cero pesos"; luego subes la macro para que otros la puedan usar....

Saludos...