Trick to Keep Conditional Format Colours?

[Guest]

I applied conditional format to a range of cells in the first column.
Conditional format is based on the number of non-blank cells in each row. I
also made a macro to produce a snap report. Macro eventually deletes a bunch
of columns and I'm loosing the conditional format. The column with
conditionally formatted cells remains intact.

Is there any way I can convert the conditional format into regular format in
my macro so I can keep the colours on my report? If not, any suggestions?

Thanks a lot,

Val

 

[Bob Phillips]

If you delete columns, the others should adjust and the colours should
remain okay, even though the formulae would adjust.. What does your data
look like, and the CF formula?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Tom Ogilvy]

before you delete any cells, in your code, loop down the conditional format
column, count the number of blank cells in each the row and apply the
appropriate colorindex to the Interior.ColorIndex property for that row.
When the loop is complete then you can remove the conditional formatting so
it doesn't interfere and do the current snap report.

 

[Tom Ogilvy]

Not if the deleted columns contained the blank cells that were used/counted
to establish what the conditional format color should be.

 

[Bob Phillips]

Which is why I said should and asked for an indication of the data and the
formulae used.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

The conditional format is not in the macro. Formulae is

=AND(G1<>"",(MOD(COUNTA(G1A1),2)=0))

The conditional format basically inverts the font and the background if the
number of entries per each row is even and does nothing if it's odd.

The macro itself is manipulating with the dates recorded in each row
starting from column G and going all the way to column DA. There are some
calculations, etc., and in the end I'm deleting all columns from G to DA.
Conditional format does not work anymore, of course.

P.S. Sorry it took me a while to reply - Was getting home from work...

Val

 

[Tom Ogilvy]

I think the situation was well established in your original post. You
apparently didn't understand my recommendation that you reproduce that logic
in your macro to actually color the cell. I do understand that the
conditional formatting was done through the conditional formatting
capabilities of the worksheet and you are trying to reproduce the results
when you destroy the conditions that produced the color.

You don't state what column the conditional formatting is in, but assume G.

As an example then:

Dim rng as Range, cell as Range, rng1 as Range
set rng = Range(Range("G1"),Cells(rows.count,"G").End(xlup))
for each cell in rng
cell.Interior.ColorIndex = xlNone
set rng1 = Range(cell,cells(cell.row,"DA"))
if not isempty(cell) and (application.CountA(rng1) mod 2 = 0) then
cell.Interior.ColorIndex = 5
end if
Next

' now your code that changes you data.

Adjust to suit.

 

[Tom Ogilvy]

Sorry, I thought the situation was pretty well stated in the original post.

 

[Guest]

Thanks, Tom.

I now see what you have originally suggested. It'll work with some minor
tweaking.
I appreciate your help.

Regards,
Val