Esse pedido vai se enviado para fornecedores, para não correr o risco de alteração.
Segue a macro que utilizo na planilha:
Sub auto_Open()
Range("p7") = Range("p7") + 1
ThisWorkbook.Save
End Sub
Sub Salvar_como()
Dim FNome1 As String
Dim FNome2 As String
Dim FNome3 As String
Dim FNome4 As String
ChDir "f:ROMA CONSTRUTORAPEDIDOS"
FNome1 = Range("N7").Value
FNome2 = Range("P7").Value
FNome3 = Range("Q7").Value
FNome4 = Range("E7").Value
ActiveWorkbook.SaveAs Filename:="f:ROMA CONSTRUTORAPEDIDOS" + FNome1 + FNome2 + FNome3 + " - " + FNome4 + ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close Savechanges:
End Sub
Sub Gerar_PDF()
Dim FNome1 As String
Dim FNome2 As String
Dim FNome3 As String
Dim FNome4 As String
ChDir "f:ROMA CONSTRUTORAPEDIDOSGERADOS EM PDF"
FNome1 = Range("N7").Value
FNome2 = Range("P7").Value
FNome3 = Range("Q7").Value
FNome4 = Range("E7").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="f:ROMA CONSTRUTORAPEDIDOSGERADOS EM PDF" + FNome1 + FNome2 + FNome3 + " - " + FNome4 + ".xls", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Postado : 20/06/2017 12:42 pm