Pessoal, to bem enferrujado em VBA no Excel e preciso de ajuda.
Preciso que minha planilha gere pdf das abas selecionadas em uma caixa de listagem.
Criei um Userfom com commadButton + caixa de listagem e to usando as funções abaixo, mas ta dando erro falando q o documento não foi salvo.
Alguém consegue me ajudar nisso?
Vlw abs
Private Sub UserForm_Click()
Dim i As Integer
Private Sub CommandButton1_Click()
Dim i As Integer
'Conta os itens do listbox
For i = 0 To ListBox1.ListCount - 1
'Verifica se o item do listbox esta selecionado
'Se estiver selecionado continua a rotina
If ListBox1.Selected(i) Then
endereco = "C:Relatórios TD PDFs " & ListBox1.List(i) & ".pdf"
Sheets(ListBox1.List(i)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
'Adiciona os Nomes das Abas no Listbox
For Each ws In ThisWorkbook.Worksheets
ListBox1.AddItem (ws.Name)
Next ws
End Sub
Postado : 25/08/2015 9:21 pm