Este fórum está sendo desativado

[vilc]

Boa noite, estou começando uma tabela e precisava quando digitar em uma célula, automaticamente começa-se a filtrar.
segue a tabela em anexo.

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$J$5" Then Exit Sub
 On Error Resume Next
 Me.ListObjects("Tabela3").AutoFilter.ShowAllData
 On Error GoTo 0
 If Target.Value = "" Then Exit Sub
 Me.ListObjects("Tabela3").Range.AutoFilter 2, Target.Value
End Sub

[vilc]

fiz aqui, e está dando erro nessa parte
Me.ListObjects("Tabela3").Range.AutoFilter 2, Target.Value

[osvaldomp]

Disponibilize o seu arquivo Excel com o código instalado e informe qual é o teor da mensagem de erro.

[vilc]

No caso se eu colocar uma textbox , para ele procurar os valores na tabela, como ficaria?
Ex: eu digito ADM e ele filtrasse tudo que contém adm

[osvaldomp]

Disponibilize o seu arquivo Excel com o código instalado e informe qual é o teor da mensagem de erro.

E com a TextBox.

[vilc]

na planilha tem a texbox. queria filtrar a tabela por ela.. segue em anexo.

[osvaldomp]

fiz aqui, e está dando erro nessa parte
Me.ListObjects("Tabela3").Range.AutoFilter 2, Target.Value

Antes de responder sobre a TextBox eu gostaria de aprender com o erro que você apontou mas o erro não ocorre aqui.

O que exatamente você fez para produzir o erro ?

[vilc]

Não está dando mas o erro!

[osvaldomp]

Não está dando mas o erro!

Hummm ... entendi.

Código: Selecionar todos

Private Sub TextBox1_Change()
 On Error Resume Next
 Me.ListObjects("Tabela3").AutoFilter.ShowAllData
 On Error GoTo 0
 If TextBox1.Value = "" Then Exit Sub
 Me.ListObjects("Tabela3").Range.AutoFilter 2, "*" & TextBox1.Value & "*"
End Sub

[vilc]

osvaldomp , funcionou perfeito, mas teria como filtrar pelas 4 colunas, ele só está filtrando o que esta na coluna 2.

[osvaldomp]

... ele só está filtrando o que esta na coluna 2.
Óbvio, pois eu venho seguindo o seu código original, que aplica o Filtro com critério somente na coluna 2, e só agora você vem dizer que quer filtrar as 4 colunas.
Crie outro tópico com a sua nova necessidade.

[vilc]

Ok amigo, fiz outro tópico.

[osvaldomp]

Sugestão: inclua no seu vocabulário a palavrinha "obrigado", pois ela é a única recompensa pra quem lhe ajuda, e associada com "por favor" anima as pessoas a continuar lhe ajudando aqui no fórum.

[vilc]

Obrigado amigo pela atenção...