Página 1 de 1

Filtro entre 2 datas

Enviado: 23 Fev 2019 às 11:32
por Diego100ges
Bom dia pessoal!
Estou com uma grande dificuldade aqui, tenho uma planilha com ID, DATA, E VALOR, e gostaria de fazer um filtro entre 2 datas, uma data inicial e uma data final, para que seja possível filtrar pelo período desejado, acredito que a melhor forma seja por VBA, porém não estou conseguindo, será que alguém consegue me dar uma força aqui?

Obrigado!

Re: Filtro entre 2 datas

Enviado: 23 Fev 2019 às 15:41
por osvaldomp
Experimente:
Código: Selecionar todos
Sub FiltroEntreDatas()
 ActiveSheet.[A3:C3].AutoFilter 2, ">=" & Format([G3], "mm/dd/yyyy"), xlAnd, "<=" & Format([I3], "mm/dd/yyyy")
End Sub

Filtro entre 2 datas

Enviado: 23 Fev 2019 às 21:08
por Diego100ges
Amigo, funcionou perfeitamente!
Tem como incluir para que se os campos de data inicial e data final estiverem vazio, ele mostrar todas as datas? porque no caso acima, quando eu executo a macro com esses campos vazios não aparece nenhuma data.
Ou uma outra macro para reverter a primeira, seria sensacional.
Muito obrigado!

Re: Filtro entre 2 datas

Enviado: 23 Fev 2019 às 21:24
por osvaldomp
Diego100ges escreveu: Tem como incluir para que se os campos de data inicial e data final estiverem vazio, ele mostrar todas as datas? porque no caso acima, quando eu executo a macro com esses campos vazios não aparece nenhuma data.
Segue abaixo a "solução" embora eu não veja sentido na sua lógica.
Se você não preencheu os critérios isso significa que você não pretende filtrar, ora, se você não pretende filtrar, porque então rodar o código para filtrar?
Se você não quer filtrar, simplesmente não rode o código.
Código: Selecionar todos
Sub FiltroEntreDatas()
 If [G3] = "" Or [I3] = "" Then Exit Sub
 ActiveSheet.[A3:C3].AutoFilter 2, ">=" & Format([G3], "mm/dd/yyyy"), xlAnd, "<=" & Format([I3], "mm/dd/yyyy")
End Sub

Filtro entre 2 datas

Enviado: 23 Fev 2019 às 21:28
por Diego100ges
Osvaldo, seria para "desfiltrar" o que foi filtrado para eu poder ver todos os dados novamente

Muito obrigado pela sua ajuda!