Exportar dados de Filtro listbox1 para PDF  [Resolvido]

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Exportar dados de Filtro listbox1 para PDF

Mensagempor Brucinho » Qui Ago 08, 2019 6:51 pm

Boa noite senhores,
alguém pode me ajudar na minha rotina, ela não esta funcionando como deveria, a questão eé que ela deveria filtrar os dados do Listbox1 e trazer esses dados para uma planilha dentro da minha pasta chama PDF (planilha8), os dados em que consulto estão na notas (planilha5), a rotina é executada parcialmente com sucesso pois ela salva os dados em formato pdf, mas o filtro não funciona e não vai para a planilha8 e por tanto não é gerado o relatório com filtro

Saem as duas informações em PDF, mesmo quando eu filtro um mês em questão.

RECEBIMENTO EMISSÃO DUPLICATA A VALOR A DUPLICATA B VALOR B FORNECEDOR Nº DA NF TOTAL ICMS
05/08/2019 05/08/2019 05/08/2019 R$ 8.525,25 05/08/2019 R$ 7.254,25 ADIDAS DO BRASIL 363535 R$ 14.500,25 335,00%
05/09/2019 05/09/2019 05/09/2019 R$ 8.525,25 05/09/2019 R$ 7.254,25 ADIDAS DO BRASIL 363535 R$ 14.500,25 335,00%

Poderiam me auxiliar?
segue rotina.

Código: Selecionar todos
Private Sub CommandButton2_Click()

Planilha5.Activate
Planilha5.Select
Planilha5.Unprotect Planilha1.Range("Z1").Text


If ListBox1.ListCount = 0 Then
MsgBox "Não há dados a ser exportado!", vbCritical, "RELATÓRIO"
Exit Sub
End If

Planilha5.Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2").Select

Planilha5.Cells(1, 1) = "RECEBIMENTO"
Planilha5.Cells(1, 2) = "EMISSÃO"
Planilha5.Cells(1, 3) = "DUPLICATA A"
Planilha5.Cells(1, 4) = "VALOR A"
Planilha5.Cells(1, 5) = "DUPLICATA B"
Planilha5.Cells(1, 6) = "VALOR B"
Planilha5.Cells(1, 7) = "FORNECEDOR"
Planilha5.Cells(1, 8) = "Nº DA NF"
Planilha5.Cells(1, 9) = "TOTAL"
Planilha5.Cells(1, 10) = "ICMS"

Dim numero As Double
Dim numero1 As Double
Dim numero2 As Double
Dim data As Date
Dim data1 As Date
Dim data2 As Date
Dim data3 As Date
Dim valor As Currency
Dim valor1 As Currency
Dim valor2 As Currency

linha = 1

For item = 1 To ListBox1.ListCount - 1

On Error Resume Next
data = ListBox1.List(item, 1)
On Error Resume Next
data1 = ListBox1.List(item, 2)
On Error Resume Next
data2 = ListBox1.List(item, 3)
On Error Resume Next
valor = ListBox1.List(item, 4)
On Error Resume Next
data3 = ListBox1.List(item, 5)
On Error Resume Next
valor1 = ListBox1.List(item, 6)
On Error Resume Next
numero2 = ListBox1.List(item, 7)
On Error Resume Next
numero = ListBox1.List(item, 8)
On Error Resume Next
valor2 = ListBox1.List(item, 9)
On Error Resume Next
numero1 = ListBox1.List(item, 10)

Planilha5.Cells(lihha, 1) = data
Planilha5.Cells(lihha, 2) = data1
Planilha5.Cells(lihha, 3) = data2
Planilha5.Cells(lihha, 4) = valor
Planilha5.Cells(lihha, 5) = data3
Planilha5.Cells(lihha, 6) = valor1
Planilha5.Cells(lihha, 7) = numero
Planilha5.Cells(lihha, 8) = numero
Planilha5.Cells(lihha, 9) = valor2
Planilha5.Cells(lihha, 10) = numero1

linha = linha + 1

Next
   
Resp = MsgBox("Dados Exportados! Gerar PDF?", vbYesNo, "Exportar PDF")

If Resp = vbYes Then

Módulo1.pdf_relatorios

Planilha5.Protect Planilha1.Range("Z1").Text

End If

End Sub


Utilizo-me desta SUB:

Código: Selecionar todos
Sub pdf_relatorios()

On Error GoTo Erro

Planilha5.Activate
Planilha5.Select
Planilha5.Range("A1").Select

caminho = ThisWorkbook.Path & "\PDF NOTAS.pdf"

Selection.End(xlDown).Select
Intersect(Selection.EntireRow, Range("A:J")).Select
Range(Selection, Selection.End(xlUp)).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
caminho, Quality:=xlQualityStandard
IncludeDocProperties = True
ingnoreprintareas = False
openafterpublish = True


Exit Sub

Erro:
MsgBox "Erro!", vbCritical, "PDF RELATORIOS"


End Sub


Caso possam me ajudar, expliquem o motivo do codigo não esta dando certo também, preciso aprender.
obrigado pessoal.
Brucinho
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Mai 28, 2019 4:14 am
Has thanked: 6 times
Have thanks: 1 time

{ SO_SELECT }

Re: Exportar dados de Filtro listbox1 para PDF

Mensagempor rlm » Qui Ago 08, 2019 7:56 pm

Não entendi vossa colocação. "... chama PDF (planilha8)..." Nas rotinas expostas acima nenhuma faz menção a Planilha8; bem como não há nada sobre filtro tambem. :oops:
A primeira rotina utiliza uma planilha chamada "Planilha5", verifica se há registro em um listbox, :roll:
se houver efetua uma multipla seleção nessa dita planilha5 (não sei porque ou para que). :mrgreen:
Depois começa a preencher a linha 1 (cabeçalho, crei eu) da planilha apesar de ter anteriormente selecionado a linha dois "???" :?:
Ai efetua um loop nos itens da listbox para "gravar" na planilha, porem começa na linha 1 novamente, o que conflita (provavelmente sobrescreve dados) com a atividade anterior :?: :?: -->
Concluída essa operação e feita a pergunta se deseja exportar, se sim remete a segunda rotina -->pdf_relatorios <--
Que "apenas" efetua a "exportação" da planilha5 como pdf.

Creio que seja melhor rever sua logica comparando o que está com o que gostaria que fosse, não é possível; eu pelo menos não consigo; dizer onde há o "erro"
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author rlm thanked:
Brucinho (Qui Ago 08, 2019 9:28 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 284
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 18 times
Have thanks: 133 times

Re: Exportar dados de Filtro listbox1 para PDF

Mensagempor Brucinho » Qui Ago 08, 2019 9:31 pm

Reinaldo,
Boa noite.

Os dados que quero estão na planilha5, mas acredito que foi uma confusão minha, com seu raciocínio ficou mais claro que a rotina realmente ta funcionando, preciso apenas escolher a planilha 8 no lugar da 5, mas e para fazer a exportação dos valores que estiverem no Listbox (apenas os filtrados), para a planilha8 para que possa gerar esse PdF, poderia me ajudar? Ja falou sobre essa exportacão antes?

Lembrando que Loop que eu coloquei para subscrever dados justamente para que os relatorios que serã9 gerados se subscreva e gere novo relatorio sempre, a planilha8 existirá tao somente pra isso receber dados de outras planilhas pelo filtro da listbox e gerar o pdf para mim, diferentes dados e para nao conflitar segue subscrevendo

Obrigado.
Brucinho
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Mai 28, 2019 4:14 am
Has thanked: 6 times
Have thanks: 1 time

Re: Exportar dados de Filtro listbox1 para PDF  [Resolvido]

Mensagempor rlm » Sex Ago 09, 2019 7:11 am

Qdo disse "..provavelmente sobrescreve dados.." estava me referindo a linha 1 tão somente.
Ao utilizar a planilha como repositório para impressão/exportação, e recomendado que antes do inicio da nova reposição de dados , os existentes anteriormente seja excluidos algo +/-
Código: Selecionar todos
Cells.Clear

ou
Código: Selecionar todos
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete


Não entendi ate o momento a demanda referente a filtro
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author rlm thanked:
Brucinho (Sáb Ago 10, 2019 2:59 am)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 284
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 18 times
Have thanks: 133 times

Re: Exportar dados de Filtro listbox1 para PDF

Mensagempor Brucinho » Sáb Ago 10, 2019 2:59 am

Isso mesmo Cells.clear, obrigado! Consegui Reinaldo, um grande abraço.
Brucinho
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Mai 28, 2019 4:14 am
Has thanked: 6 times
Have thanks: 1 time


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes

cron