Notifications
Clear all

Auto filtro com 3 critérios

12 Posts
1 Usuários
0 Reactions
6,623 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal preciso de um help.

Preciso atribuir uma macro a um botão onde irá filtrar 3 datas dentro da minha coluna, baseado em 3 células.

EX:
B4 ="2/5/2012"
b5 ="25/5/2012"
b6 = "4/5/2012"

ou seja, qualquer uma dessas datas devem ser filtradas na minha coluna F.

Obs: O filtro deve ser baseado na condição E. filtrar b4 e b5 e b6.

 
Postado : 21/05/2012 8:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Veja um exemplo, baixe o anexo!!

 
Postado : 21/05/2012 11:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde alexandre,
Preciso usar o autofiltro mesmo, nesse caso você usou o filtro avançado e filtrou exclusivo.

Preciso filtrar a mesma coluna com 3 critérios, sem copiar para outro local. é possível?

 
Postado : 21/05/2012 12:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Apesar de eu não achar que precise de VBA para isso, então você poderia tentar o GM (Gravador de Macro).

 
Postado : 21/05/2012 12:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Apesar de eu não achar que precise de VBA para isso, então você poderia tentar o GM (Gravador de Macro).

O Gravador de macro consigo utilizar 2 critérios com base na condição E, nesse caso preciso de 3 critérios

Eu não consigo fazer isso por exemplo correto?

Sub Macro1()

    Selection.AutoFilter Field:=1, Criteria1:="=2/5/2012", Operator:=xlAnd, _
        Criteria2:="=25/5/2012", Operator:=xlAnd, Criteria3:="=8/5/2012"
End Sub
 
Postado : 21/05/2012 12:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite !!!

Dê uma olhada no link abaixo, deve te ajudar!!!
http://www.ozgrid.com/VBA/autofilter-vba-criteria.htm

 
Postado : 21/05/2012 3:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja nos links abaixo, tem vários tipos de filtro, a maioria em VBA. Excelentes exemploos, vale a pena baixar:

Le filtre automatique
http://boisgontierjacques.free.fr/pages ... reAuto.htm

Le filtre élaboré
http://boisgontierjacques.free.fr/pages ... labore.htm

[]s

 
Postado : 21/05/2012 6:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!

Tente!!

Sub Filtrar_AleVBA()

[F1].Select
      Selection.AutoFilter Field:=1, _
      Operator:=xlFilterValues, _
      Criteria1:=Array(Range("A4"), Range("A5"), Range("A6"))
                         
                         
End Sub
 
Postado : 21/05/2012 8:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre Obrigado pela ajuda.
Usando o seu código acima ele me retorna o seguinte erro:

Erro em tempo de execução'1004':
O Método AutoFilter da classe range falhou

Segue o anexo.

 
Postado : 22/05/2012 5:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Eu baixei seu ultimo anexo usei o código, funcionou !!!!

Me dica com detalhes o que deu de errado???

Att

 
Postado : 23/05/2012 4:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então,
Aparentemente está tudo certo, no anexo coloquei o seu código porém ele retorna o erro postado acima.

Você poderia me enviar um anexo com o filtro funcionando?

 
Postado : 24/05/2012 5:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Sua versão de Office é 2003?...levando em consideração versão e o fato de ser data e 3 critérios, essa e forma que encontrei

Faça os teste
http://www.sendspace.com/file/hx8gsl

 
Postado : 25/05/2012 6:21 am