Macro para reaplicar filtro no Excel 2016

Question

Eu tenho um Mac e estou executando o Excel 2016. Eu tenho uma planilha do Excel que é filtrada automaticamente por data.

Até recentemente, eu salvava uma macro que me permitia pressionar Command + Option + n e ela reaplicaria o filtro sem precisar ir Início - > Classificar e filtrar - > Reaplicar filtro .

Por algum motivo, as atualizações mais recentes do Office excluíram a macro e não consigo encontrá-la novamente.

Eu tentei gravar uma macro, mas quando a executo, ele diz: Runtime Error 1004 .

A macro em si é a seguinte:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Option+Cmd+n
'
    ExecuteExcel4Macro "()"
    With ActiveWorkbook.Worksheets("Leads").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Alguém pode me dizer como fazer isso funcionar? Eu atualizo a folha quase que constantemente, então ter um atalho para atualizar os filtros facilitou muito minha vida!

    

Answer 1

Isso funciona para mim:

Sub ReapplyFilter()
  ActiveSheet.AutoFilter.ApplyFilter
End Sub

Espero que ajude.

    

Answer 2

Eu tive o mesmo problema. Acabou que eu estava tentando reaplicar o filtro em uma folha que não tinha um. Aqui está o código que funcionou:

    If Not (ws.AutoFilter Is Nothing) Then
        Debug.Print "Reapplying autofilter for " & ws.Name
        ws.AutoFilter.ApplyFilter
    End If