none
Criar macro de filtro de contém RRS feed

  • Pergunta

  • Galera, 

    Obrigado sempre pela ajuda...

    To mexendo em uma planilha, que na coluna de endereços vem tudo junto, Endereço, bairro e cidade. Eu preciso filtrar esses bairros....

    Ai fiz um macro de um filtro de contém, só que um a um, está dando muito trabalho, criei butões e uma macro para cada bairro,

    Minha idéia foi:

    Eu queria digitar o nome do bairro (Ou pegar de uma lista suspensa) em um campo, e ele automaticamente aplicar o filtro de contém com esse dado, nessa planilha...

    Alguém tem como me ajudar?


    quarta-feira, 29 de maio de 2013 16:21

Respostas

  • Suponha que o filtro esteja aplicado devidamente, e os endereços estejam na coluna B. Atribua o código abaixo à um botão:

    Sub fMain()
        Dim strFiltro As String
        
        strFiltro = InputBox("Digite a palavra a filtrar:")
        If strFiltro = "" Then Exit Sub
        
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
        ActiveSheet.Cells.AutoFilter Field:=Columns("B").Column _
        , Criteria1:="=*" & strFiltro & "*"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 29 de maio de 2013 22:07
    Moderador

Todas as Respostas

  • Suponha que o filtro esteja aplicado devidamente, e os endereços estejam na coluna B. Atribua o código abaixo à um botão:

    Sub fMain()
        Dim strFiltro As String
        
        strFiltro = InputBox("Digite a palavra a filtrar:")
        If strFiltro = "" Then Exit Sub
        
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
        ActiveSheet.Cells.AutoFilter Field:=Columns("B").Column _
        , Criteria1:="=*" & strFiltro & "*"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 29 de maio de 2013 22:07
    Moderador
  • Benzadeus,

    Não entendi, eu vou digitar a busca aonde? em um campo específico ?

    segunda-feira, 3 de junho de 2013 19:19
  • O código é autoexplicativo: ao ser executado, é exibida uma caixa de diágolo perguntado o valor buscado.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 3 de junho de 2013 21:39
    Moderador