Ayuda para formato de factura

[shantyeunais]

Hola... algien me podria ayudar!!!!
como le podria hacer para que en una hoja con formato de factura
que el importe total a pagar apareciera en otra celda en texto.
como por ejemplo si el importe total es de $1270.50 que en otra
celda aparezca SON: MIL DOSCIENTOS PESOS 00/100 M.N. o algo parecido...
de antemano agradezco su ayuda.....

[Monimo]

Hay una funcion en excel, q un nuemro lo transforma en texto.: =BAHTTEXT(numero) sin embargo esta funcion lo escrie en Thai... o tailandes me parece .... lo ideal seria convertirlo seleccionar el texto utilizar una macro para conectarse al centro de traduccion de microsoft y ya pero el problema es q su traductor es una ... ah es inútil digamoslo así, si pudieras hacer una macro q se conectara con google(api) y t regresara la traduccion, esta es bastante exacta....

[GEMO]

Ve a esta dirección, es de Abrahamvj con ejemplos muy útiles y viene uno para hacer lo que necesitas si te sirve da las gracias a Abraham por ello yo solo te guie a el je
http://abrahamexcel.iespana.es/

[shantyeunais]

OK GEMO MUCHAS GRACIAS POR TU RESPUESTA ES JUSTO LO QUE NECESITABA!!!!!
pero ahora como le hago para que el importe me lo de en $(pesos) ya que el formato original me lo da en NUEVOS SOLES, sera que hay que modificar algo en la macro???
por fas agradeceria mucho si alguien me podria ayudar con ese problemita.....
gracias otra vez..... jejeje

[GEMO]

Hola, casi al final del codigo esta la prte donde tu escribes la leyenda despues del total en número dice "nuevos soles" únicamente cambialo a "pesos" asi sin mas, y listo. Suerte.

[GEMO]

Por cierto, en las políticas del foro esta el no escribir con mayúsculas ya que se interpreta como si estuvieras gritando o exigiendo algo je, al principio me sucedió lo mismo, saludos bye

[shantyeunais]

Iniciado por GEMO

Por cierto, en las políticas del foro esta el no escribir con mayúsculas ya que se interpreta como si estuvieras gritando o exigiendo algo je, al principio me sucedió lo mismo, saludos bye

ok gemo muchas gracias por toda tu ayuda y perdon que moleste con otra duda pero ya intente como me dijiste anteriormente pero no encontre en la macro la parte esa donde dice "nuevos soles" para cambiarlo a "pesos"... o alvez me esta fallando la vista... jejeje...
pero de todas formas gracias por todo....(ah y los siento por lo del escrito anterior fue de emocion gracias!)
ah y estod son los codigos de la macro:

Dim strcod$, strrango$
Dim lngvalorstock&, lngcant&

Sub Controlpartes()

Dim strdescrip$, strmed$, strtipo$
Dim lngnuevovalor&, lngnumero&
Dim dathoy As Date

Application.ScreenUpdating = False

If [E5] = "" Or [E8] = "" Or [E9] = "" Then
MsgBox "No deje ningun campo vacio", vbExclamation + vbOKOnly, "CAMPO VACIO"
Application.ScreenUpdating = True
Exit Sub
End If

lngnumero& = [B2]: strcod$ = [E5]: strdescrip$ = [E6]
strmed$ = [E7]: lngcant& = [E8]: strtipo$ = [E9]
dathoy = Date

Sheets("Stock").Select
[B1].Select
lngvalorstock& = [B:B].Find(What:=strcod$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 4).Value

strrango$ = [B:B].Find(What:=strcod$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 4).Address

If strtipo$ = "Salida" Then

If lngvalorstock& < lngcant& Then
MsgBox "El stock de " & strdescrip$ & " es menor (" _
& lngvalorstock& & ") al de su parte (" & lngcant& & ")", vbExclamation + vbOKOnly, "STOCK MENOR"
Sheets("Partes").Select
Application.ScreenUpdating = True
Exit Sub
End If

Range(strrango$) = lngvalorstock& - lngcant&
lngnuevovalor& = Range(strrango$)
End If

If strtipo$ = "Entrada" Then
Range(strrango$) = lngcant& + lngvalorstock&
lngnuevovalor& = Range(strrango$)
End If

Sheets("Control_Partes").Select

[B65536].End(xlUp).Offset(1, 0) = lngnumero&
[B65536].End(xlUp).Offset(0, 1) = strcod$
[B65536].End(xlUp).Offset(0, 2) = strdescrip$
[B65536].End(xlUp).Offset(0, 3) = strmed$
[B65536].End(xlUp).Offset(0, 4) = lngcant&
[B65536].End(xlUp).Offset(0, 5) = strtipo$
[B65536].End(xlUp).Offset(0, 6) = dathoy

MsgBox "Su stock de " & strdescrip$ & " fue actualizado de " _
& lngvalorstock& & " a " & lngnuevovalor&, vbExclamation + vbOKOnly, "STOCK ACTUALIZADO"

Sheets("Partes").Select
[E5,E8,E9].ClearContents
[B2] = [B2] + 1

Application.ScreenUpdating = True

End Sub

Sub Factura()

Dim lngcontarproduc&, bitvueltas As Byte, bitvueltas2 As Byte

On Error GoTo hojaerror

Application.ScreenUpdating = False

If [C7] = "" Then
MsgBox "Ingrese el cliente", vbExclamation + vbOKOnly, _
"CLIENTE FALTANTE"
[C7].Select
Application.ScreenUpdating = True
Exit Sub
End If

lngcontarproduc& = Application.WorksheetFunction.CountA([B14:B23])

If lngcontarproduc& <= 0 Then
MsgBox "Ingrese al menos un producto en su factura", vbExclamation + vbOKOnly, _
"INGRESE PRODUCTOS"
Application.ScreenUpdating = True
Exit Sub
End If

[B14].Select

For bitvueltas = 1 To lngcontarproduc&

strcod$ = ActiveCell: lngcant& = ActiveCell.Offset(0, 3).Value
Sheets("Stock").Select
[B1].Select

lngvalorstock& = [B:B].Find(What:=strcod$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 4).Value

strrango$ = [B:B].Find(What:=strcod$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 4).Address

Range(strrango$) = lngvalorstock& - lngcant&

Sheets("Factura").Select
ActiveCell.Offset(1, 0).Select

Next bitvueltas

Sheets("Impresion").PrintOut Copies:=1, Collate:=True

[B14].Select

For bitvueltas2 = 1 To lngcontarproduc&

[B3].Copy
Sheets("Control_Facturas").Select
[B65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Factura").Select

[C7:C10].Copy
Sheets("Control_Facturas").Select
[C65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Sheets("Factura").Select
Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy

Sheets("Control_Facturas").Select
[C65536].End(xlUp).Offset(0, 4).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False

Sheets("Factura").Select
ActiveCell.Offset(1, 0).Select

Next bitvueltas2

[C7,B14:B23,E14:E23].ClearContents
[B3] = [B3] + 1

Application.ScreenUpdating = True

Exit Sub

[GEMO]

Perdón esque esa parte que te digo esta en el código del módulo que viene ahí.}Saludos

[abrahamvj]

Pues lo que publica nuestro amiego esta en otro ejemplo, no en el de los "numeros a letras" :p

Abraham