Boa tarde!!

Enquanto o pessoal não responde, mende seu arquivo modelo.

Att

Segue modelo........

No primeiro textbox o filtro nao realiza pq só há numero !!!
No segundo, esta OK, pois ao concatenar os numeros com um " ' ", torna o conteudo um texto, permitindo o filtro.

Boa tarde!!

Já tentou...?

Private Sub A2Numero_Change()
   Selection.AutoFilter Field:=1, Criteria1:=CStr("*" & A2Numero.Text) & "*"
End Sub

Att

Boa tarde!!

Opsss...tente assim.

Private Sub A2Numero_Change()
   Selection.AutoFilter Field:=1, Criteria1:=A2Numero.Value
End Sub

Att

Boa tarde!!

Opsss...tente assim.

Private Sub A2Numero_Change()
   Selection.AutoFilter Field:=1, Criteria1:=A2Numero.Value
End Sub

Att

Boa tarde Alexandre,

Testei, mas sem exito !!!
Quando digita o primeiro carácter (numero) ele oculta todas as linhas preenchidas.

Boa t arde!!

Aguenta ai, que eu vou testar novamente, pois eu digitei um valor 54801002, dentro da Textbox (ActiveX) de nome "A2Numero"

E foi retornado isso.
54801002 '54801002 IMP 127v 885 515 550

Para mim está funcionando, ao não ser que eu entendi errado.

Att

Boa tarde!!

Bom para mim está normal ou eu não percebi o que você precisa.

Dessa forma como segue abaixo, quando a Textbox estiver vazia, o filtro será resetado.

Private Sub A2Numero_Change()
   If A2Numero.Value = "" Then
        ActiveSheet.ShowAllData
    Else
        Selection.AutoFilter Field:=1, Criteria1:=A2Numero.Value
   End If
End Sub

Att

Boa t arde!!

Aguenta ai, que eu vou testar novamente, pois eu digitei um valor 54801002, dentro da Textbox (ActiveX) de nome "A2Numero"

E foi retornado isso.
54801002 '54801002 IMP 127v 885 515 550

Para mim está funcionando, ao não ser que eu entendi errado.

Att

Entendi.... neste formato funciona, pq busca exatamente o que foi digitado, mas minha necessidade é filtrar todos os items que tenham 610, então deveria retornar o seguinte:

61005001 '61005001 IMP --- 165 20 20
36101 '36101 NAC 0 0 0
61005005 '61005005 IMP --- 0 0 0
61005006 '61005006 IMP --- 0 0 0

Na verdade, o mesmo que ocorre com a coluna C, porem não é logico eu ter de duplicar varias colunas e transformar em texto. No arquivo anexo é só uma pequena parte da planilha e tambem não posso deixa 100% em texto pq algumas colunas possuem formulas e dai teria que transformar texto em numero novamente para que as formulas funcionassem.

Um parenteses, no proprio autofiltro utilizado, ao expandir o menu de filtro e digitar parte do numero na caixa de pesquisa, ele ja faz este processo, independe se for texto ou numero, só precisava que fosse fora !!!!

Posso estar enganado ou como o Alexandre disse não estar entendendo corretamente a sua demanda, mas pelo que li no inicio a questão é a filtragem por NUMERICOS, e pelo que vi em seu modelo, a filtragem não funciona para o Campo Produto Coluna "B" somente pelo fato de estar indicando o Field:=1 e este se refere a Coluna "A", para ser pela coluna "B" tem de alterar para Field:=2

Private Sub A2Numero_Change()
   Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + A2Numero.Text) + "*"
End Sub

Isto vale tambem para Private Sub A3TextoNumero_Change() que se refere a Coluna "C" então tem de ser Field:=3.

Altere em seu modelo e faça os testes se é isto.

[]s

Boa tarde!!

No primeiro textbox o filtro nao realiza pq só há numero !!!
No segundo, esta OK, pois ao concatenar os numeros com um " ' ", torna o conteudo um texto, permitindo o filtro.

Eu me lembro que seu obstáculo seria filtra o que é diferente de String, no caso texto, então foi feito de acordo com o solicitado!

Caso queira criar um auto completar, eu recomendo mudar a estética concernentes a objetos de controles.

Ex: Criar um UserForm com uma TextBox etc, para poder implementar sua necessidade.

Att

Bom dia a todos!

Estou com uma situação parecida à do colega volnei.p ...

No caso, quando se trata da busca de células no formato "texto", o comando conforme abaixo funciona:

"Private Sub [**nome**]_Change()
Selection.AutoFilter Field:=[numero_filtro], Criteria1:=CStr("*" + [**nome**].Text) + "*"
End Sub"

Porém, eu precisaria que o auto filtro no textbox funcionasse da mesma maneira, com células em número. Para que o retorno da busca fosse igual ao filtro convencional, ou seja, quando digitasse os números de busca, fossem retornados todos os itens que contivessem o número (ele fosse buscando até chegar ao número exato).

Já tentei utilizar alguns comandos, mas nenhum deu certo. Alguém saberia nos ajudar? Estou enviando um arquivo modelo.

Obrigado!