Como saber si el autofiltro esta activo

Quisiera saber ¿cómo puedo averiguar si en un rango de celdas esta el autofiltro activado?
Mi problema es que cuando ejecuto una macro activando el autofiltro, cuando lo intentan hacer de nuevo obviamente solo lo desactiva.
Gracias
{"Lat":-12.1110610798041,"Lng":-76.9945907592773}

1 Respuesta

Respuesta
1
Sub ActivarFiltro()
    If ActiveSheet.FilterMode = True Then
        MsgBox "AutoFiltro Existe y esta Activado"
        Exit Sub
    End If
    If Not ActiveSheet.AutoFilter Is Nothing Then
        MsgBox "AutoFiltro Existe, pero no esta activado"
        Exit Sub
    End If
    MsgBox "AutoFiltro NO existe. Se colocara Filtro sin activar"
    Range("A1").AutoFilter
End Sub
Rango A1 es donde empieza tu base a filtrar. Si no es así, cambia esta referencia.
Activesheet es la hoja activa.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas