Página 1 de 1
Filtrar ao pesquisar
Enviado: 20 Jun 2022 às 21:28
por 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.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 09:12
por osvaldomp
Código: Selecionar todosPrivate 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
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 12:08
por vilc
fiz aqui, e está dando erro nessa parte
Me.ListObjects("Tabela3").Range.AutoFilter 2, Target.Value
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 12:12
por osvaldomp
Disponibilize o seu arquivo Excel com o código instalado e informe qual é o teor da mensagem de erro.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 12:21
por 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
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 13:23
por osvaldomp
osvaldomp escreveu: ↑21 Jun 2022 às 12:12
Disponibilize o seu arquivo Excel com o código instalado e informe qual é o teor da mensagem de erro.
E com a TextBox.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 14:37
por vilc
na planilha tem a texbox. queria filtrar a tabela por ela.. segue em anexo.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 16:23
por osvaldomp
vilc escreveu: ↑21 Jun 2022 às 12:08
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 ?
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 16:34
por vilc
Não está dando mas o erro!
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 17:34
por osvaldomp
vilc escreveu: ↑21 Jun 2022 às 16:34
Não está dando mas o erro!
Hummm ... entendi.
Código: Selecionar todosPrivate 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
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 18:15
por vilc
osvaldomp , funcionou perfeito, mas teria como filtrar pelas 4 colunas, ele só está filtrando o que esta na coluna 2.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 19:33
por osvaldomp
vilc escreveu: ↑21 Jun 2022 às 18:15
... 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.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 19:54
por vilc
Ok amigo, fiz outro tópico.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 20:03
por 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.
Re: Filtrar ao pesquisar
Enviado: 21 Jun 2022 às 20:07
por vilc
Obrigado amigo pela atenção...