VBA Excel - Limpando Filtros - Clearing Filters

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

O código a seguir limpa um filtro em uma tabela ou lista.

Sub ClearFilterListOrTable()

    Dim ACell As Range

    Dim ActiveCellInTable As Boolean

    'Check to see if the worksheet is protected.

    If ActiveSheet.ProtectContents = True Then

        MsgBox "This macro will not work when the worksheet is write-protected.", _

               vbOKOnly, "Clear filter example"

        Exit Sub

    End If

    'Set a reference to the ActiveCell named ACell. You can always use

    'ACell now to point to this cell, no matter where you are in the workbook.

    Set ACell = ActiveCell

    'Test to see if ACell is in a table or list. Note that by using ACell.ListObject, you

    'don't need to know the name of the table to work with it.

    On Error Resume Next

    ActiveCellInTable = (ACell.ListObject.Name <> "")

    On Error GoTo 0

    'If the cell is in a list or table, run the code.

    If ActiveCellInTable = True Then

        'Show all data in the table or list.

        On Error Resume Next

        ActiveSheet.ShowAllData

        On Error GoTo 0

    Else

        MsgBox "Select a cell in your list or table before you run the macro.", _

               vbOKOnly, "Clear filter example"

    End If

End Sub

Tags: Excel, VBA, cell, activecell, table, list, Copying, copy, Table, List, Worksheet, Workbook, clearing filters, filter, clear, cleaning,filtros, tabela, lista,