Aline Ramos Borges

Boa tarde, Pessoal,

Preciso de ajuda com a macro abaixo, preciso adaptá-la para quando as planilhas e as abas são de arquivos diferentes para que ele salve o arquivo segundo uma determinada célula (Ex: C2 = 2020 09 25 - XXX.pdf).

 

 

Sub SalvaIntervalosEmPDF()

Dim LocalPDF As String

 

  LocalPDF = "caminho na rede.pdf"

 

  Sheets("X").Activate

  ActiveSheet.Range("B2:AJ84").Select

  Sheets("Y").Activate

  ActiveSheet.Range("B2:K67").Select

  Sheets("Z").Activate

  ActiveSheet.Range("B2:G82").Select

  Sheets("A").Activate

  ActiveSheet.Range("B2:H27").Select

  Sheets("B").Activate

  ActiveSheet.Range("B2:H27").Select

  Sheets(Array("X", "Y", "Z", "A", "B")).Select

  

  Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LocalPDF, Quality:=xlQualityStandard, _

   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

  

End Sub

 

 

@osvaldomp e @LaerteB vocês sabem o que eu deveria alterar nos comando caso fosse duas planilhas diferentes?

Obrigada @Vics funcionou.

@Midori quando eu atribuo .cc igual fiz para o to ele apresenta erro. Vou verificar o attachmentes.Add.

@Muca Costa vou verificar seu código, obrigada.

Olá boa tarde, Pessoal,

 

Preciso da ajuda de você para adaptar a macro abaixo se for possível da seguinte forma:

1) Preciso que uma lista de distribuição de e-mail fique no Para (To) e outra no Cc.

2) Preciso que ele anexe automaticamente dois arquivos em PDF, por favor me ajudem.

 

Option Explicit

Sub enviaremail()

    Dim intervalo As Range
    Dim grafico As ChartObject
    Dim objoutlook As Object

    Set intervalo = Planilha17.Range("C13:F34")
    intervalo.CopyPicture
    Set grafico = Planilha17.ChartObjects.Add(intervalo.Left, intervalo.Top, intervalo.Width, intervalo.Height)
    With grafico
    .Activate
    .Chart.Paste
    .Chart.Export Environ$("temp") & "/grafico.jpg"
    .Delete
 
    End With

    Set objoutlook = CreateObject("outlook.application").createitem(0)
    With objoutlook
    .to = Range("C4")
    .attachments.Add Environ$("temp") & "/grafico.jpg", 1, 0
    .HTMLbody = "<img src='cid:grafico.jpg'>"
    .display
    .Subject = Range("C10")
     
    Set objoutlook = Nothing
    Set grafico = Nothing
    Set intervalo = Nothing
    
    End With
    
End Sub
 

E-mail.xlsx

Obrigada @osvaldomp e @LaerteB as macros funcionaram.

E o obrigada pelas dicas de anexar o arquivo, eu desconhecia.

 

Olá boa tarde,

 

Eu preciso criar uma macro que salve a informação de duas abas diferentes da mesma planilha em um único PDF.

Eu comecei utilizando a macro abaixo, mas não sei como faço para acrescentar a informação da segunda aba da planilha, alguém consegue me ajudar?

 

Sub SalvarIntervaloPDF()

Dim LocalPDF As String

Dim intervalo As Range

LocalPDF = "W:\14. Projeto Gestão à Vista\02. Banco de Dados\06. Aging List\Nova Proposta\02. Aging List\Aging List.pdf"

Set intervalo = Sheets("Aging List").Range("B2:AJ84")

intervalo.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=LocalPDF

End Sub

Olá boa tarde,

 

Eu preciso criar uma macro que salve a informação de duas abas diferentes da mesma planilha em um único PDF.

Eu comecei utilizando a macro abaixo, mas não sei como faço para acrescentar a informação da segunda aba da planilha, alguém consegue me ajudar?

 

Sub SalvarIntervaloPDF()

Dim LocalPDF As String

Dim intervalo As Range

LocalPDF = "W:\14. Projeto Gestão à Vista\02. Banco de Dados\06. Aging List\Nova Proposta\02. Aging List\Aging List.pdf"

Set intervalo = Sheets("Aging List").Range("B2:AJ84")

intervalo.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=LocalPDF

End Sub