Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Selecting cells by color?
Is there a way to select cells based on color?
Do I need to do this with a program or does Excel have a function to do this? Sub FindSameCells() ci = ActiveCell.Interior.ColorIndex For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = ci Then 'Add this cell to the SelectionRange end if Next c SelectionRange.Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Selecting cells by color?
Sub FindSameCells()
Dim rng as Range, c as Range Dim ci as Long ci = ActiveCell.Interior.ColorIndex For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = ci Then if rng is nothing then set rng = c else set rng = Union(c,rng) end if end if Next c rng.Select End Sub No built in support for this. -- Regards, Tom Ogilvy "Gary Adamson" wrote in message ... Is there a way to select cells based on color? Do I need to do this with a program or does Excel have a function to do this? Sub FindSameCells() ci = ActiveCell.Interior.ColorIndex For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = ci Then 'Add this cell to the SelectionRange end if Next c SelectionRange.Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can you change the color used when selecting cells in Excel? | Excel Discussion (Misc queries) | |||
Can you change the color used when selecting cells in Excel? | Excel Discussion (Misc queries) | |||
how to set shading color of selection when i am selecting cells? | Setting up and Configuration of Excel | |||
Selecting cells of a specific color only. | Excel Discussion (Misc queries) | |||
Conditional to change cell color by Selecting Cells | Excel Discussion (Misc queries) |