Filtrar con colores en Excel

Marcar encabezado de columnas filtradas

Este ejemplo Excel VBA surge en base a que si uno filtra con mucho criterios, pasa que aveces nos perdemos que columnas tenemos filtrado.

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

Descargar archivo Excel (zip)

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ódigo

Option Explicit
'JOSE SKRAVIUK
'ayudaexcel@ 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