EXCELer Tudo sobre EXCEL em Português
Se numa tabela de nomes pretendermos filtrar um determinado nome (ex: António), o qual pode ser nome próprio, nome do meio ou apelido, podemos utilizar um pouco de VBA:
O Código:
Private Sub CommandButton1_Click()
Dim myName
Range("A1:A700").Select
myName = InputBox(Prompt:="Digite o nome para filtro ou carregue em OK para remover filtro", Title:="Filtra por nome")
If myName = "" Then
Selection.AutoFilter
Range("A1").Select
Else
Selection.AutoFilter Field:=1, Criteria1:="*" & myName & "*", Operator:=xlAnd
Range("A1").Select
End If
End Sub
NOTA: O asterisco funciona como um "multi character wild card".