Excel Salvar PDF com vários títulos

[Mayara Rubio Barreto]

Boa tarde,

 

Tenho uma pasta de trabalho Excel em que uma aba tem o que deve ser salvo em pdf. Nessa aba, quando troco o nome da célula "C9" os dados abaixo atualizam e salvo novamente do pdf com o nome do arquivo contendo o nome da célula "C9". Para isso, utilizo o código:

 

Sub Salvar_PDF()  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Estrutura\Mayara\PDF SAC\SAC " & Range("C9") & " " & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False    
End Sub

 

Mas o que preciso saber é se tem como de forma automática os nomes irem se alterando e a cada nome alterado ocorrer o salvamento em pdf.

 

Pensei em alguma forma a macro percorrer uma lista suspensa vinculada à celula "C9", ou então, a macro buscar a lista numa base de dados na aba ao lado. Tem por volta de 150 nomes para serem colocados.

 

Poderiam me ajudar?

[Visitante]

Experimente o código abaixo.

Sub ChamaPDFs()
 Dim p As Range
  For Each p In Sheets("Plan2").Range("A1:A" & Sheets("Plan2").Cells(Rows.Count, 1).End(3).Row)
   [C9] = p.Value
   Salvar_PDF
  Next p
End Sub

obs.

1. coloque na coluna A da planilha ao lado, a partir de A1, a lista com os nomes (sugiro colocar de início somente 2 ou 3 nomes para testes)

2. considerei o nome da planilha ao lado como Plan2, altere se necessário

 

funcionamento - ao rodar o código acima, os nomes da coluna A da Plan2 serão replicados em C9 da planilha ativa, um nome por vez, e a cada nome replicado será chamado o seu código atual Salvar_PDF.

[Mayara Rubio Barreto]

@osvaldomp muito obrigada! Vou tentar com suas instruções e volto a responder aqui se deu certo.

[Mayara Rubio Barreto]

@osvaldomp Muito obrigada o código deu super certo, era exatamente o que precisava!