Clear color but not pattern?
Something like:
With Selection.Interior
sPattern = .Pattern
sPatternIndex = .PatternColorIndex
.ColorIndex = xlNone
.Pattern = sPattern
.PatternColorIndex = sPatternIndex
End With
So:
If Cells(x, y).Interior.ColorIndex = 8 Then
With Cells(x, y).Interior
sPattern = .Pattern
sPatternIndex = .PatternColorIndex
.ColorIndex = xlNone
.Pattern = sPattern
.PatternColorIndex = sPatternIndex
End With
End If
Regards
Trevor
"jayklmno" wrote in message
...
I am having issues with the cell color changing and updating, and removing
pattern information in the same cell.
I need to look through a data and color it a certain color and when the
data
is revised, I uncolor it. Users have added patterns to denote other stuff
and
the remove color as desribed below, also removes the pattern. Is there a
way
to remove the color and retain the pattern?
If Cells(x, y).Interior.ColorIndex = 8 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
Thanks,
Jay
|