Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como filtrar por cr...
 
Notifications
Clear all

Como filtrar por critério digitado na hora da consulta

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
883 Visualizações
RSS
 alexius
(@alexius)
Posts: 1
New Member
Topic starter
 

Bom dia,

Uso uma planilha simples há muitos anos (uma pasta, arquivo com várias planilhas no mesmo arquivo), apenas melhorada com atalhos, formatações e filtros-padrão do excel.

Me seria de muita utilidade, pra tornar prática a consulta a planilha, que eu pudesse executar filtragem, mas que o critério de pesquisa fosse alimentado no momento da consulta na execução de um comando ou macro.

Ou seja, no filtro eu personalizo e já digo o critério, ele fica engessado. Pra uma nova pesquisa tenho que fazer o processo todo. O que desejo é filtrar por uma ou duas colunas, os registro de dados em linhas mas cujo critério de busca eu alimente numa célula (por exemplo) no momento que vou pesquisar pra tornar mais fuida e flexível a pesquisa.

Busco automatizar o modo da pesquisa (uma função. um comando, etc) mas deixar à escolha o critério no momento de efetuar a consulta.

Solicito dos participantes sugestões para desatar este nó ! (rsrsrs)

Agradecido,

Alexandre Vasconcelos

 
Postado : 20/11/2017 8:59 am
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Bom dia Alexandre Vasconcelos.
Acredito que será mais fácil oferecer uma sugestão se vc postar uma cópia de seu arquivo ( com dados fictícios mas mesma estrutura).

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 20/11/2017 9:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Considerando que você tem uma guia onde na coluna B tem nomes e você precisa digitar o nome e após enter a pesquisa ser feita.

Private Sub TextBox2_LostFocus()
    If Trim(TextBox2.Value) > vbNullString Then
        Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=TextBox2.Value
    ElseIf ActiveSheet.AutoFilterMode Then
        Range("A1").CurrentRegion.AutoFilter
    End If
End Sub

Obs: Foi usando um controle ActiveX do tipo textbox.
Fonte:
http://www.contextures.com/excelvbatextboxcreate.html
https://analysistabs.com/vba-code/activ ... s/textbox/

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/11/2017 2:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico