Macro Only Works For One Column

[rmccain]

Hello,

The macro below will only output in column G.

When I change the output column it will not propagate the column. i.e. F ,G, H,I etc

Also , when I change the input column to another letter besides D it will not work. The input column has values in it and I copy and pasted the values to other columns trying different input columns.

Your help will be greatly appreciated.

Please Login or Register  to view this content.

[protonLeah]

I don't have any problem with the code except that you are recalculating x within the loop at several places without checking if it is <= 2 which can cause the row pointer to become < 1.

[rmccain]

Hello,

Thankyou very much for your time and your response.

I am trying to figure this out, doesn't the code below already do this ?

If not what am I missing; I am baffled.

Please Login or Register  to view this content.

Thankyou again

[protonLeah]

No. You are starting off by finding the last used row in column D.
The line: llastrow = Range("I" & Rows.Count).End(xlUp).Row is only run once.

You have a loop controlled by x which starts off at llastrow; However, inside the loop, you have:

x = x - c - 2
and
x = x - c
one of which will decrement x inside the loop depending on the outcome of the IF..Then test. Notice that c is incremented inside Do..Loops and it may be possible that c will become larger than x. (Can't be sure without a sample workbook).

Finally,
Next x will always decrement x by another 1 since you are stepping by -1. So that it is possible to have a zero or negative row value which will fail the code.

* I tested with Rnd() in column D and it did crash several times, but it did write to any other specified column.

[rmccain]

Oooh Ok,

Thankyou for your help.