Filtrar con colores en Excel
José Skraviuk | 1/11/2005
Marcar encabezado de columnas filtradas
Este ejemplo Excel VBA surge en base a que si uno filtra con muchos criterios, pasa que a veces nos perdemos que columnas tenemos filtrados.
En este caso se utiliza una macro, para que resalte el encabezado de las columnas filtradas.
El usuario tiene la posibilidad de elegir el color que prefiere. En este caso tiene unos ejemplos pero se puede agregar más colores.
Descargar archivo
Contenedor del código
El código debe ir en el módulo VBA correspondiente a la hoja para filtrar, por utilizar el suceso Worksheet_Calculate(). Ver ejemplo.
El códigoVBA
'JOSE SKRAVIUK
'ayudaexcel {at} yahoo.com.ar
Private Sub Worksheet_Calculate()
Dim af As AutoFilter
Dim fFilter As Filter
Dim iFilterCount As Integer
If ActiveSheet.AutoFilterMode Then
Set af = ActiveSheet.AutoFilter
iFilterCount = 1
For Each fFilter In af.Filters
If fFilter.On Then
af.Range.Cells(1, iFilterCount).Interior.ColorIndex = Range("color")
Else
af.Range.Cells(1, iFilterCount).Interior.ColorIndex = xlNone
End If
iFilterCount = iFilterCount + 1
Next fFilter
Else
Rows(1).EntireRow.Interior.ColorIndex = xlNone
End If
End Sub
