programar - Excel 2013 VBA Borrar todos los filtros macro

vba for mac

Question

Parece que las macros antiguas no funcionan. Tengo la seguridad adecuada configurada para ejecutar macros de VBA, pero cuando he probado algunos métodos para borrar TODOS los filtros en una hoja de trabajo, obtengo un error de compilación.

Esto es lo que he intentado:

Sub Macro1()
    Cells.AutoFilter
End Sub

Tengo botones en las hojas para borrar todos los filtros y facilitar su uso a los usuarios, ya que las hojas tienen muchas columnas con filtros.

Answer 1

Aquí está el delineador que uso. Comprueba si hay un filtro automático y, si lo encuentra, lo elimina.

A diferencia de algunas respuestas, este código no creará un filtro automático si se usa en una hoja de trabajo que no se filtra automáticamente en primer lugar.

Range("A1:Z1").Activate
ActiveSheet.ShowAllData

Range("R1:Y1").Activate
ActiveSheet.ShowAllData

Answer 2

Aquí hay un código para la fijación de filtros. Por ejemplo, si activa los filtros en su hoja, agrega una columna y luego desea que la nueva columna también esté cubierta por un filtro.

  Sub ResetWSFilters(ws as worksheet)
             If ws.FilterMode Then   
     ws.ShowAllData   
     Else   
     End If  
    ''This gets rid of "normal" filters - but tables will remain filtered
    For Each listObj In ws.ListObjects 
               If listObj.ShowHeaders Then   
                    listObj.AutoFilter.ShowAllData
                    listObj.Sort.SortFields.Clear    
               End If     
       Next listObj
        ''And this gets rid of table filters
        End Sub

Answer 3

Encontré esta respuesta en una página web de Microsoft

Utiliza el AutoFilterMode como un booleano.

If Worksheets("Sheet1").AutoFilterMode Then Selection.AutoFilter

Answer 4

Encontré esta solución para que funcione de manera bastante efectiva. Básicamente, elimina el autofiltro de la tabla y luego vuelve a aplicarlo, eliminando así cualquier filtro anterior. Desde mi experiencia, esto no es propenso al manejo de errores requerido con los otros métodos mencionados aquí.

Sub AutoFilter_Remove()
    Sheet1.AutoFilterMode = False  ''Change Sheet1 to the relevant sheet
                                   ''Alternatively: Worksheets("[Your Sheet Name]").AutoFilterMode = False
End Sub

Answer 5

Eso es brillante, la única respuesta que encontré que satisfizo mi necesidad particular, ¡muchas gracias por soportarlo!

Hice solo una pequeña adición para que la pantalla no parpadeara y quita y, posteriormente, vuelve a aplicar la contraseña en cada hoja a medida que avanza [Tengo la misma contraseña para todas las hojas del libro de trabajo]. En el espíritu de su presentación, agrego esto para ayudar a otros ...

Sub ResetFilters()
    On Error Resume Next
    For Each wrksheet In ActiveWorkbook.Worksheets
        wrksheet.ShowAllData ''This works for filtered data not in a table
        For Each lstobj In wrksheet.ListObjects
            If lstobj.ShowAutoFilter Then
                lstobj.Range.AutoFilter ''Clear filters from a table
                lstobj.Range.AutoFilter ''Add the filters back to the table
            End If
        Next ''Check next worksheet in the workbook
    Next
End Sub

Sé que esta es una publicación relativamente antigua y realmente no me gusta ser un nigromante ... Pero como tuve el mismo problema e intenté algunas de las opciones en este hilo sin éxito, combiné algunas de las respuestas para obtener una macro funcional. ..

Espero que esto ayude a alguien por ahí :)

For Each WS In ActiveWorkbook.Worksheets
  Select Case WS.Name
    Case "01", "02", "03", "04", "05"
      With WS
        If WS.AutoFilterMode Then
            If WS.FilterMode Then WS.ShowAllData
        End If

        '' Processing data
      End With
    Case Else
      '' Nothing to see here
  End Select
Next

Answer 6

Este hilo es antiguo, pero no estaba contento con ninguna de las respuestas dadas, y terminé escribiendo el mío. Lo estoy compartiendo ahora:

Comenzamos con:

Sub ResetAllWBFilters(wb as workbook)
  Dim ws As Worksheet  
  Dim wb As Workbook  
  Dim listObj As ListObject    

       For Each ws In wb.Worksheets  
          If ws.FilterMode Then 
          ws.ShowAllData  
          Else   
          End If   
 ''This removes "normal" filters in the workbook - however, it doesn''t remove table filters           
   For Each listObj In ws.ListObjects 
        If listObj.ShowHeaders Then   
             listObj.AutoFilter.ShowAllData 
             listObj.Sort.SortFields.Clear    
        End If     
   Next listObj

        Next   
''And this removes table filters. You need both aspects to make it work.  
    End Sub

Podemos enviar una hoja de trabajo específica a esta macro que filtrará solo esa hoja de trabajo. Útil si necesita asegurarse de que solo una hoja de trabajo esté clara. Sin embargo, generalmente quiero hacer todo el libro de trabajo

Sub ExampleOpen()
Set TestingWorkBook = Workbooks.Open("C:/Intel/......") ''The .open is assuming you need to open the workbook in question - different procedure if it''s already open
Call ResetAllWBFilters(TestingWorkBook)
End Sub

Puede usar esto, por ejemplo, abriendo un libro de trabajo que necesita para tratar y restablecer sus filtros antes de hacer algo con él:

Sub ResetFilters()
      Dim ws As Worksheet  
      Dim wb As Workbook  
      Dim listObj As ListObject  
       Set wb = ThisWorkbook  
       ''Set wb = ActiveWorkbook
       ''This is if you place the macro in your personal wb to be able to reset the filters on any wb you''re currently working on. Remove the set wb = thisworkbook if that''s what you need
           For Each ws In wb.Worksheets  
              If ws.FilterMode Then 
              ws.ShowAllData  
              Else   
              End If   
     ''This removes "normal" filters in the workbook - however, it doesn''t remove table filters           
       For Each listObj In ws.ListObjects 
            If listObj.ShowHeaders Then   
                 listObj.AutoFilter.ShowAllData 
                 listObj.Sort.SortFields.Clear    
            End If     
       Next listObj

            Next   
''And this removes table filters. You need both aspects to make it work.  
    End Sub

El que uso más: restablecer todos los filtros en el libro en el que está almacenado el módulo:

   If Worksheets("Sheet1").AutoFilterMode Then Selection.AutoFilter

Answer 7

Esto primero comprobará si AutoFilterMode está configurado (el filtrado es posible), luego verificará si FilterMode está activado (está filtrando algo) y luego desactivará el filtrado.

En cuanto a errores, es decir, protección - se otras respuestas

Contexto agregado (mi script se mueve en bucle sobre las hojas, que luego se guardan como CSV, de ahí la necesidad de eliminar filtros, pero mantenga AutoFilterMode activado, si está configurado:

Sub ClearDataFilters()
''Clears filters on the activesheet. Will not clear filters if the sheet is protected.
On Error GoTo Protection
If ActiveWorkbook.ActiveSheet.FilterMode Or _
   ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
   ActiveWorkbook.ActiveSheet.ShowAllData

Exit Sub
Protection:
If Err.Number = 1004 And Err.Description = _ 
    "ShowAllData method of Worksheet class failed" Then
    MsgBox "Unable to Clear Filters. This could be due to protection on the sheet.", _
    vbInformation
End If

End Sub

Answer 8

Esto también funcionará:

Sub ClearFilters()
    Application.ScreenUpdating = False

    On Error Resume Next
    For Each wrksheet In ActiveWorkbook.Worksheets
        ''Change the password to whatever is required
        wrksheet.Unprotect Password:="Albuterol1"
        wrksheet.ShowAllData ''This works for filtered data not in a table

        For Each lstobj In wrksheet.ListObjects
            If lstobj.ShowAutoFilter Then
                lstobj.Range.AutoFilter ''Clear filters from a table
                lstobj.Range.AutoFilter ''Add the filters back to the table
            End If

        ''Change the password to whatever is required
        wrksheet.Protect Password:="Albuterol1", _
              DrawingObjects:=True, _
              Contents:=True, _
              Scenarios:=True, _
              AllowFiltering:=True
        Next ''Check next worksheet in the workbook
    Next

    Application.ScreenUpdating = True
End Sub

Answer 9

Estoy usando .filtermode si el filtro está en él devuelve verdadero

Sub ResetFilters()
    Dim ws                    As Worksheet
    Dim wb                    As Workbook
    Dim listObj               As ListObject

    For Each ws In ActiveWorkbook.Worksheets
        For Each listObj In ws.ListObjects
            If listObj.ShowHeaders Then
                listObj.AutoFilter.ShowAllData
                listObj.Sort.SortFields.Clear
            End If
        Next listObj
    Next ws
End Sub

Answer 10

Para tablas intente esto para verificar si está encendido y apagado:

wrkSheetCodeName.ListObjects("TableName").Range.AutoFilter

Para volver a encender:

If ActiveSheet.AutoFilterMode Then Cells.AutoFilter

Answer 11

Prueba esto:

Private Sub AddOrFixFilters()

    ActiveSheet.UsedRange.Select

    '' turn off filters if on, which forces a reset in case some columns weren''t covered by the filter
    If ActiveSheet.AutoFilterMode Then
        Selection.AutoFilter
    End If

    '' turn filters back on, auto-calculating the new columns to filter
    Selection.AutoFilter

End Sub

Este Código borra todos los filtros y elimina la clasificación.

Fuente: eliminación de filtros para cada tabla en un libro de trabajo, VBA

Answer 12

Prueba esto:

Sub ResetFilters()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

Answer 13

Pruebe algo como esto:

If Cells.AutoFilter Then Cells.AutoFilter

.FilterMode devuelve verdadero si la hoja de cálculo está en modo de filtro. ( Consulte esto para obtener más información).
Consulte esto para obtener más información sobre .AutoFilter .
Y finalmente, this proporcionará más información sobre el método .ShowAllData .

Answer 14

ShowAllData arrojará un error si un filtro no se aplica actualmente. Esto funcionará:

If wrkSheetCodeName.ListObjects("TableName").ShowAutoFilter Then
    wrkSheetCodeName.ListObjects("TableName").Range.AutoFilter
End if

Answer 15

Si la hoja ya tiene un filtro, entonces:

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

lo eliminará

Answer 16

Simplemente active los encabezados del filtro y ejecute showalldata, funciona al 100%. Algo como:

Dim returnValue As Boolean
    returnValue = worksheet1.FilterMode

    if returnValue Then
    worksheet1.ShowAllData
    End If

Si tiene los encabezados de campo en A1: Z1 y R1: Y1 respectivamente.

Answer 17

Usualmente uso este código

If ActiveSheet.FilterMode Then
cells.AutoFilter
End If

Answer 18

esto funciona bien.!

Set myTable = YOUR_SHEET.ListObjects("YourTableName")

myTable.ShowAutoFilter = False
myTable.ShowAutoFilter = True