Excel Filtrar entre datas em textbox

[paulocezarpicos]

Boa noite galera,

 

Tentei fazer um filtro na minha planilha entre datas, mas não achei nada na net que desse como parâmetro, um pontapé inicial. Peço a ajuda de vocês pra fazer esse filtro. É o seguinte, fiz um userform (já criado) onde devo inserir data inicial e data final. A pesquisa será feita na aba geral e impressa na aba maio/2021.

 

Obs.: Planilha em anexo

 

Agradecido a quem me prestar essa ajuda

LEITURA.zip

[RafaVillani]

@paulocezarpicosVeja se lhe atende, esta um pouco lento devido ao número de informações.

 

RafaVillani

LEITURA.rar

[paulocezarpicos]

RafaVillani,

 

Aqui num rodou não. Não dá pra ser as datas no userform já criado não??

[RafaVillani]

@paulocezarpicos

28 minutos atrás, paulocezarpicos disse:

Não dá pra ser as datas no userform já criado não??

Mas está dessa forma, você deve inserir as datas nos textbox do userform. Dessa forma esta muito lento, estou escrevendo um código mais rápido. Assim que finalizar eu envio a planilha.

 

RafaVillani

[paulocezarpicos]

Ok RafaVillani, agradecido pela atenção

[RafaVillani]

@paulocezarpicosSegue a planilha com o filtro muito mais rápido.

 

Lembrando que, conforme sua aba maio2021 você apenas pode filtrar um intervalo de 30 dias.

 

RafaVillani

 

LEITURA.rar

[paulocezarpicos]

RafaVillani,

 

Muito agradecido pela atenção e pelo trabalho que você fez. Ficou beleza, do jeito que eu desejava que ficasse. Pra ficar 11 só precisa você fazer uma coisa que aparentemente (sempre fiz nas minhas planilhas) é muito simples, só que eu não consegui. Fazer rodar os códigos fontes com as planilhas protegidas e também ocultar a planilha "Dados", que é a de impressão. 

 

Obs.:  Planilha em anexo

LEITURA4.zip

[RafaVillani]

@paulocezarpicosSegue a planilha!

 

RafaVillani

LEITURA4.rar

[paulocezarpicos]

RafaVillani,

 

Mil desculpas, eu que não fui bem claro. A planilha que deve ficar oculta é a maio/2021 e não a geral.

[RafaVillani]

@paulocezarpicosSegue novamente a planilha.

 

RafaVillani

LEITURA4.rar

[paulocezarpicos]

RafaVillani,

 

Deu a mensagem de que a planilha está protegida. Seria pedir demais, se você usasse a postagem #7?? É que essa planilha está totalmente terminada, só faltando proteger a aba"Geral" e acultar  a aba "Dados".

[RafaVillani]

@paulocezarpicosEu usei a planilha do post #7, quando ocorre a mensagem de planilha bloqueada? Lembro que para fazer qualquer alteração na aba Geral, primeiro você deve desbloquear a planilha, caso contrario a mensagem irá aparecer mesmo.

 

RafaVillani

LEITURA4.rar

[paulocezarpicos]

[Patropi]

@paulocezarpicos

 

O Rafa tem te ajudado e você não curtiu nenhuma resposta dele.

E quando a dúvida estiver sanada, não se esqueça de marcar a resposta que resolveu a dúvida, como solução.

 

[]s

[paulocezarpicos]

Tem razão Patropi. Fiquei indignado, não pelo puxão de orelha, mas porque sou muito cuidadoso em curtir e agradecer. Minhas desculpas RafaVillani e muito obrigado pela ajuda

[RafaVillani]

@paulocezarpicos

5 horas atrás, paulocezarpicos disse:

Minhas desculpas RafaVillani e muito obrigado pela ajuda

Sem problemas, tudo certo! Precisando é só chamar!

[paulocezarpicos]

RafaVillani,

 

Não sei se tem alguma coisa errada ou fiz alguma coisa errada, mas na sua formula depois do end if, tudo que uso não funciona, no exemplo aqui é o "CALL IMPRIMIR e UNLOAD ME". Já fiz de tudo e as funções não funcionam. O userform1 após dá ok não fecha, como também a macro "imprimir" não executa. Veja pra mim, por favor.

 

If QtdLinhaFiltro > 31 Then
    MsgBox "Intervalo entre datas muito grande, selecione outro intervalo!", vbInformation, "FILTRO"
Else: Plan16.Range("A7:K" & QtdLinhaFiltro + 6) = MatrizFiltro
    Exit Sub
End If
'Call imprimir
'Unload UserForm1
Unload Me
End Sub
 

OBS.: Planilha em anexo

LEITURA6.zip

[RafaVillani]

@paulocezarpicosQuando você alterou o código você colocou o Exit Sub no lugar errado, o que está acontecendo é que o filtro esta ocorrendo e, após, o código Exit Sub é ativado e o código é interrompido, e as linhas abaixo do End If não são lidas-executadas, na verdade, o código deve ser interrompido quando a variável QtdLinhaFiltro foi maior que 31.

 

Para corrigir basta você mover o Exit Sub e coloca-lo acima do Else, ficando assim:

If QtdLinhaFiltro > 31 Then
    MsgBox "Intervalo entre datas muito grande, selecione outro intervalo!", vbInformation, "FILTRO"
Exit Sub
Else: Plan16.Range("A7:K" & QtdLinhaFiltro + 6) = MatrizFiltro
End If
Call imprimir
Unload UserForm1
Unload Me
End Sub

RafaVillani

[paulocezarpicos]

Valeu RafaVillani, você é um expert no VBA. Muito obrigado.

[RafaVillani]

@paulocezarpicosQue nada, ainda estou aprendendo, se precisar é só chamar.

 

Ps. Você marcou sua própria resposta como solução.

[Patropi]

@paulocezarpicos

 

Você está marcando a tua resposta como solução, e o correto é marcar a resposta do Rafa que solucionou a dúvida.

 

[]s

[paulocezarpicos]

Perdão 

[paulocezarpicos]

RafaVillani, boa noite.

 

Rafa você teve tanto trabalho e paciência nessa planilha que tô com maior medo de danificar o código que você fez pra mim. É o seguinte, tive a ideia de distribuir essa planilha entre meus clientes e resolvi acrescentar minha logo na planilha de impressão. Fiz isso e apareceu um erro, aí achei melhor pedir sua ajuda, ao invés de insistir e correr o risco de danificar seu código. Queria que ao invés de imprimir a aba maio2021 imprimisse a aba impressao, pode ser???

 

De já meus agradecimentos.

Obs.: Planilha em anexo

LEITURA - teste.zip

[paulocezarpicos]

Boa noite RafaVillani e a todos.

 

Depois de muito queimar pestana consegui. Mesmo assim muito obrigado a RafaVillani e a esse grupo que já me ajudou tanto.

 

Um abraço,

 

Paulo Cezar

[RafaVillani]

@paulocezarpicosMe desculpe

por não lhe responder, voltei a trabalhar e meus dias são bastante corridos, principalmente finais de semana. Contudo, que bom que você conseguiu resolver, no mais, se precisar, é só chamar.

 

RafaVillani