Saltar al contenido

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

publicado

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.

530339017_Sinttulo2.thumb.png.561e9b3ef355faf32e8614277d9fa573.png

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.

Featured Replies

publicado

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

 

publicado
  • Autor

@tierra_pampa, SOLUCINADO!!!

Muchas gracias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.