De cara eu ia sugerir a tecla de atalho pra acelerar a criação do filtro.
Nem sempre funciona em todos os Excéis, mas, selecione os títulos da coluna e tecle:
Ctrl+Shift+L

Já acelera pra criar o filtro.
Agora vá na coluna J, no título dela, e tecle Alt+Seta pra baixo, tente usar o teclado para escrever o que quer encontrar, ou selecionar.

Ao não usar o mouse, isso pode facilitar a vida e dar uma acelerada.

Mas já entendi, vc preferia um código VBA pra fazer tudo num clique só. Esse eu não to com tempo de escrever agora. Vamos esperar os gênios do Planilhando que certamente poderão fazer pra vc

Abs.

De cara eu ia sugerir a tecla de atalho pra acelerar a criação do filtro.
Nem sempre funciona em todos os Excéis, mas, selecione os títulos da coluna e tecle:
Ctrl+Shift+L

Já acelera pra criar o filtro.
Agora vá na coluna J, no título dela, e tecle Alt+Seta pra baixo, tente usar o teclado para escrever o que quer encontrar, ou selecionar.

Ao não usar o mouse, isso pode facilitar a vida e dar uma acelerada.

Mas já entendi, vc preferia um código VBA pra fazer tudo num clique só. Esse eu não to com tempo de escrever agora. Vamos esperar os gênios do Planilhando que certamente poderão fazer pra vc

Abs.

Fernando, de qualquer modo você já me instruiu acerca de algo que eu desconhecia hahahaha
Mas sim, se fosse possível automatizar isso, seria exatamente o que busco. Mas cara, muito obrigado pelas dicas.

Fiz um botão que filtra automaticamente os dados a partir de um critério, eis aqui:

Sub Botão1_Clique()
Selection.AutoFilter Field:=1, Criteria1:="true"
End Sub

O meu problema é: na função "Criteria1" ele busca corretamente o que quero encontrar (no caso, true). Agora, pra fazer isso eu tenho que selecionar todos os campos que eu quero que isso se aplique. Há algum modo de evidenciar nesse código que eu quero que o filtro seja aplicado a partir de um determinado campo? Por exemplo, o campo que eu eu preciso utilizar seria somente " J " demarcando somente true.

Boa tarde!!

Já tentou gravar uma Macro?

Sub Macro2()
'
' Macro2 Macro
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Z$182").AutoFilter Field:=10, Criteria1:="True"
    ActiveSheet.Range("$A$1:$Z$182").AutoFilter Field:=22, Criteria1:= _
        "#CIELO - SERVICE DESK NÍVEL 1"
End Sub

Att