Clear color but not pattern?
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 |
Clear color but not pattern?
Try this:
If Cells(x, y).Interior.ColorIndex = 8 Then myPattern = Cells(x,y).Interior.Pattern Cells(x, y).Interior.ColorIndex = xlNone Cells(x, y).Interior.Pattern = myPatter End If jayklmno wrote: 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 |
Clear color but not pattern?
Retain the pattern with a variable and reapply it.
i.e. Dim myPattern as long If Cells(x, y).Interior.ColorIndex = 8 Then myPattern = Cells(x, y).Interior.Pattern Cells(x, y).Interior.ColorIndex = xlNone Cells(x, y).Interior.Pattern = myPattern End If -- Les Torchia-Wells "jayklmno" wrote: 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 |
Clear color but not pattern?
Thanks, Gents!
"John Fuller" wrote: Try this: If Cells(x, y).Interior.ColorIndex = 8 Then myPattern = Cells(x,y).Interior.Pattern Cells(x, y).Interior.ColorIndex = xlNone Cells(x, y).Interior.Pattern = myPatter End If jayklmno wrote: 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 |
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 |
All times are GMT +1. The time now is 06:09 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com