MACRO UTILIZANDO O FILTRO DE DATAS "ESTÁ ENTRE"

Question

Pessoal,

Alguém consegue me ajudar? Estou tentando estabelecer uma macro para filtrar as datas:

Exemplo: tenho diversas datas entre 01/01/2020 e 30/06/2020.

Ocorre que, quando filtro manualmente (entro em filtro, datas, está entre e coloco as opções:

• é posterior ou igual a 01/01/2020 e
• é anterior a 01/07/2020,

O Excel filtra as informações e consigo o que preciso.

Porém, para automatizar este processo no meu setor da empresa, tentei criar uma macro realizando este procedimento descrito acima.

Ocorre que, após eu gravar a macro, o filtro não funciona, ele puxa apenas o primeiro critério (01/01/2020) e não puxa as datas até 30/06/2020 (que seria o segundo critério).

A minha macro fica assim:

Sub Julho2020()

'

' Julho2020 Macro

'

'

    ActiveSheet.Range("$B$3:$E$364").AutoFilter Field:=4, Criteria1:= _

        ">=01/01/2020", Operator:=xlAnd, Criteria2:="<01/07/2020"

End Sub

Obrigado desde já.

Answer 1

Olá.

Eu fiz um exemplo por aqui para testar a tua macro e descobri o problema.

Basicamente a tua data esta no modo 'brasil' (dd/mm/aaaa) e precisa ser passado para o modo 'eua' (mm/dd/aaaa) e resolvido.

Veja como ficou o código que fiz funcionar.

Sub Filtro2020_ajustado()

'

' Macro Filtro

'

    ActiveSheet.Range("$B$3:$E$364").AutoFilter Field:=4, Criteria1:= _

        ">=01/01/2020", Operator:=xlAnd, Criteria2:="<=06/30/2020"

End Sub

Segue um exemplo que fiz. Primeiro sem o filtro 

Depois com o teu filtro

Finalmente com o ajuste sugerido

Note que apareceram os mesmos resultados que realizado pelo filtro manual e portanto, aparentemente cumpre com os critérios estabelecidos no problema.

Abs.

Answer 2

Olá Yuri,

Fico contente que a solução apresentada tenha te ajudado.

Sucesso!

Este post resolveu o problema? Selecione (X) Sim para fechar o caso.

Assim não só motiva meu trabalho voluntário, como também serve como uma forma de agradecimento ao desafio dado.

Veja mais detalhes a respeito em

https://answers.microsoft.com/pt-br/feedback/forum/all/feedback-de-respostas/49fb806d-2c68-42b0-98c8-b549371f7e03

Abs

Answer 3

cbetther, muito obrigado!

Salvou minha vida!

Abraço!