Usuário com melhor resposta
Criar macro de filtro de contém

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?
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
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 23:58
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 23:58
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
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 23:58
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 23:58
-
-