Jump to content

Fucionar dos macros de creacion y registro de PDF


Recommended Posts

Saludos
Quisiera ver si puede ayudar en ajustar unas macros, les explico, tengo una macro que crea en excel certicados en pdf, luego registra en una hoja aparte dentro de libro los datos: 1 Nombre del participantes, 2 nombre y ubicacion del archivo en el HD (Macro1) , asi posteriormente lo envio por correo (con otra macro), desde el mismo excel, hasta aca todo bien.

Mi problema es que lo hago 1 por 1, aca esta una macro que probe muy buena de creacion de pdf por lotes (macro2), lo que busco, si es posible, incluir que cada archivo que cree registre su informacion en una hoja y continue el ciclo, y como se ve en la pirmera macro, seleccionar el rango a guardar. 
 

Macro 1 Creacion y registro 1x1

 

CÓDIGO: SELECCIONAR TODO
Sub Crear_PDF()

Sheets("Certificados").Select
'Nombre para el archivo
nombre = Range("K64").Value
'Rango inicio y final selecionado
Range("A1:K66").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\PDFcertificados\" & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

'Celda final selecionada
Range("A9").Select
'Registro creacion del PDF
Sheets("Envio").Select
Range("B160:D160").Select
Selection.Copy
Range("B3").Select
    Do While ActiveCell <> Empty
    ActiveCell.Offset(1, 0).Select
    Loop
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Range("B3").Select
    Application.CutCopyMode = False
    Range("B3").Select
    Sheets("Certificados").Select

'Celda final selecionada
Range("A9").Select
End Sub

 

Macro 2 Creacion PDF por lotes, usa como valor un rango indicado en celdas, esta no hace registro
 

CÓDIGO: SELECCIONAR TODO

Sub CrearlotesPDF()
' Crear lotes de pdf

' Celda donde indicas el inicio del registro (Tabla)
inicio = Range("M16").Value
' Celda donde indicas el fin del registro (Tabla)
fin = Range("N16").Value

' Formula de incremento de celda
For i = inicio To fin
             Range("M11").FormulaR1C1 = i

' Creacion y guardado del PDF: 1Celda con la direccion, 2Celda con el nombre del archivo
archivo = Range("D119") & "\" & Range("D107") & ".pdf"
             ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=archivo

Next
Range("M11") = ""

End Sub

 

Gracias por su apoyo!

 

Link to comment
Share on other sites

  • Silvia locked this topic

Archived

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

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy