Esconder a seta de Auto Filtro via VBA

[Ingo M P Américo]

Olá pessoal!

 

Estou com um problema que para os ninjas do VBA daqui deve ser moleza de resolver.

 

Tenho uma planilha que mostra uma listagem com 3 colunas: nome, sobrenome e número.

Criei um VBA que, clicar em um botão específico, a listagem mostra um resultado específico. Por exemplo: quando eu clico no botão "João", a listagem só mostra as linhas com o nome "João".

Estou fazendo isso via AutoFilter com o VBA abaixo:

Sub filtroPessoasJoao()
    ActiveSheet.Range("tabelaPessoas").AutoFilter Field:=1, Criteria1:="João"
End Sub

Até aí tudo bem. Funciona tranquilamente.

Acontece que, sempre que eu clico no botão, aparecem aquelas setas do auto filtro (vide imagem abaixo).

 

Mesmo eu desabilitando a opção de filtro através de Dados -> Filtro, ainda assim, quando eu clico no botão, as setinhas reaparecem. Existe alguma forma de essas setas não aparecerem via VBA?

 

Já tentei fazer da forma abaixo, mas aí o auto filtro não funciona.

Sub filtroAndamentoOE1()
    ActiveSheet.Range("tabelaAndamento").AutoFilter Field:=1, Criteria1:="OE1"
    ActiveSheet.AutoFilterMode = False
End Sub

Estou mando um exemplo anexo.

 

teste filtro.zip

[Basole]

Se você esconder (desabitar) todas as setas os dados não filtrados serão mostrados.

 

 

[Ingo M P Américo]

@Basole Não entendi.

[Patropi]

Ingo

 

Não adianta desabilitar o filtro, se a tua macro executa o auto filtro quando você clica no botão.

 

[]s

[Edson Luiz Branco]

@Ingo M P Américo , boa tarde.

Se você quer somente que a setinha não apareça, mas o filtro continue aplicado, defina o argumento VisibleDropDown como False no método AutoFilter para cada campo.

Em seu exemplo, se você quer ocultar a seta apenas no campo Nome, poderia ter usado:

   ActiveSheet.Range("tabelaPessoas").AutoFilter Field:=1, Criteria1:="João", VisibleDropDown:=False
 

Para ocultar também a do 3ª campo - coluna "Número" (Field:=3), poderia usar:

    ActiveSheet.Range("tabelaPessoas").AutoFilter Field:=3, VisibleDropDown:=False

 

Se forem diversos campos, faça um loop considerando cada coluna...

[Ingo M P Américo]

@Edson Luiz Branco Funciona com uma coluna.

Você disse que dá pra fazer um loop. Poderias postar um exemplo?

[Edson Luiz Branco]

59 minutos atrás, Ingo M P Américo disse:

...Funciona com uma coluna.

 

Funciona com cada coluna que aplicar.

 

59 minutos atrás, Ingo M P Américo disse:

Você disse que dá pra fazer um loop. Poderias postar um exemplo?

 

Sub filtroPessoasJoao()
    Dim i As Byte
    With ActiveSheet.Range("tabelaPessoas")
      For i = 1 To .Columns.Count
         .AutoFilter Field:=i, VisibleDropDown:=False
      Next i
      .AutoFilter Field:=1, Criteria1:="João"
    End With
End Sub