Jorgedlneto

@osvaldomp Muito, obrigado!!

@osvaldomp Só isso: ChDir "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço"

@osvaldomp Muito obrigado, deu certo! Completei esse código com o que eu já tinha e deu certo. Segue código: Sub PDF() Dim c As Range For Each c In Sheets("SRA").Range("C3:C" & Sheets("SRA").Cells(Rows.Count, 3).End(3).Row) [B2] = c.Value ChDir "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("b2"), Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Next c End Sub

Pessoal bom dia! Preciso de um macro para salvar como PDF vários nomes que está em outra aba da planilha. porém o nome precisa ser modificado na célula para calcular formulas de outras células. Exemplo: Eu preciso que o macro copie os nomes na aba SRA, um a um e cole na célula "B2" OS. Macro que gravei copiando apenas as duas primeiras células: Sub PDF() ' ' PDF Macro ' ' Sheets("SRA").Select Range("C3").Select Selection.Copy Sheets("OS").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço\OS Automatizada_teste.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Sheets("SRA").Select Range("C4").Select Selection.Copy Sheets("OS").Select Range("B2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço\OS Automatizada_teste2.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub Estou enviando planilha: OS Automatizada_Modelo.xlsx