Notifications
Clear all

Filtrar tabela com dados de uma célula

2 Posts
2 Usuários
0 Reactions
1,623 Visualizações
(@denisonreis)
Posts: 10
Eminent Member
Topic starter
 

Boa noite!

Estou criando um código para quando digitar alguma palavra na célula c3 e a macro do vba aplique o filtro na tabela com o texto que está na célula c3. Porém a regra do filtro é para buscar o texto que contém certa palavra. Por exemplo: Na célula c3 eu digito a palavra Silva, o filtro apresente os dados: João da Silva, Paulo Silva Alves ...

Não sei o que está errado. Algum pode me ajudar??

 

Segue código abaixo.

 

Código do Módulo:

Sub FILTRO_NOME_FORNECEDOR()

Dim FornecedOr As String
FornecedOr = Planilha1.Range("C3").Value

ActiveSheet.ListObjects("tab_sefaz").Range.AutoFilter Field:=3, Criteria1:= _
"=*fornecedor*", Operator:=xlAnd

End Sub.

 

Código inserido na planilha para quando alterar a célula da planilha o código ser executado:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$3" Then

Call FILTRO_NOME_FORNECEDOR
Exit Sub

End If
End Sub

 
 
Postado : 19/08/2021 7:43 pm
(@televisaos)
Posts: 49
Eminent Member
 

Olá @denisonreis ,

Não entendi exatamente o seu problema mas observando o código que vc postou notei que a variável "FornecedOr" está escrita de modo diferente do local onde ela é chamada (fornecedor). Talvez seja esse o problema.

Att.

 
Postado : 21/08/2021 10:58 am