Exportar a PDF varias hojas a varios documentos y asignar el nombre de archivo en función de unas celdas

[MosC_AtheL]

Hola a todos,

Sé que la exportación a pdf es un tema concurrido pero no he conseguido resolverlo en excel.

Problema:

Necesito exportar varios documentos a pdf. Cada documento pdf consta de dos hojas del libro excel: 1 hoja llamada  "informe_1" y 1 llamada "presupuesto_1"

Además necesito que este archivo exportado a excel tenga como nombre el campo de 4 celdas del informe separados por guiones para que quede algo como: Agente - nºpresupuesto - CUPS - Titular

En total tengo que exportar 10 archivos pdf. Cada archivo correspondería a su informe_n + presupuesto_n

Agente - nºpresupuesto - CUPS - Titular

• Informe_1
• Presupuesto_1

Agente - nºpresupuesto - CUPS - Titular

• Informe_2
• Presupuesto_2

Agente - nºpresupuesto - CUPS - Titular

• Informe_3
• Presupuesto_3

etc...

Adjunto como plantilla un documento para visualizar mejor de lo que hablo.

 

Agradezco cualquier ayuda.

Libro1.xlsm

[MosC_AtheL]

Esta es la macro en la que me quiero basar:

'
'
'
Sub GuardarHojasComoPDF()

Dim Ruta As String
Dim NombreArchivo As String
Dim Hoja As Object

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Seleccionar carpeta"
    .Show
    
    If .SelectedItems.Count = 0 Then
    'Nada
    Else
    
        Ruta = .SelectedItems(1)
        
        For Each Hoja In ThisWorkbook.Sheets
        
            NombreArchivo = Hoja.Name
            
            'If NombreArchivo Like "*Hoja*" Then
            
            Hoja.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Ruta & "\" & NombreArchivo & ".pdf", OpenAfterPublish:=False
            
            'Else
            'Nada
            'End If
        
        Next Hoja
        
    End If
    
End With

End Sub

Por cortesía de ExceleInfo

A esto me gustaría asignar los valores de las celdas de cada informe como variables para la creación del documento.

y excluir la hoja de "Datos" de la exportación a PDF