Filtro Avançado com VBA

Question

Boa tarde a todos,

Tenho um form onde o usuário preenche data inicial ,data final e nome do departamento, pego essas informações e alimento a área de critérios da planilha para o filtro avançado. O problema é que quando eu concateno ">=" e "<=" com as datas.

Ex.: Range("A2").value = ">=" & "01/01/2011" , Range("B2").value = "<=" & "31/12/2011" o filtro não funciona, porém se faço o filtro pelo menu do Excel, funciona perfeitamente. Quando uso apenas " 01/01/2011"e "31/12/2011" também funciona. Pelo que percebi são os benditos ">=" e "<=".

Como usar ">=" ou "<=" no filtro avançado por VBA?

Grata.

Answer 1

Oi Catarina,

Experimente fazer assim:

1. No critério para a Data Inicial entre com (no meu exemplo abaixo em G2)

=">="&J2

2.Para data Final use (no meu exemplo abaixo em H2)

="<="&K2

J2 e K2 são as células onde vamos colocar a DAta Inicial e Final respectivamente

Agora no VBA, algo assim

Sub testeFiltro()

    'Datas no formato americano mês/dia/ano

    Range("J2") = "08/14/2011"

    Range("K2") = "08/19/2011"

    'Aplique o filtro

    Range("A1:D9").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _

        ("F1:H2"), Unique:=False

End Sub

Repare bem: alimento os Ranges J2 e K2 com datas no formato americano

No meu exemplo os dados estão em A1:D9 e os critértios em F1:H2

F G H

Depto	DataInicial	DataFinal
D1	>=14/08/2011	<=19/08/2011

Espero que ajude

M.

Answer 2

Colocando o formato americano deu certo.

Obrigado M.

Fico contente por ter ajudado e obrigado pelo retorno.

M.

Answer 3

Colocando o formato americano deu certo.

Obrigado M.