Este fórum está sendo desativado

[Jon7]

Olá, Rapaziada! Preciso de uma ajuda de vocês. É minha primeira planilha que estou fazendo e é algo bem simples mesmo. Vou resumir bem rápido o que já foi feito.

Eu criei uma planilha de cadastros de clientes, consegui formalizar para que após o preenchimento dos clientes na primeira planilha , eles fossem jogados para segunda que continha a tabela de Base de dados. Nessa segunda tabela eu queria criar uma caixa de filtro, para buscar os clientes sem precisar ficar buscando na tabela, mas só que quando chego nessa parte não consigo sair.

Passo a Passo do que estou fazendo:






Se n der pra ver na Imagem o código que utilizei foi : ActiveSheet.Range("$E$4:$N$4").AutoFilter Field:=2, Criterial:=TextBox1.Text


Eu Estou tentando replicar o que vi em um vídeo do youtube, O link do video é esse : https://www.youtube.com/watch?v=ZN_tHJs ... oDamasceno

Vou ficar muito agradecido se puderem me ajudar. Desde já agradeço a atenção de todos.

[osvaldomp]

Olá, @Jon7 .

No final da expressão ~~~> Criterial substitua a letra ele pelo número um ~~~> Criteria1
Se não for esse o problema então disponibilize o seu arquivo Excel (imagens não servem).

Comando equivalente simplificado para aplicar o Auto Filtro enquanto preenche a TextBox ~~~> ActiveSheet.Range("E4:N4").AutoFilter 2, TextBox1.Text & "*"

[Jon7]

Olá, @Jon7 .

No final da expressão ~~~> Criterial substitua a letra ele pelo número um ~~~> Criteria1
Se não for esse o problema então disponibilize o seu arquivo Excel (imagens não servem).

Comando equivalente simplificado para aplicar o Auto Filtro enquanto preenche a TextBox ~~~> ActiveSheet.Range("E4:N4").AutoFilter 2, TextBox1.Text & "*"

Muito Obrigado! Resolveu meu problema. Já tava ficando careca de tanto me estressar tentando resolver isso.

Agradeço pela Atenção e pelo tempo que dispôs a me ajudar.

[Jon7]

Desculpa te Incomodar de novo @osvaldomp osvaldomp , queria te pedir mais uma ajuda.

como que eu faço para por um botão físico para limpar esse caixa de texto após escrever nela, como faço essa integração, qual código eu uso?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub LimpaTextBox()
 ActiveSheet.TextBox1.Text = ""
End Sub