CÓMO APARECER SIEMPRE LOS FILTROS AUTOMÁTICOS EN UNA HOJA

[jesuspg]

Hola a todxs,

Me gustaría que los filtros automáticos aparecieran siempre que se activa la hoja, tal y como aparece en la imagen adjunta.

Para ello, he desarrollado el siguiente evento:

Private Sub Worksheet_Activate()

   With Sheets("Hoja1")
      .AutoFilterMode = False   ' Desactivamos siempre los filtros automáticos...
      .Cells.AutoFilter
   End With

End Sub

Sin embargo, no me funciona, porque la primera vez se activan los filtros automáticos, pero a la siguiente no.

Es casi como poner lo siguiente:

Private Sub Worksheet_Activate()

   Sheets("Hoja1").Cells.AutoFilter

End Sub

Es decir, se quitan y se ponen cada vez que se activa la hoja del libro.

En fin, me podriáis orientar un poquito?

 

Muchas gracias de antemano.

[tierra_pampa]

Hola @paikerr

Prueba si ésto es lo que necesitas.

Suerte!

 

Private Sub Worksheet_Activate()

If ActiveSheet.AutoFilter Is Nothing Then Range("A1:H1").AutoFilter

End Sub

 

[jesuspg]

@tierra_pampa, SOLUCINADO!!!

Muchas gracias.