Jump to content

Macro para guardar facturas pdf


Recommended Posts

Hola soy nuevo en esto de los macros, intento guardar facturas y que su nombre dependa de 2 campos el problema es que cuando utilizo el macro creado a partir de una grabación funciona ahora cuando lo quiero modificar ya deja de funcionar, dejo el macro inicial para que me puedan ayudar,

Sub Macro3()

'

' Macro3 Macro

'

'

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\gonwana\789.pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

End Sub

yo necesitaría que el nombre que se guardara dependiera de la celda C8 y que ademas le colocara el día y hora consecutivamente en el nombre del pdf.

Saludos

Link to comment
Share on other sites

solo encontré solución así

Sub Macro2()

'

' Macro2 Macro

'

'

Dim Fecha As String

Dim Hora As String

Fecha = Day(Now())

Hora = WorksheetFunction.Text(Hour(Now()), "0#") & "." & WorksheetFunction.Text(Minute(Now()), "0#") & "." & WorksheetFunction.Text(Second(Now()), "0#")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\gonwana\" & [C8] & " " & Fecha & " " & Hora, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

End Sub

- - - - - Mensaje combinado - - - - -

no podrás separar la hora con ":" ya que no se permite este símbolo en nombres de documentos ni carpetas, por lo que tengo entendodo

Link to comment
Share on other sites

Podrias si quieres cambiar estas lineas así

Fecha = [COLOR="#FF0000"]Date[/COLOR]  'Day(Now())
Hora = [COLOR="#FF0000"]VBA.Format(VBA.Time, "h-mm") [/COLOR] 'WorksheetFunction.Text(Hour(Now()), "0#") & "-" & WorksheetFunction.Text(Minute(Now()), "0#") & "-" & WorksheetFunction.Text(Second(Now()), "0#")[/CODE]

el nombre de archivo te sale así

27-07-2013 19-04.pdf

o así

27-07-2013_19-09.pdf

para esta parte de linea

[CODE]"C:\0\" & [C8] & " " & Fecha & "[COLOR="#FF0000"]_[/COLOR]" & Hora, Quality:=[/CODE]

El ultimo guion [color=#FF0000][b]-[/b][/color] puedes cambiarlo por el que quieras, menos por aquellos que no son aceptados porb Windows, tales como; / \ : ? >< podias usar el ; para diferenciar

Lo de abrir la opcion para uno poder selecionar DONDE guardar, era bueno pero no soy el entendido para tal fin, así como poder seleciona rel rango a copiar, Ejemplo, A50 a n50

Link to comment
Share on other sites

Te dejo como la prepre para guardármela

Sub GuardarEnPDF_2() 'Guarda en PDF sin botones
Dim Mensag As String
Dim F As String
Dim H As String
F = Format(Date, ("dd-mm-yy")) 'Formato de Fecha
H = VBA.Format(VBA.Time, "hh-mm") 'Formato de hora

' Si presionas Cancelar, sales sin crear copia, Si presionas Aceptar sigue hacia la creación de la copia
Mensag = MsgBox("Generando hoja: " & [C8] & " " & F & " a las " & H & "", vbOKCancel)
If Mensag = vbCancel Then
Exit Sub
Else
'Guardar la hoja en la ubicacion indicada con texto de la celda C8 + fecha y hora. Este nombre puedes cambiarlo, eliminando algo si prefiere
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\0\" & [C8] & " " & F & " a las " & H, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 'True abre el archivo después de creado, False guarda pero no abre
End If
End Sub[/CODE]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Y por ultimo, solo me queda esto para acabar lo que necesito. Sucede que a veces un empleado no usa la tarjeta de combustible asociada a su matricula y usan una llamada Comodin1 o Comodin2.., sin embargo tengo una hoja Excel donde tengo la tarjeta Comodín que le hemos entregado y a que matrícula habría que asocial el gasto. En la hoja Comodín aparece los movimientos de la tarjeta y en la de Consumos necesito averiguar a que conductor corresponde para así hacer el desglose de la misma. Ni se como hacerlo ni en que hoja se puede hacer la consulta, si añadir otra columna en la de Consumos...., no se como hacerlo. Adjunto el archivo y agradezco esta ultima ayuda para este asunto.   Gracias de antemano.   Ejemplo consumos combustible sq.xlsx
    • Pues tienes toda la razón.  Mucho más simplificado. ¡GRACIAS!
    • Que tal, verificando la consulta no veo necesidad de duplicar la Tabla de Reparto, dado que se puede simplemente agregar una columna (Importe total) con la siguiente fórmulación: =SUMAR.SI(Consumos!AR$2:AR$8;[@[Nombre completo]];Consumos!AK$2:AK$8)*[@[%]] Espero les sea útil.
    • Hola de nuevo por aquí. Sigo con el fichero de consumos y con problemas. Ayer me ayudasteis y mucho a determinar los conductores y sus consumos. Ahora lo que necesito es lo siguiente. Tengo una tabla donde los empleados imputan de manera porcentual a distintas ordenes de trabajo. Está en la hoja Reparto. Veréis que por ejemplo el primer empleado reparte un 50 a una OT y otro 50 a otra. El segundo empleado imputa un 40 a una OT y otro 60 a otra y el tercero imputa un 25 a una OT, un 65 a otra y un 10 a otra. Esto desglosarlo es un autentico lío, y cada mes me emplea muchísimo tiempo . Lo que quisiera es que en la hoja que le he llamado desglose me creara una tabla o en la que he hecho y me calculara el consumo de combustible de cada empleado teniendo en cuenta la OT y su porcentaje. He creado la tabla y he puesto los importes que deberían salir. Los importes de cada consumo están en la hoja Consumos en la columna AK (IMP_TOTAL). Por ejemplo en la hoja Desglose el primer empleado sería GARCIA FERNANDEZ, VICENTE y a la OT 11000001 tendría un importe de 28,70 euros ya que en la hoja Reparto decimos que imputa un 50 a esa OT y el consumo total de ese empleado de la hoja Consumo es de 57,40 euros. Y así con el resto. He puesto una tabla para que sea dinámico y si hay más consumos o empleados se vaya actualizando dinámicamente, o eso creo. Lo que no veo claro es que busque y autorrellene con formulas la tabla sin hacerlo con macros. Al menos para mi se me hace muy difícil ver la posibilidad. No tengo claro si he conseguido explicarme, cualquier duda os respondo. Y como siempre muy agradecido por vuestro tiempo y compartir tan hábiles conocimientos, y además de manera desinteresada y amable. Gracias.   Ejemplo consumos combustible sq.xlsx
    • Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy