Conditional Formating Copy/Paste

J

Josh O.

I am inserting conditional formats on a spreadsheet, but it keeps hanging up
on the first .Add (xlExpression,...) of the below VBA. I am not sure what I
am missing.

This is what I want it to do. If J2 is less than 60 days from today,
hightlight A2:J2 color 34...or if J2 is less than 30 days from today,
highlight A2:J2 color 36...or if today is after J2 then highlight A2:J2 color
38. Then copy the formating from row 2 down to the last row of data.

With Range("a2:j2").FormatConditions
.Delete

.Add(xlExpression, ,
"=and($i2<=(today()+60),$i2>(today()+30),$a2<>"")").Interior.ColorIndex = 34

.Add(xlExpression, ,
"=and($i2<=(today()+30),$i2>(today()),$a2<>"")").Interior.ColorIndex = 36

.Add(xlExpression, , "=and($i4<today(),$a2<>"")").Interior.ColorIndex = 38
End With

With Range("a2:j2")
.Copy
Range("a2:j" & Range("j65536").End(xlUp).Row).PasteSpecial
xlPasteFormats End With
 

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

Similar Threads

Conditional Format 2
Help with the following code...from EntireRow to set width 3
Autoformat screws up with FormatConditions? 0
Conditional Formatting 5
Conditional Formatting Issue 5
Conditional formating Run-time error '5' 0
how to sort (by one field), copy (based on one field) to another tab,then clear data on original she 3
Loops always trip me up - and here's an example 5

Top