Página 1 de 1

Ajuda com a Caixa de Texto do Controle ActiveX

Enviado: 07 Ago 2021 às 22:11
por 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:
Imagem
Imagem
Imagem
Imagem
Imagem

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.

Re: Ajuda com a Caixa de Texto do Controle ActiveX

Enviado: 08 Ago 2021 às 09:41
por 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 & "*"

Re: Ajuda com a Caixa de Texto do Controle ActiveX

Enviado: 08 Ago 2021 às 12:10
por Jon7
osvaldomp escreveu: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. :D :D

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

Re: Ajuda com a Caixa de Texto do Controle ActiveX

Enviado: 08 Ago 2021 às 18:34
por 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?

Re: Ajuda com a Caixa de Texto do Controle ActiveX

Enviado: 08 Ago 2021 às 19:32
por osvaldomp
Experimente:
Código: Selecionar todos
Sub LimpaTextBox()
 ActiveSheet.TextBox1.Text = ""
End Sub