Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Determine the colour of text in each cell in a range of cells
Hi all,
I'm given a single column of data that covers a variable number of rows. I need to count the number of rows that contain text that is coloured red. It sounds simple and I've been trying to use the Format.Find function but that never comes to an end. Is there a way for me to go through the range of cells and and count how many are coloured red? There no other colours except black and red. Below is my attempt at this but does not work. Sub Macro4() Dim myRange As Range Dim cellValue As String Dim redCounter As Long redCounter = 0: Set myRange = Range("A1:A7") myRange.Select Do Until (myRange.End(xlDown) = True) With Application.FindFormat.Font .Subscript = False .ColorIndex = 3 End With Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True).Cells.Select redCounter = redCounter + 1: Selection.FindNext(After:=ActiveCell).Activate Loop End Sub Thank you kindly Khurram |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Determine the text in a range that covers several cells | Excel Programming | |||
Determine if range has NO Blank Cells without looping through each cell in range | Excel Programming | |||
Combobox to determine text for a range of cells | Excel Programming | |||
Cell Colour based on text in Range of cells | Excel Programming | |||
Cell Colour based on text in Range of cells | Excel Programming |