Seleccionar diferentes hojas en un libro de Excel dependiendo de la fecha en una celda de las mismas
Tengo un libro de Excel con varios reportes. En la primera hoja, hay un pequeño resumen y la fecha actual en una celda. En las demás hojas, están los reportes individuales. Lo que quiero es mediante un botón en la primera hoja seleccionar todas las hojas donde la fecha (que en todos los casos está en la celda B4) coincidan con la fecha de la primera hoja, con el fin de generar un único archivo pdf con los reportes seleccionados para poder enviarlo por email.
H o l a:
Te anexo la macro para generar el archivo pdf, cambia en la macro en esta línea:
fecha = ActiveSheet.[B4] 'celda con la fecha a comparar
B4 por la celda de la primera hoja que va a tener la fecha.
Sub GuardarHojasPDF() 'Por.Dante Amor Application.ScreenUpdating = False activa = ActiveSheet.Name fecha = ActiveSheet.[B4] 'celda con la fecha a comparar una = True For Each h In Sheets If h.Name <> activa Then If h.[B4] = fecha Then If una Then una = False h.Select Else h.Select Replace:=False End If End If End If Next If una = False Then Ruta = ThisWorkbook.Path & "\" arch = "archivo.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & arch, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Archivo pdf generado" Else MsgBox "No hay hojas con la misma fecha" End If Sheets(activa).Select End Sub
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias!
Lo combiné con un código que tenía para enviarlo automáticamente a una lista de contactos de outlook y me funcionó.
