Macro para activar o desactivar autofiltros en todas las hojas de un archivo de Excel

En esta ocasión les comparto un formulario en el que podremos activar o desactivar los autofiltros de todas las hojas que tengamos en un libro.

Por qué hacer una macro

Normalmente si queremos activar filtros a todas las hojas de un libro lo debemos hacer hoja por hoja. Es por eso que para hacerlo debe ser con macros.

Cómo funciona

El formulario cuenta con un botón que activará o desactivara los autofiltros. El mismo botón cambiará su texto para saber si activamos o desactivamos.

Código del formulario

Private Sub btnMensaje_Click()
For Each Hoja In ActiveWorkbook.Sheets
If Hoja.AutoFilterMode Then
Hoja.Range(“A1”).AutoFilter
Me.btnMensaje.Caption = “Actvar Autofiltros”
Else
Hoja.Range(“A1”).AutoFilter
Me.btnMensaje.Caption = “Desactivar Autofiltros”
End If
Next Hoja
End Sub

Animación del formulario en acción

Autofiltros en todas las hojas

:: Descargar ejemplo EXCELeINFO – autofiltros en todas las hojas.xlsm

You may also like...