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
Ver Video Autofiltros en todas las hojas usando macros VBA
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
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
:: Descargar ejemplo EXCELeINFO – autofiltros en todas las hojas.xlsm
