Criar macro de filtro de contém

Question

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?

Answer 1

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

Answer 2

Benzadeus,

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

Answer 3

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