Macro para gerar arquivo PDF com range dinâmico

[evicentini]

Tenho esta macro que gera um arquivo PDF a partir de uma planilha no excel e salva o PDF no diretório que especifiquei. Acontece que a macro gera o arquivo PDF de toda a planilha e gostaria que gerasse o PDF apenas da área onde há dados na planilha, pois esta planilha é um relatório onde o número de linhas varia em função dos dados coletados. O número de colunas é fixo (Colunas A até J). Se alguém puder me ajudar agradeço!

Valeu!

 

If OptionButton3.Value = True Then

 

Dim nome As String

nome = "X:\GESTÃO DA QUALIDADE\2017 - GESTÃO DA QUALIDADE\3- Núcleo de Segurança do Paciente\Relatório " & Range("B4") & " - " & Range("G4") & ".pdf"

Sheets("Máscara").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _

, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

End If

End Sub

[CasaDoHardware]

Como você nao disponibilizou a planilha 

 

Teste esse codigo

 

Sub PDF()

If OptionButton3.Value = True Then
 
Dim nome As String
Dim Sh As Worksheet
Dim li As Long

Set Sh = Sheets("Máscara")
    li = Sh.Range("A" & Rows.Count).End(xlUp).Row
    
nome = "X:\GESTÃO DA QUALIDADE\2017 - GESTÃO DA QUALIDADE\3- Núcleo de Segurança do Paciente\Relatório " & Sh.Range("B4") & " - " & Sh.Range("G4") & ".pdf"
Sh.Range("A1:J" & li).ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome
 
End If
End Sub

 

Ajuste o A1 em destaque de acordo para onde você deseja que o codigo inicie a conversão.

 

Por exemplo se seus dados começarem em A10 troque A1 por A10

[evicentini]

Boa tarde! Deu certo o código, era isso mesmo!

Se eu quisesse selecionar o intervalo A1:J mais a coluna M, como eu poderia fazer?

 

 

[CasaDoHardware]

Troque a j por m para ver se atende

[evicentini]

Acho que descrevi errado o que preciso... na verdade gostaria de selecionar as colunas de A até J mais a coluna M, desconsiderando as colunas K e L.

[CasaDoHardware]

So se for em folha em separado

 

E  so acrescentar uma nova  variavel e alterar essa parte

dim nome2 as string

 

nome2 = "X:\GESTÃO DA QUALIDADE\2017 - GESTÃO DA QUALIDADE\3- Núcleo de Segurança do Paciente\Relatório2 " & Sh.Range("B4") & " - " & Sh.Range("G4") & ".pdf"
Sh.Range("M1:M" & li).ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome