Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Counting colored cells
I got this code from a site on-line.
I need to scan a list of cells in a worksheet and search for any cells that are colored red. If any of the cells are colored red I need to display it in a separate worksheet that deals with a summery of all the work so far. It would be handy, although not essential if the number of red cells on a sheet was given. I think this code will do it apart from one problem. My current red cells are red due to conditional formatting, I think that this is causing problems. Any ideas? I am not too advanced with VBA so please be patient with me!!! Thanks, Niall. | | | v code: Function CountColour(Rng As Range, ColourMatch As Integer, BackgroundOrFont As String) 'Rng is the set of cells to be checked 'ColurMatch is the Color INDEX of the colour being tested for 'BackgroundOrFont requires an "F" or "B" to indicate whether to test Font or Background colour Dim c As Range, TempStore As Long TempStore = 0 Select Case BackgroundOrFont Case "B" For Each c In Rng If c.Interior.ColorIndex = ColourMatch Then TempStore = TempStore + 1 End If Next Case "F" For Each c In Rng If c.Font.ColorIndex = ColourMatch Then TempStore = TempStore + 1 End If Next Case Else CountColour = "Choose F or B only" Exit Function End Select CountColour = TempStore End Function |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
counting colored cells | Excel Discussion (Misc queries) | |||
Counting colored cells | Excel Discussion (Misc queries) | |||
Counting Colored Cells | Excel Programming | |||
COUNTING COLORED CELLS | Excel Programming | |||
counting colored cells | Excel Discussion (Misc queries) |