Filtrar por critério

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 "?"