Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can't paste conditional formatting colors into new book?
I have the following code snippet that pastes over a copied range into
a new worksheet. The problem is that conditional formatting in the first range has set some cell colors, and those colors are not being transferred over in the copy. The CF has two conditions; some of the copied cells have met the first condition only which sets the cell orange, and some both the first and the second conditions which sets the cell red. The conditions are based on vlues in cells which do not get copied over. Any cell which in the original worksheet is either orange or red gets copied only as orange. Is there anything I can add which copies over exactly what I see? Ed PS - I also have a problem with some of the values which are dates. Because the action being reported has been completed, an IF formula has set the date to 0, and zero values are not shown. When the new workbook pops up to be copied into, though, these blank dates show up as 1/1/1900. Any remedies? wk.Activate wk.Range("A16:J" & y).Select Set rng = Selection Set rng = Intersect(rng, rng.SpecialCells(xlCellTypeVisible)) rng.Copy With wk2 .Activate .Range("A1").Select Selection.PasteSpecial Paste:=8 .Range("A1").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False .Range("A1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End With |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional Formatting question with colors | Excel Discussion (Misc queries) | |||
Conditional Formatting - Not all colors work? | New Users to Excel | |||
Conditional Formatting - more than 4 cell colors | Excel Worksheet Functions | |||
Conditional Formatting with Colours / Colors | Excel Worksheet Functions | |||
Conditional Formatting in 6 colors | Excel Discussion (Misc queries) |