Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Filtro por intervalo de data RESOLVIDO

Dúvidas gerais sobre Excel
AleGrotto
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qua Jul 21, 2010 12:26 am

Filtro por intervalo de data RESOLVIDO

Mensagem por AleGrotto »

Boa Noite a todos!

Como posso fazer no VBA um filtro que me retorne todos as linhas da planilha que estejam entre um intervalo de data?
As datas inicial e final eu coloco em um TextBox que está no meu Form.

Consegui fazer funcionar com duas datas fixas, mas quando tento colocar as datas através do TextBox não funciona.
Segue abaixo código que funcionou com datas fixas. Quando tento colocar o nome das TextBox no lugar das datas, não funcionou


ActiveSheet.Range("$A$1:$F$19").AutoFilter Field:=6, Criteria1:= _
">=2/10/2010", Operator:=xlAnd, Criteria2:="<=4/10/2010"

Agradeço antecipadamente
Editado pela última vez por AleGrotto em Seg Ago 23, 2010 2:26 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Filtro por intervalo de data

Mensagem por webmaster »

Ale,

Deveria ser algo assim:

Código: Selecionar todos

ActiveSheet.Range("$A$1:$F$19").AutoFilter Field:=6, Criteria1:= _
">=" & Format(Me.TextBoxDataInicial.Text, "dd/mm/yyyy"), Operator:=xlAnd, Criteria2:="<=" 7 Format(Me.TextBoxFinal.Text, "dd/mm/yyyy")
Com alguns ajustes no código. Veja se funciona.

Abraços


Felipe Dasi
Colaborador
Colaborador
Mensagens: 54
Registrado em: Seg Jul 05, 2010 6:56 am

Re: Filtro por intervalo de data

Mensagem por Felipe Dasi »

Ale e Tomas

Tinha este modelo em meus arquivos, talvez ajude...Abs
Anexos
Filtro por Data com Form.zip
(20.24 KiB) Baixado 3300 vezes


AleGrotto
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qua Jul 21, 2010 12:26 am

Re: Filtro por intervalo de data

Mensagem por AleGrotto »

Olá Thomás,

Antes de mais nada, obrigado pela sua atenção.

Testei a mudança que você sugeriou, mas funcionou parcialmente.
Verifiquei dois erros:
1º) Quando eu coloco uma data inicial que não possue um correspondente idêntico na planilha, ele não localiza nenhuma data.
Por exemplo: Ao solicitar um intervalo de 01/07/2010 até 25/07/2010, se não houver nenhum registro em 01/07/2010 não aparece nada na consulta.

2º) Está aparecendo meses que estão fora do intervalo, parece que os critérios estão considerando somente os dias e não os dias, meses e anos, isso é possível?

Se não for incômodo, aguardo seu retorno.

Obrigado novamente
Ale


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Filtro por intervalo de data

Mensagem por joseA »

Permitam-me...

:?

Existe outra maneira de filtrar intervalo por data.

Mostra o seu arquivo


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Filtro por intervalo de data

Mensagem por Mauro Coutinho »

Acho que já devo ter postado esse link, mas de qualquer forma segue o mesmo :

Excel Advanced Filter--Introduction
http://www.contextures.com/xladvfilter01.html


[]s


AleGrotto
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qua Jul 21, 2010 12:26 am

Re: Filtro por intervalo de data

Mensagem por AleGrotto »

Olá Felipe Dasi,

Finalmente consegui testar a sua sugestão.
Fiz as devidas adaptações para a minha planilha e seu código funcionou perfeitamente.

Parabéns e muito obrigado!!

Grande abraço
Ale


pedroschmidt92
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Jan 12, 2016 1:30 pm

Re: Filtro por intervalo de data RESOLVIDO

Mensagem por pedroschmidt92 »

Caros,

o filtro entre datas eu consegui fazer, mas preciso acrescentar exceções ao meu filtro, sabem dizer como faria?

Por exemplo, eu quero que ele filtre todas as datas entre o dia 01/12/2015 e 31/01/2016, mas desconsidere o dia 25/12/2015 e o dia 01/01/2016. É possível?

Eu tentei dizendo que "anomalia1" é uma célula que pode ou não estar preenchida (nem sempre teremos anomalias), e usando o pivotitems, assim:

With ActiveSheet.PivotTables(dinamica).PivotFields("Dt Edicao")
If anomalia1 <> "00:00:00" Then
.PivotItems(anomalia1).Visible = False
End If

Esse " <> "00:00:00" é para ele não tirar nada quando anomalia estiver vazia..


dillanbarid
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Nov 24, 2020 11:51 am

Re: Filtro por intervalo de data

Mensagem por dillanbarid »

Felipe Dasi escreveu: Ter Jul 27, 2010 3:50 pm Ale e Tomas

Tinha este modelo em meus arquivos, talvez ajude...Abs
Amigo tudo bem,
tentei baixar o arquivo que vocês disponibilizou porem o mesmo se encontra corrompido teria como disponibiliza-lo novamente?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder