Ir ao conteúdo
  • Cadastre-se
Augusto Megres

Excel Onde estou errando? (VBA)

Recommended Posts

Boa noite galera,

Estou com um problema, 

Sou iniciante em excel e estou com um erro que não sei como resolver

Estou tentando fazer o excel salvar uma área selecionada em PDF e renomear o arquivo de acordo com o valor de uma célula, porém quando tento faze-lo estou recebendo um erro e não sei como resolver.

 

O erro provavelmente está na parte do Range, pois quando eu tiro e substituo por texto ela salva normalmente com o valor do texto, mas eu preciso salvar com o valor da célula.

 

Sub SALVAR_MEMORANDO_PAGINA_1()
'
' Salvar_memorando_1_pagina Macro
'

    Sheets("MEMORANDO").Select
    Range("A1:P45").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$45"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         Environ("USERPROFILE") & "\Desktop\" & Range("N1").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    ActiveSheet.PageSetup.PrintArea = ""
    Sheets("BASE").Select
End Sub

 

Agradeço muito se puderem me ajudar

 

 

image.thumb.png.9137429cdc05b2b146d642f4acae3779.png

  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Qual a mensagem de erro?

O que há na célula N1 da planilha "MEMORANDO"?

A planilha que tem o valor em N1 é a MEMORANDO mesmo?

O arquivo já não existe? Se existir, deletar o anterior primeiro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×