Necesito de su ayuda, tengo una macro la cual me ayuda a generar reportes en excel en base a un listado previo dentro de mi archivo (dashboard), y con esta macro genero reportes independientes/individuales los cuales se guardan con nombre distinto, el problema es que me piden que en lugar de generarlos en Excel los genere en PDF y son aproximadamente 50 reportes, tengo una macro la cual me genera reportes por cada hoja visualizada pero quiero evitar darle click 50 veces..... Esta es la macro que me genera/duplica reportes de Excel a Excel Sub generar reportes () contador = 3 While Sheets("HOJA DIRECTORIO DONDE SE ALIMENTAN MIS 50 REPORTES").Cells(contador, 1).Value <> "" Sheets("NOMBRE DE MI HOJA PLANTILLA").Select Cells(4, 6).Value = Sheets("HOJA DIRECTORIO DONDE SE ALIMENTAN MIS 50 REPORTES").Cells(contador, 1).Value Sheets("NOMBRE DE MI HOJA PLANTILLA").Select Sheets("NOMBRE DE MI HOJA PLANTILLA").Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Rows("1:4").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Range("A5").Select ActiveWindow.FreezePanes = False ActiveWindow.SplitRow = 0 ActiveSheet.Shapes.Range(Array("2 Picture")).Select Selection.Delete 'Romper Vinculos Dim varVinculo As Variant Dim wrsHoja As Worksheet Dim objCelda As Object Dim varMsg As Variant 'Pegado Especial Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'Sub OcultarHojasBarraEsp() ' OcultarHojasBarraEsp Macro With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With 'Seleccionar Rango Range("A5").Select ActiveWorkbook.SaveAs Filename:="DIRECCIÓN DONDE SE GUARDAN AUTOMÁTICAMENTE MIS ARCHIVOS GENERADOS\" & ActiveSheet.Cells(1, 1), FileFormat:=51, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A1").Select Selection.ClearContents 'Proteger Libro Application.ScreenUpdating = False Dim HOJA As Integer For HOJA = 1 To Sheets.Count Sheets("NOMBRE DE MI HOJA PLANTILLA").Protect Password:="MI PASSWORD" Next Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False ActiveWorkbook.Save ActiveWindow.Close contador = contador + 1 Wend MsgBox "Los Reportes se duplicaron con éxito" End Sub Mi Macro para generar PDF indivivuales Sub ImpPDF() Dim RutaArchivo As String RutaArchivo = "DIRECCIÓN DONDE SE GUARDAN AUTOMÁTICAMENTE MIS ARCHIVOS GENERADOS\" + Cells(4, 6) + ".pdf" Range("A5:R753").Select Range("A1").Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ RutaArchivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("A1").Select End Sub Pueden ayudarme para adecuar mi primer macro y ésta me pueda generar en automático mis reportes pero en PDF, esto lo realizo cada 15 días por lo que su ayuda me será de gran utilidad. Muchas Gracias! Saludos y buen día! Félix L.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro para generar 50 reportes de Excel a PDF con un click

Autor del tema felixlopeza
Fecha de inicio 24 Ago 2015

felixlopeza

New member

24 Ago 2015

Necesito de su ayuda, tengo una macro la cual me ayuda a generar reportes en excel en base a un listado previo dentro de mi archivo (dashboard), y con esta macro genero reportes...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro generar PDF

Respuestas: 2

12 Mar 2025

Dante Amor M

Resuelto

Macro para generar datos de una tabla a otra hoja

Respuestas: 4

16 Jul 2024

InformaLA

Resuelto

Macro para generar csv para base de datos

Respuestas: 13

16 May 2024

abel8207

Pregunta

Error #VALOR en una macro para generar QR

Respuestas: 5

22 Ene 2024

Abraham.Valencia

Pregunta

MACRO para a partir de un excel generar excel individuales

Respuestas: 4

28 Dic 2023

Julio C Valderrama

Resuelto

Problema al generar un CSV con macro

Respuestas: 2

6 Nov 2023

valentin3107

Pregunta

Macro generar números consecutivos automáticos

Respuestas: 1

26 Oct 2023

Dante Amor M

Pregunta

Macro para Generar PDF automáticos

Respuestas: 1

7 Mar 2023

Abraham.Valencia

Resuelto

Macro para generar código QR

Respuestas: 14

15 Dic 2022

Sabrina Olvera

Resuelto

Macro para generar hipervínculos en distintos rangos de una hoja

Respuestas: 6

16 Sep 2022

nipio

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba