ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Setting up and Configuration of Excel (https://www.excelbanter.com/setting-up-configuration-excel/)
-   -   How do I change the color of the autofiler indicators? (https://www.excelbanter.com/setting-up-configuration-excel/99533-how-do-i-change-color-autofiler-indicators.html)

RaySar

How do I change the color of the autofiler indicators?
 
The autofilter indicators (the little black or blue triangles) are difficult
to tell the difference between unfiltered (black) or filtered (blue). Can I
change the default color for the filtered columns to something more
distinctive than the blue color?

Gord Dibben

How do I change the color of the autofiler indicators?
 
Ray

Unfortunately, you cannot change these.


Gord Dibben MS Excel MVP

On Sun, 16 Jul 2006 06:44:01 -0700, RaySar
wrote:

The autofilter indicators (the little black or blue triangles) are difficult
to tell the difference between unfiltered (black) or filtered (blue). Can I
change the default color for the filtered columns to something more
distinctive than the blue color?



roundabout

How do I change the color of the autofiler indicators?
 

Though you could change the colour of the filtered column header by
using a worksheet event?

Private Sub Worksheet_Change(ByVal Target As Range)
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 =
6
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



--
roundabout
------------------------------------------------------------------------
Posted via http://www.mcse.ms
------------------------------------------------------------------------
View this thread: http://www.mcse.ms/message2421270.html



All times are GMT +1. The time now is 02:39 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com