I have the following code:

Sub Test1()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = 0
Case Else
Selection.Font.ColorIndex = 3
End Select
Next
End Sub

This code works fabulously, however, I would like to set the font colorindex
to the same value as the interior color index if the cell value is 0. Is
this possible, and how would I go about this ?

try this
Sub docolors()
Selection.Font.ColorIndex = 3
For Each c In Selection
If c = 0 Then c.Font.ColorIndex = _
c.Interior.ColorIndex
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
I have the following code:

Sub Test1()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = 0
Case Else
Selection.Font.ColorIndex = 3
End Select
Next
End Sub

This code works fabulously, however, I would like to set the font
colorindex
to the same value as the interior color index if the cell value is 0. Is
this possible, and how would I go about this ?

This worked, I also tried a slight tweak to my own code, seting mycolor = to
the interior color and then if the value is o set the font colorindex = to
mycolor:

Thanks!

Sub Change_Color()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

MyColor = Selection.Interior.ColorIndex
Debug.Print MyColor
'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = MyColor
Case Else
Selection.Font.ColorIndex = 0
End Select
Next
End Sub


"Don Guillett" wrote:

try this
Sub docolors()
Selection.Font.ColorIndex = 3
For Each c In Selection
If c = 0 Then c.Font.ColorIndex = _
c.Interior.ColorIndex
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
I have the following code:

Sub Test1()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = 0
Case Else
Selection.Font.ColorIndex = 3
End Select
Next
End Sub

This code works fabulously, however, I would like to set the font
colorindex
to the same value as the interior color index if the cell value is 0. Is
this possible, and how would I go about this ?

Your code uses unnecessary/undesirable selections.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
This worked, I also tried a slight tweak to my own code, seting mycolor =
to
the interior color and then if the value is o set the font colorindex = to
mycolor:

Thanks!

Sub Change_Color()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

MyColor = Selection.Interior.ColorIndex
Debug.Print MyColor
'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = MyColor
Case Else
Selection.Font.ColorIndex = 0
End Select
Next
End Sub


"Don Guillett" wrote:

try this
Sub docolors()
Selection.Font.ColorIndex = 3
For Each c In Selection
If c = 0 Then c.Font.ColorIndex = _
c.Interior.ColorIndex
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
I have the following code:

Sub Test1()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = 0
Case Else
Selection.Font.ColorIndex = 3
End Select
Next
End Sub

This code works fabulously, however, I would like to set the font
colorindex
to the same value as the interior color index if the cell value is 0.
Is
this possible, and how would I go about this ?

Help me understand what was unnecessary / undesirable ... I'm pretty new at
this.


"Don Guillett" wrote:

Your code uses unnecessary/undesirable selections.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
This worked, I also tried a slight tweak to my own code, seting mycolor =
to
the interior color and then if the value is o set the font colorindex = to
mycolor:

Thanks!

Sub Change_Color()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

MyColor = Selection.Interior.ColorIndex
Debug.Print MyColor
'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = MyColor
Case Else
Selection.Font.ColorIndex = 0
End Select
Next
End Sub


"Don Guillett" wrote:

try this
Sub docolors()
Selection.Font.ColorIndex = 3
For Each c In Selection
If c = 0 Then c.Font.ColorIndex = _
c.Interior.ColorIndex
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KJ-clueless" wrote in message
...
I have the following code:

Sub Test1()
Dim MyRange As Range
Dim MyColor As Integer
Dim MyCell As Integer

'' set range = to selected cells ''
Set MyRange = Selection

'' evaluate the value and apply to appropriate text color ''
For Each c In MyRange
c.Select
MyCell = ActiveCell.Value
Select Case MyCell
Case 0
Selection.Font.ColorIndex = 0
Case Else
Selection.Font.ColorIndex = 3
End Select
Next
End Sub

This code works fabulously, however, I would like to set the font
colorindex
to the same value as the interior color index if the cell value is 0.
Is
this possible, and how would I go about this ?