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

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

Option Explicit
'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