Select and copy array of cells in VBA

[ATOP]

Hello,

i need help with debuging a code that i wrote (dont know a lot about VBA). It stops working in 8 or 9th line (I have put it in italic format). What must i change so that it will work? ist there any better way to write this macro? is the problem in skipBlanks?

Please Login or Register  to view this content.

Thank you for your help

[dotchiejack]

Without a example ?
I'll guess this is what you are afther.

Please Login or Register  to view this content.

Avoid Select and activate, it slows down your code big time an it is rarely needed.

[ATOP]

It seems to be working, with only two problems for one i cannot find a pattern.
One is that the range in column W is not the same as range in column E when formulas are copied. (which is important). because with the second macro i want to be able to return the copied formulas to original cells if needed. And if formulas are copied into the column W without the blanks in between ranges this would be harder to do.
Something like this i suppose but what i wrote dosent work :D

Please Login or Register  to view this content.

Second one is when it copies the values back to original range i get a #N/A as a result in some cells. From D29:E29 and also in D67:E70, D80:E84 , D100:D101. The formulas are the same in all cells but only in this cells the values come as N/A. Is it possible that this two problems are corelated?

If u need workbook let me know.

[Fluff13]

You cannot use .value=.Value on non contiguous ranges.
try

Please Login or Register  to view this content.

[ATOP]

This works like a charm

I will try to do reverse macro my self(to return the forumlas back to normal place).

Thank you very many :D

[Fluff13]

Glad to help & thanks for the feedback

[ATOP]

Problems again :D
Im really bad at this

i tried to modify the code so that it would return the formulas back in original place. But my attempt was denied

Please Login or Register  to view this content.

it says that End With without With

[Fluff13]

You're missing the

Please Login or Register  to view this content.

which need to go just before the End With

[ATOP]

Awsome this solved the problem thnx again

[Fluff13]

You're welcome