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


RSS