View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
mark kubicki mark kubicki is offline
external usenet poster
 
Posts: 9
Default change font color for row...

nope...
there is a change event that triggers the function:


Private Sub Worksheet_Change(ByVal target As Range)
Application.Run UpdateRowColor(target)

then the function runs like this:

Function UpdateRowColor(target)
'This section effects changes to the "Project Phase" column
If Not Intersect(target, Range("A:A")) Is Nothing Then
If target.Count 1 Then
Exit Function
Else
Select Case target.Value
Case Is = "CA"
Range(target.Row & ":" & target.Row).Font.ColorIndex
= 45
Case Is = "CD"
...

one (only) of the cells n the row has a "conditoinal formatting"


"JLGWhiz" wrote in message
...
If is was set by conditional formatting then you will need:

Range(target.Row & ":" & target.Row).FormatConditions(1).Font.ColorIndex =
3


"Mark Kubicki" wrote:

i have this line of code to change the font color of a row; however,
nothing
changes... any suggestions?


thanks in advance,
mark