VBA Excel - Macro para quitar filtros en Excel

VBA Excel - Macro para quitar filtros en Excel

   02 abril       Luis Reyes

---

Les comparto una macro que les va ayudar a quitar o limpiar los filtros que hay aplicado en una base de datos:

Sub borrarfiltros()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

y para borrar todos los filtros que haya en un libro de Excel, tenemos que hacer uso de una macro que nos ayude a recorrer todas las hojas, para lo cual vamos a utilizar la macro que publique en publicaciones pasadas Macro para recorrer todas las hojas de un libro.
Para la cual la adaptamos de la siguiente manera:

Sub borrarfiltros_Hojas()     
    Dim Numero_Hojas As Integer     
    Dim I As Integer     
        'Establecer Numero_Hojas igual al número de hojas de trabajo en el libro activo.     
Numero_Hojas = Worksheets.Count     
    ' Comenzado el ciclo     
For I = 1 To Numero_Hojas         
    ' Inserta tu código
     ' La siguiente línea muestra cómo hacer referencia a una hoja dentro de
     ' el bucle mostrando el nombre de la hoja de trabajo en un cuadro de diálogo.     
If Worksheets(I).FilterMode Then Worksheets(I).ShowAllData
Next I   
End Sub