Macro limpar filtro


#1

Boa tarde Amigos,

Tenho uma planilha com diversas colunas e utilizo vários filtros… Queria criar um botão (macro) onde eu pudesse limpar todo o filtro sem ter que fazer o caminho normal ou clicar um por um.

Desde já agradeço.


#2

Boa tarde!
Cleber_Nego

Teste este código em uma planilha Copia para ver se funciona

Sub Auto_Open()
Dim xWs As Worksheet
For Each Wks In ThisWorkbook.Worksheets
On Error Resume Next
If Wks.AutoFilterMode Then
Wks.AutoFilterMode = False
End If
Next Wks
End Sub

Remove o filtro de toda a pasta ativa.


#3

Obrigado amigo.

Consegui resolver o problema… Abraços