Conditional Formatting (VBA)

[aeddipa]

I have a code that copies a template and pastes it into another tab. However, it is copying the conditional formatting and pasting it as well. I already have conditional formatting on the other tab and do not want it to paste another set of conditional formats because the formula's are changing between the copy and pastes.

Is there a way to say in VBA do NOT copy conditional formatting?

Thanks in advance.

 

[aeddipa]

VBA accepts that line of code. So I dont know. The thing is that my current script works just fine. I have everything working other than when I click the reset button more than once it duplicated the conditional formatting and puts them in the wrong cell.

So for example cell D82 may be conditionally formatted for red fill if it doesnt match certain criteria. Well when I click reset for a second time all of a sudden D80 has that conditional format even though it SHOULDNT.

I also tried your formula and it came out really buggy. It executed, but the tab went haywire and it doesn't look right.

Like I said, I'm not looking for a new script since it does work, I just don't want the conditional formats to duplicate because they are going to the wrong cells.

 

[phxsportz]

Not sure how it went Haywire, or doesn't look right, and unfortunately without the sheets, it's a bit difficult to try to track it down..

 

[aeddipa]

I understand. Thanks for the help anyway. I would post some of my work, but some of the information in the sheets is confidential.

 

[aeddipa]

Is there anyway that I could create a macro where I could remove all conditional formats. Then each time before I was to reset my data I could remove the formats so that when I hit the reset it would only apply once?

 

[phxsportz]

cells.ClearFormats

 

[Boller]

Check whether this does what you need :-

Dim rng As Range, area As Range
Worksheets.Add.Name = "tempD"
Sheets("Portfolio").Cells.Copy Sheets("tempD").Cells
Sheets("Template").Cells.Copy Sheets("Portfolio").Cells
Sheets("Portfolio").Cells.FormatConditions.Delete
Set rng = Sheets("tempD").Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each area In rng.Areas
    area.Copy
    Sheets("Portfolio").Range(area.Address).PasteSpecial Paste:=xlPasteFormats
Next
Application.DisplayAlerts = False
Sheets("tempS").Delete

Application.DisplayAlerts = true

 

[aeddipa]

I actually solved my problem. Thank you for the help though and attempt to work on it. I greatly appreciate it.