Este fórum está sendo desativado

[BetoSSena]

Bom dia,

Tenho uma macro que gera o PDF de um relatório, porém, preciso criar esse processo 30 vezes, pois gero um relatório para cada vendedor.

Uso uma =INSERIR("Forms.ComboBox.1";"") para buscar os nomes dos vendedores direto na planilha que está na coluna "AP2".
Não usei macro para buscar os nomes dos vendedores, fiz direto dentro do botão em Categorizado>Listfilrange

Minha dúvida é a seguinte.
Teria como criar um macro para gerar todos relatórios por vendedor de uma unica vez.
Tipo . Ela consultaria a coluna onde está os nome do vendedor e criar os PDF em até o ultimo nome da coluna que hoje é 30, porém, esse número muda de mes para mês.


Segue a macro que gera o PDF

SUB PDF()

Dim Nome As String
Nome = Range("af2")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\roberto\Desktop\ " & Nome & " .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

[gfranco]

Bom dia.
Sugiro postar sua planilha para facilitar ajudar-lhe...

[BetoSSena]

Boa tarde, gfranco

Coloquei um modelo exatamente como é o arquivo original.
Para gerar o PDF 1 a 1 , está ok.

O que eu gostaria é que a macro fizesse a busca o coluna do vendedor para gerar automático os PDF, até consegui fazer isso, porém, não consigo fazer o botão mude o nome do vendedor anda da macro do PDF gerar cada arquivo.

[gfranco]

Boa tarde.
Veja se o anexo se aproxima de seu objetivo.

[BetoSSena]

Resolveu perfeitamente!
Obrigado