Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do I carry cell colors?
I'm trying to set up an automatic work schedule.
I have 10 names (cells are color shaded by a unique color) How do I carry that individual's cell color in to a new cell with some sort of formula? or what is the formula for cell color shades? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do I carry cell colors?
You can't use formulas to change cell/font color. Formulas only return
values to their calling cells. If you're using XL2007, you can set up conditional formatting for each of the 10 names. If you're not, you'll need to use an event macro to do it automatically. For instance, if your copied cells are in J1:Z100: Private Sub Worksheet_Calculate() Dim rFormulas As Range Dim rCell As Range On Error Resume Next Set rFormulas = Range("J1:Z100").SpecialCells(xlCellTypeFormulas) On Error GoTo 0 If Not rFormulas Is Nothing Then For Each rCell In rFormulas Select Case rCell.Text Case "Smith" rCell.Interior.ColorIndex = 3 Case "Jones" rCell.Interior.ColorIndex = 5 Case "Johnson" rCell.Interior.ColorIndex = 7 'Additional cases here... Case Else rCell.Interior.ColorIndex = xlColorIndexNone End Select Next rCell End If End Sub In article , Pelusa wrote: I'm trying to set up an automatic work schedule. I have 10 names (cells are color shaded by a unique color) How do I carry that individual's cell color in to a new cell with some sort of formula? or what is the formula for cell color shades? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do I carry cell colors?
That's it! Thank you for the code!
"Pelusa" wrote: I'm trying to set up an automatic work schedule. I have 10 names (cells are color shaded by a unique color) How do I carry that individual's cell color in to a new cell with some sort of formula? or what is the formula for cell color shades? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel should carry cell protection to other office productivity pr | Excel Discussion (Misc queries) | |||
Can Excel 2003 cell link carry with it the source cell format? | Excel Discussion (Misc queries) | |||
How can I carry cell formatting in paste link | Excel Discussion (Misc queries) | |||
Can't format font colors or cell fill-in colors | Excel Discussion (Misc queries) | |||
How to carry over conditional format colors to a chart | Charts and Charting in Excel |