Boa noite renatobonini. Demorei mas consegui o que voce precisava.
Option Explicit
Sub Salvando()
Dim Nome As String
Dim SDate As String
Nome = Range("Q3").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If
End Sub
Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.
Qualquer dúvida estou à disposição,
Leno Mota
Boa noite renatobonini. Demorei mas consegui o que voce precisava.
Option Explicit
Sub Salvando()
Dim Nome As String
Dim SDate As String
Nome = Range("Q3").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
Qualquer dúvida estou à disposição,
Leno Mota.
End If
End Sub
Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.
Qualquer dúvida estou à disposição,
Leno Mota