Jorgedlneto

@osvaldomp Muito, obrigado!!

@osvaldomp  Só isso:

ChDir "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço"

18 minutos atrás, osvaldomp disse:

 

Veja se atende.

 

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
   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
  Next c
End Sub

 

@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