Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Filtro por intervalo de data RESOLVIDO
Filtro por intervalo de data RESOLVIDO
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
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.
Re: Filtro por intervalo de data
Ale,
Deveria ser algo assim:
Com alguns ajustes no código. Veja se funciona.
Abraços
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")
Abraços
-
- Colaborador
- Mensagens: 54
- Registrado em: Seg Jul 05, 2010 6:56 am
Re: Filtro por intervalo de data
Ale e Tomas
Tinha este modelo em meus arquivos, talvez ajude...Abs
Tinha este modelo em meus arquivos, talvez ajude...Abs
- Anexos
-
- Filtro por Data com Form.zip
- (20.24 KiB) Baixado 3316 vezes
Re: Filtro por intervalo de data
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
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
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Filtro por intervalo de data
Permitam-me...
Existe outra maneira de filtrar intervalo por data.
Mostra o seu arquivo
Existe outra maneira de filtrar intervalo por data.
Mostra o seu arquivo
- Mauro Coutinho
- 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
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
Excel Advanced Filter--Introduction
http://www.contextures.com/xladvfilter01.html
[]s
Re: Filtro por intervalo de data
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
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
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Ter Jan 12, 2016 1:30 pm
Re: Filtro por intervalo de data RESOLVIDO
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..
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..
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Ter Nov 24, 2020 11:51 am
Re: Filtro por intervalo de data
Amigo tudo bem,Felipe Dasi escreveu: ↑Ter Jul 27, 2010 3:50 pm Ale e Tomas
Tinha este modelo em meus arquivos, talvez ajude...Abs
tentei baixar o arquivo que vocês disponibilizou porem o mesmo se encontra corrompido teria como disponibiliza-lo novamente?