Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2005-04-05
No seguinte exemplo, temos uma tabela de nomes:



Se pretendermos aplicar um filtro com utilização de um procedimento em VBA, teremos



O resultado será:



Para desfazer o filtro, podemos utilizar novamente o mesmo procedimento em VBA, desta vez só com a utilização do wildcard "*" (asterisco) :



O resultado será o aparecimento da tabela, de novo já sem filtro efectuado:



O Código do exemplo:

Sub Procura()

Dim strProc As String

strProc = InputBox("Digite a(s) letra(s) pretendidas e asterisco [ex. Jo*]ou asterisco para todos")

Range("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strProc, Operator:=xlAnd
Range("A1").Select

End Sub


Nota: o procedimento aceita quer o wildcard "*", como o "?"