Ir ao conteúdo
  • Cadastre-se

Aline Ramos Borges

Membro Júnior
  • Posts

    8
  • Cadastrado em

  • Última visita

Tudo que Aline Ramos Borges postou

  1. 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
  2. @osvaldomp e @LaerteB vocês sabem o que eu deveria alterar nos comando caso fosse duas planilhas diferentes?
  3. @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.
  4. 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
  5. Obrigada @osvaldomp e @LaerteB as macros funcionaram. E o obrigada pelas dicas de anexar o arquivo, eu desconhecia.
  6. 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
  7. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...