Clean my copy code?

[Frigide]

I don't know how to call the title!

But i made a copy Macro. It is working nice. But it isn't nice coding! And i need 5 more just like it with different cells and columns.
I'm sure there is a nicer way to code this and still understand what is going on so i can change it.

Please Login or Register  to view this content.

[KOKOSEK]

A bit better (I hope it will be working as it should):

Please Login or Register  to view this content.

[Frigide]

Works fine. Thanks.

[KOKOSEK]

You welcome.
If you happy with solution, please use Thread Tools and mark it as SOLVED.

p.s. I will appreciate if You also add reputation point.

[Frigide]

Learnt a lot. If i'm correct you cant set Dim with a letter you use in the code for a column. Is there a way to close the Dim en give it a new range?

[KOKOSEK]

You can name Your variables as You wish (almost, except function names, etc.)
So, don't worry I as variable can be use, like below:
Range("I"&I).value
so, depends on I value it can be reference to I1, I2 or whatever.
You can rename it for Dim X as integer, as You wish, BUT from programming point of view X,Y,Z usually is set for variables which have to be calculated (as unknown on start) if you know what I mean.
For simple integer to looping usually i,j or etc. are used.
As I said as You wish.


Of course when this loop is finish, You can start new:

Please Login or Register  to view this content.

[Frigide]

You can name Your variables as You wish (almost, except function names, etc.)
So, don't worry I as variable can be use, like below:
Range("I"&I).value
so, depends on I value it can be reference to I1, I2 or whatever.
You can rename it for Dim X as integer, as You wish, BUT from programming point of view X,Y,Z usually is set for variables which have to be calculated (as unknown on start) if you know what I mean.
For simple integer to looping usually i,j or etc. are used.
As I said as You wish.


Of course when this loop is finish, You can start new:

Please Login or Register  to view this content.

Can you do it also with this? The other script is messing up the table. It has to be pasted at once. Because otherwise the table skips a line and the next value is a row down and not next to it.

Please Login or Register  to view this content.

[KOKOSEK]

Do the same loop (for i=6 to 13) for this:

Please Login or Register  to view this content.