Excel - Coloque um Botão para Salvar em PDF sua Planilha - Passo a Passo - Fácil!

#salvar #botão #excel #pdf
Coloque um botão, salve em pdf e ainda escolha a pasta e o nome do arquivo!
Muito útil!
Planilha de Pedidos usada no vídeo
• Planilha para Fazer Pe...
Botão para Imprimir
• Excel - Coloque um Bot...
Planilha de Pedidos (Simples, passo a passo)
• Excel - Pedido SUPER T...
Planilha de OS (passo a passo)
• Excel - Planilha OS Co...
Código do Botão Salvar
Sub Salvar()
On Error GoTo Mensagem
Dim nome As String
Dim pasta As String
If Range("T15").Value = "Código" Then
nome = Range("C7").Value
End If
If Range("T15").Value = "Nome do Cliente" Then
nome = Range("F10").Value
End If
If Range("T15").Value = "Código + Nome do Cliente" Then
nome = Range("C7").Value & "_" & Range("F10")
End If
pasta = "C:\" & Range("T11").Value & "\"
ChDir pasta
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pasta & nome, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
Mensagem:
MsgBox "Pasta para salvar não encontrada!", vbCritical, "Erro!"
End Sub