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
2006-09-25

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

  • Tópicos relacionados


  •  WildCards (1) (Microsoft Support Center)

     WildCards (2) (digdb.com)

     Filtros (1) (por Debra Dalgleish)

     Filtro (2) (Joseph Rubin's Exceltip.com)