To ficando bão na coisa!!!! If AnoExercicio.Text <> "" Then Selection.AutoFilter Field:=1, Criteria1:="...

Olá... descobri como colocar número, segue os códigos: Selection.AutoFilter Field:=1, Criteria1:=CStr("=" & XXXXXXX...

Este é o código determinante para fazer a busca: Selection.AutoFilter Field:=5, Criteria1:=CStr("*" + XXXXXXXXX.Val...

Dany, aqui no serviço, não temos o excel 2007 e não é habilitado para acessar alguns sites e o orkut é um deles, então mais tarde dou uma olhada e vej...

Só para contribuir, apesar de fugir do modelo do arquivo da Dany. De uma olhada tambem nos exemplos postados na comunidade do orkut utilizando auto-f...

Boa noite!! Consegue dizer o que houve de errado com minha rotina? Att Acredito fielmente que ela está perfeita, sem erros, acho que ela não encaix...

Obrigado Alexandre e Reinaldo! Não consegui resultados bons com as últimas indicações, porem utilizei algumas partes para incrementar o código origin...

Olá... Tentei fazer um teste mas sem sucesso! Acrescentei: If Range("a2") = "" And Range("b2") = "" And...

Encontrei um bom exemplo que busca entre datas, porem o código cria uma planilha nova. como posso adequar parte do código abaixo em meu código princi...

Boa noite!! Esta é um versão mais limpa. Faça teste. Boma dia cara! Testei aqui e rodou beleza!!! hehehe Adicionei um novo filtro, o código ficou ...

Boa tarde!! Basicamente sim! With Sheets("A2002").UsedRange ' intervalo com dados .AutoFilter Field:=3, Criteria1:=Range("b2&...

Boa tarde!! Substitua a rotina atual por essa..caso queira pode usar a estrutura Case Sub FiltroAle() Dim LR As Long Rows(6).Resize(100)...

Boa tarde!! Preciso de tudo nos mínimos detalhes. Na sua primeira postagem, você disse que precisava buscar 3 critérios. Quando você diz buscar 2 ...

Boa tarde!! Veja uma versão mais Rápida e Leve!!! Você só precisa adaptar exatamente para o que vai usar!! Qualquer coisa é só retornar Obrigado A...

Para enxugar basta vc restringir os combos (adequar às suas necessidades).Coloquei muitas opções para vc ver como é feito. Qq coisa me fala. Abs, G...