¿Cómo verificar si se ha aplicado un filtro en una hoja de cálculo en Excel?

Para una hoja de cálculo que contiene una gran cantidad de datos, ¿es posible verificar si se ha aplicado un filtro en una columna específica o en toda la hoja sin tener que revisar manualmente columna por columna? En este tutorial, te mostraremos dos códigos VBA para manejar esta tarea.

Verificar si se ha aplicado un filtro en una columna específica
Verificar si se ha aplicado un filtro en una hoja de cálculo

Verificar si se ha aplicado un filtro en una columna específica

Para verificar si una columna específica está filtrada, el código VBA de esta sección puede ayudarte.

1. Abre la hoja de cálculo en la que deseas verificar si se ha aplicado un filtro en una columna específica.

2. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, y luego copia el siguiente código VBA en la ventana Módulo (Código).

Código VBA: Verificar si una columna específica está filtrada

Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
        xBol = True
    End If
Next xFNum
If xBol Then
    MsgBox "The specified column is filled"
Else
    MsgBox "The specified column is not filled"
End If
End Sub

Nota: En el código VBA, el número 3 en esta línea “xColumn = 3” representa la tercera columna en la hoja de trabajo actual. Si deseas verificar si se ha aplicado un filtro en la columna E, cambia el número 3 por 5.

4. Presiona la tecla F5 para ejecutar el código.

Si la columna especificada está filtrada, aparecerá el siguiente cuadro de diálogo.

De lo contrario, obtendrás el siguiente cuadro de diálogo.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Verificar si se ha aplicado un filtro en una hoja de cálculo

Si deseas verificar si se ha aplicado un filtro en una hoja de cálculo, prueba el código VBA de esta sección.

1. Abre la hoja de cálculo en la que deseas verificar si se ha aplicado un filtro.

2. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, y luego copia el siguiente código VBA en la ventana Módulo (Código).

Código VBA: Verificar si se ha aplicado un filtro en una hoja de cálculo

Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer

Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On Then
        xBol = True
        Exit For
    End If
Next xFNum

If xBol Then
    MsgBox "Filter is applied in the curren worksheet"
Else
    MsgBox "Filter does not apply in the current worksheet"
End If
End Sub

4. Luego, presiona la tecla F5 para ejecutar este código; si la hoja de cálculo contiene filtros, obtendrás un cuadro de diálogo como el siguiente.

De lo contrario, obtendrás el siguiente cuadro de diálogo.