Basic - Macro para convertir numeros a letras

Alguien me podria auxiliar por favor, necesito un archivo o macro de excel para convertir los numeros en letras pues tengo que hacer bastantes recibos y es una monserga escribir cada una de las cantidades...GRACIAS

por favor necesito ayuda urgente la macro para convertir numeros en letras, es de mucho interes para mi si alguien me lo envia se agradece...
si la consegues porfa reenviamela

mandamela de vuelta, porfa

quisiera que me ayudara a comver tir num en letras osea la formula

Por favor si tienes la formula para convertir de numeros a pesos en excell te lo agradeceria.

necesito una macro para convertir numeos aletras con el formato pesos y centavos

necesito una macro para convertir numeos aletras con el formato pesos y centavos; formato de cheques, facturacion,

por fa necesito una macro que convierta numeros en letras
GRAC IAS

ayuda porfavor

Por favor si hay alguien que pueda ayudarme en la conversion de números a letras pero necesito que sea en un documento en word 2007, agradezco mucho a la persona que pueda ayudarme de antemano, gracias

macro para convertir dolares a pesos

hola tengo una plantilla de factura la cual me sirve para facturarle a mis clientes se convertir numeros a letras, lo cual facturo en pesos pero tambien estoy manejando facturar en dolares me pueden dar una macro??? donde se pueda convertir a pesos y dolares con una formula????? gracias ...uuurge DTB

soliciot me regale el codigo d ela macro para convertir numeros aletras en pesos

por favor mandenme el documento lo necesito para mi trabajo
gracias

recibir macros para convertir numero en letras

Me interesa mucho implementar este formato pues poseo un sistema de facturacion en excel que me organiza de una vez el listado de mis clientes y la cartera y desearia implementarle la circularizacion y que saliese en valor en letras como documento con valores en letras y no tuviese que digitarlo.

Gracias.

MACRO PARA CONVERTIR NUMEROS A LETRAS

Solamente tienes que visitar mi pagina web.
y en ella encontraras el archivo-plantilla que necesitas.

http://espanol.geocities.com/juanbueno2003
Por favor compartelo con otros que esten necisitados de esta herramienta.

muchisiomas gracias gran ayuda

HOLA SOLICITO ME HAGA LLEGAR UNA MACRO PARA EXCEL PARA CONVERTIR NUMEROS A LETRAS, TUBE UNO, QUE ME OBSEQUI UN AMIGO PERO CUANDO ME FORMATEARON EL DISCO DURO SE BORRO, ERA MUY BUENO, TIENE QUE SALIR ASI.
1,245.23 UN MIL DOS CIENTOS CUARENTA Y CINCO, 23/100 DOLARES O ALGO Asi pero en dolares las que bajo me salen en PESOS Y ESO NO QUIERO.

a chingar a su madre

urge conertir numeros a letras

Macro para convertir numeros a letras

convertir numeros a letras

necesito me ayuden a psar numero a letras

Les envío una macro que realiza dicho procedimeinto me funciona perfecto espero les funcione igual.

'------------ INICIO DE LA FUNCION PESOS-----------------------------------

'Function Pesos(Number As Single) As String
'Comentado el 27/10/2008: La siguiente línea corrige el error de los decimales
'en cantidades grandes, gracias a Any por la corrección.

Function Pesos(Number As Double) As String

Const MinNum = 1#
Const MaxNum = 4294967295.99

Dim Numbers, Tenths, Result As String
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")

If (Number >= MinNum) And (Number <= MaxNum) Then
Result = RecurseNumber((Fix(Number)))

If Round((Number - Fix(Number)) * 100) < 10 Then
Result = Result + " " + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 0) + " PESOS MCTE"
Else
Result = Result + " " + Str(Round((Number - Fix(Number)) * 100)) + " PESOS MCTE"
End If
Else
Result = "Error, verifique la cantidad."

End If
Pesos = Result
End Function

Function RecurseNumber(N As Long) As String

Dim Numbers, Tenths
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
Hundrens = Array("CERO", "CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

Dim Result As String
Select Case N
Case 0
Result = ""
Case 1 To 19
Result = Numbers(N)
Case 20 To 99
If N Mod 10 <> 0 Then
Result = Tenths(N 10) + " Y " + RecurseNumber(N Mod 10)
Else
Result = Tenths(N 10) + " " + RecurseNumber(N Mod 10)
End If
Case 100 To 999
If N 100 = 1 Then
If N = 100 Then
Result = "CIEN" + " " + RecurseNumber(N Mod 100)
Else
Result = Hundrens(N 100) + " " + RecurseNumber(N Mod 100)
End If
Else
Result = Hundrens(N 100) + " " + RecurseNumber(N Mod 100)
End If
Case 1000 To 999999
Result = RecurseNumber(N 1000) + " MIL " + RecurseNumber(N Mod 1000)

Case 1000000 To 1999999
Result = RecurseNumber(N 1000000) + " MILLON " + RecurseNumber(N Mod 1000000)
Case 2000000 To 999999999
Result = RecurseNumber(N 1000000) + " MILLONES " + RecurseNumber(N Mod 1000000)
Case 1000000000 To 4294967295#
Result = RecurseNumber(N 1000000000) + " BILLONES " + RecurseNumber(N Mod 1000000000)

End Select
RecurseNumber = Result
End Function

'========== FIN DE LA FUNCION PESOS ============
'Para usarlo es = que una funcion de excel, ejemplo:

'=pesos(suma(a1:a15))
'=pesos(total)