You guys understand the problem perfectly. It's not a huge spreadsheet.
Maybe 200 rows and the font in question is all in one column.
I'll try the code but I've never had much luck at running codes. I'm a
complete dunce with them.
--
JoAnn Paules
MVP Microsoft [Publisher]
~~~~~
How to ask a question
http://support.microsoft.com/KB/555375
"Bob Phillips" wrote in message
...
This code should so it, but as Jim says, it could take a long time
Public Sub ProcessData()
Const TestColumn As String = "D" '<=== change to suit
Const OriginalCI As Long = 10 '<=== green, change to suit
Const NewCI As Long = 4 '<=== lime green, change to suit
Dim iLastRow As Long
Dim i As Long, j As Long
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
iLastRow = .Cells(.Rows.Count, TestColumn).End(xlUp).Row
For i = 1 To iLastRow
For j = 1 To Len(Cells(i, TestColumn).Value)
Debug.Print
If Cells(i, TestColumn).Characters(j, 1).Font.ColorIndex =
OriginalCI Then
Cells(i, TestColumn).Characters(j, 1).Font.ColorIndex =
NewCI
End If
Next j
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End With
End Sub
--
HTH
Bob Phillips
(replace xxxx in the email address with gmail if mailing direct)
"JoAnn Paules [MVP]" wrote in message
...
Normally changing the font color is a simple task, right? Well, I've got
a
poser for y'all. (Excel 2003, Win 2000, fully patched)
My boss keeps a spreadsheet of issues/resolutions on the tanks (vehicles,
not vessels) at work. Each row is a separate vehicle. One of the columns
has
multiple lines of text with manual line breaks between each issue. If an
issue hasn't been discussed at our 3x weekly meeting, that specific line
of
text is changed to green. After it's discussed, it's changed to black.
Got
this so far?
Okay..........we use a projector in the 3x weekly meeting to display this
spreadsheet. The colors are muddied so I've changed that green text to
bright green so it is obviously not black on the projection screen. I
have
been trying to use Find/Replace to find any green text and change it to
bright green. Unfortunately, it will not hit on any cells that doesn't
contain text in mixed colors. It's an all or nothing. I've tried
selecting
the "Match entire cell contents" and deselecting it. No difference.
It's difficult to see the green text and I would love to be able to do
something simple like this to change it all in one shot. Can it be done?
Can
it be done by someone who knows diddly about VBA?
--
JoAnn Paules
MVP Microsoft [Publisher]
~~~~~
How to ask a question
http://support.microsoft.com/KB/555375