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.
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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.