Button or key to conditionally change text foreground color?
And I guees the code would help <g
Sub SetColour()
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & _
ActiveCell.Address(False, False) & "="""""
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"Kurt Swanson" wrote in message
...
I would like to find some quick method (some sort of visible button or
hotkey) for the user of a worksheet to change the text foreground
color for certain cells in a block of cells (A1:I9) to some specific color
if and only if the cell is blank. I.e. when the user hits this "red"
key/button, every empty cell in A1:I9 gets a new foreground text
color--red. Nothing would be immediately apparent, as these are empty
cells, but as soon as the user starts entering values into these
cells, the data would be shown in red... a "make all new data red"
button/key.
Is this possible? How?
--
© 2005 Kurt Swanson AB
|