Gerar Relatório em PDF e enviar por e-mail

Question

Boa tarde Barbara, será vc poderia me ajudar com essa macro, gostaria que nome do arquivo fosse c1+a12, o endereço de email estará na celular N4 e pdf pode ser salvo em meus documentos. se puder me ajudar por gentileza. 

Answer 1

firesmashing11,

Agora que eu entendi... 

================================================
BárbaraBettanin

Macro para Gerar Relatório PDF e automaticamente enviar por e-mail RRS feed

https://social.msdn.microsoft.com/Forums/pt-BR/09f526b6-bee3-4b0e-a8ac-ee845b7d29e8/macro-para-gerar-relatrio-pdf-e-automaticamente-enviar-por-email?forum=vbapt
================================================
VBA PARA SALVAR PDF (CADA PÁGINA EM UM ARQUIVO)

Sub SalvaPDF()
    Dim PdfCaminho As String
    Dim PdfNome As String
  
    UltimaAba = ActiveWorkbook.Sheets().Count 'Conta quantas abas tem na planilha
    
    For i = 1 To UltimaAba
    
    PdfCaminho = VBA.Environ("USERPROFILE") & "\Desktop\" 'Diretório onde irá salvar o documento
    PdfNome = Range("a1").Value 'Aqui você precisa referenciar uma célula que irá dar nome a planilha, precisa ser a mesma célula em todas as abas, se o nome for repetido ele irá salvar por cima.
    
    'Caso queira uma mensagem de OK de aba por aba
    'MsgBox "O arquivo " & PdfNome & " foi salvo em " & PdfCaminho & ".", vbOKOnly, "Salvo"
  
    ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    PdfCaminho & PdfNome, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    Call TrocaAba
    Next
End Sub

https://gurudoexcel.com/forum/viewtopic.php?t=11006
================================================


Acho que o segredo está aqui, você deixa marcado o intervalo de "c1+a12":

================================================
Como selecionar células/intervalos usando os procedimentos do Visual Basic no Excel

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A1:C12")

https://docs.microsoft.com/pt-br/previous-versions/office/troubleshoot/office-developer/select-cells-rangs-with-visual-basic
================================================

E depois manda salvar em PDF para SOMENTE células selecionadas...

================================================
Como Salvar Área Selecionada de Planilha Excel em PDF
26 de abr. de 2018
CANAL SGP
https://youtu.be/sQFzpRr4UeE
================================================

GRAVA UMA MACRO DO QUE O RAPAZ FEZ NO VÍDEO ACIMA E VOCÊ SABERÁ QUAIS OS COMANDOS VBA QUUE PRECISA APLICAR... SE NÃO SOUBER, ME FALA QUE EU FAÇO.

[]'s,
Fabio I.