Este fórum está sendo desativado

[FelipeH]

Pessoal, estou com dois impasses que não consigo resolver

01. Gerar .pdf escolhendo onde salvar.
Estou criando um botão, para que quando for clicado gera um .pdf de um intervalo específico, porém gostaria que fosse perguntado a pasta onde desejo salvar (abrir aquela janela de salvamento).

o código que estava tentando é o seguinte:

Código: Selecionar todos

Sub SalvarPDF()
'
' SalvarPDF Macro
'

'
    Range("D9:P46").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True
 End Sub

Como ajustar esse código?

02. Reexibir linhas ocultas.
Tenho outro botão, que gostaria que ao clicar, fossem reexibidas as linhas que estão ocultas. Já montei o código macro abaixo porém as linhas não são reexibidas.

Código: Selecionar todos

Sub exibirlinhas()
'
' exibirlinhas Macro
'

'
    Rows("47:190").EntireRow.Hidden = False
End Sub

O que é necessário ajustar no código acima?


Obrigado desde já por quem conseguir me ajudar.