Excel código vba excel salvar como pdf

[guicrissantos]

Boa Noite!

 

Tenho uma planilha em Excel com um botão chamado OCULTAR LINHAS BRANCAS.

Ao acionar esse botão, obviamente, oculta as linhas que não foram preenchidas.

Preciso completar esse código para imediatamente após ocultar as linhas, trazer também aquela janela "SALVAR COMO" já determinado em PDF porém, permitindo que eu escolha neste momento o local a ser salvo e o nome do arquivo.

 

Atualmente meu código é:

 

Private Sub OcultarLinhasBC_Click()
    Application.ScreenUpdating = False
    For Each xRg In Range("O12:O161")
        If xRg.Value = "" Then
            xRg.EntireRow.Hidden = True
                   
        End If

 

Se alguém puder me ajudar a completar esse código, ficarei extremamente grato.

 

Outra opção muito interessante se for possível é já trazer o nome do arquivo como: Nome da Planilha+Data do dia no formato aaaa/mm/dd.

Exemplo: RelatórioGuilherme_20200409.pdf

 

No aguardo,

Guilherme

[Victor Comparini]

@guicrissantos

 

Esse código irá permitir você escolher o local do arquivo, e irá salvar o nome no formato que você especificou.

 

Sub Salvar_Caminho()

Dim strCaminho As String
Dim sheetName As String
Dim ano As Integer
Dim mes As Integer
Dim dia As String
Dim nomeArquivo

With Application.FileDialog(msoFileDialogFolderPicker)

    'Permitir mais de uma pasta
    .AllowMultiSelect = False
    
    'Mostrar janela
    .Show
    
    sheetName = ActiveSheet.Name
    ano = Year(Date)
    mes = Month(Date)
    dia = Day(Date)
    
    nomeArquivo = sheetName & "_" & ano & mes & dia
    
    If .SelectedItems.Count > 0 Then
        strCaminho = .SelectedItems(1)
        ActiveWorkbook.SaveAs Filename:=strCaminho & "\" & nomeArquivo & ".xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End If

End With

End Sub

 

[guicrissantos]

Muito obrigado Vics.
Deu certinho.

 

Valeu.