Ir ao conteúdo
  • Cadastre-se
MooM

RESOLVIDO GERAR RELATÓRIO PDF DE OUTRA ABA

Recommended Posts

Boa tarde!

 

Tenho uma planilha com duas abas:

 

1º aba =  "SI TRUCK" 

2º aba =  "RELATÓRIO"

 

Gostaria de criar um botão dentro da aba "SI TRUCK" que ao clicar imprima a aba "RELATÓRIO" em pdf (área de impressão que eu já estipulei no menu exibição e quebra de página) e salve o arquivo com o nome que eu preciso, o nome do arquivo seria mais ou menos assim(se possível claro):

 

SI TRUCK - "colar o conteúdo da célula a'" - "colar o conteúdo da célula a2" - data atual

 

Já procurei em vários lugares e achei muitos códigos, mas como não conheço nada de códigos, não consegui ajustar nenhum código que fizesse o que eu preciso.

 

Se alguém puder ajuda, agradeço.

 

Abc

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde!

 

Tenho uma planilha com duas abas:

 

1º aba =  "SI TRUCK" 

2º aba =  "RELATÓRIO"

 

Gostaria de criar um botão dentro da aba "SI TRUCK" que ao clicar imprima a aba "RELATÓRIO" em pdf (área de impressão que eu já estipulei no menu exibição e quebra de página) e salve o arquivo com o nome que eu preciso, o nome do arquivo seria mais ou menos assim(se possível claro):

 

SI TRUCK - "colar o conteúdo da célula a'" - "colar o conteúdo da célula a2" - data atual

 

Já procurei em vários lugares e achei muitos códigos, mas como não conheço nada de códigos, não consegui ajustar nenhum código que fizesse o que eu preciso.

 

Se alguém puder ajuda, agradeço.

 

Abc

 

 

 

Pra quem interessar...achei esse código e adaptei ele para reexibir uma aba, depois gerar o pdf e oculta-lo novamente.

Também nomeia o arquivo utilizando algumas células.

 

Sub PDF()
Sheets("RELATÓRIO").Visible = True
 
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
MyLocal = "C:\Documents and Settings\"
Nome = Range("X12").Value
Complemento = Range("X10").Value
SDate = Now
If Nome <> vbNullString Then
Sheets("RELATÓRIO").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & "SI-" & Nome & Complemento & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Application.DisplayAlerts = False
Else
Application.DisplayAlerts = False
End If
 
Sheets("RELATÓRIO").Visible = False
End Sub

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

×