Programmatically copy Conditional formats from one cell to another

B

Barb Reinhardt

I've been trying to figure out how to do this, but haven't beensuccessful.
Can someone give me an idea on how to approach this. I'd like to refer to
the cell with the CF's as r (formatted as a range) and the cell without the
format as r1 (again, formatted as a range)

Thanks,

Barb Reinhardt
 
A

Anand Nichkaode

Hope this helps

Range("F18").Select ' cell with conditional formatting
Selection.Copy ' copy the formatting
Range("I14").Select ' target cell to copy the formats on to
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False ' pastespecial the formats
Application.CutCopyMode = False
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top