Jump to content

rjmmendoza

Members
  • Content Count

    2
  • Joined

  • Last visited

About rjmmendoza

  • Rank
    Newbie

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Version 1.0.0

    133 downloads

    Dos modos de como abrir carpetas desde una hoja de excel
  2. 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 archivonombre = Range("K64").Value'Rango inicio y final selecionadoRange("A1:K66").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\PDFcertificados\" & nombre, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False'Celda final selecionadaRange("A9").Select'Registro creacion del PDFSheets("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 selecionadaRange("A9").SelectEnd 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!
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5