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