Copy a Range and it Font Color

[rudevincy]

I have a worksheet where I copy a range. In the range is data that using conditional formatting changes it font color to red or black based on a criteria.

Is it possible to copy the color of the font in the range as well??

This is the code I use to copy the range from one worksheet to the next



'Copy the data needed

Worksheets("SheetCP").Activate
Worksheets("SheetCP").Range("V3:V45").Value = Worksheets("SheetRP").Range("J11:J53").Value
Worksheets("SheetCP").Range("W3:AA45").Value = Worksheets("SheetRP").Range("L11:P53").Value


PLEASE HELP!

 

[Ruddles]

It's very tricky copying the colour of a cell if it was put there by conditional formatting. If you know the condition which made the source cell that colour, it's much easier to apply the same test to your target cell and change its .Font.Color property if necessary.

Have I explained that clearly? It made sense as I was typing it!

 

[rudevincy]

Ok so there are two ranges Sample1 and data2 so I can say

if Range("Sample") < 30 then Range("data2").Font.Color = Red
else
Range("data2").Font.Color = Black
End if