Quitar y poner autofiltros en una tabla
Tengo unos datos en una tabla. Necesito que si la tabla está filtrada, la macro me quite el filtro y lo vuelva a poner mostrando todos los datos.
Si la tabla no tiene el autofiltro puesto, que lo ponga pero sin filtrar la tabla.
Tengo la siguiente macro pero no me funciona.
Sub QuitarPonerAutofiltroTabla()
'
Range("Operaciones[#Headers]").Select
If ActiveSheet.Range("Operaciones[#Headers]").AutoFilter = True Then
Range("Operaciones[#Headers]").Select
Selection.AutoFilter 'lo quita.
Selection.AutoFilter 'y lo pone de nuevo.
Else
Selection.AutoFilter 'pone el filtro
End If
End Sub
1 Respuesta
Hola Dante.
Necesito lo siguiente: puede ocurrir que la tabla no tenga filtro y necesito que la macro ponga el filtro pero muestre todos los datos. Lo que me dices aplica sólo en el caso que la tabla ya esté previamente filtrada.
En síntesis que la tabla quede con filtro pero mostrando todos los datos.
Va la macro
Sub DejaAutoFiltro()
On Error Resume Next
n = ActiveSheet.AutoFilter.Filters.Count
If n = 0 Then Range("Operaciones[[#Headers]]").AutoFilter
ActiveSheet.ShowAllData
End Sub
