Help

[Shalbriri]

Sheets("Sheet2").Select
Range("d2:E33").Offset(0, 0).Select
Selection.Copy
Range("D2:E33").Offset(0, 1).PasteSpecial
Range("C2:D33").Offset(0, 0).Select
Selection.Copy
Range("C2:D33").Offset(0, 1).PasteSpecial

This is my code, its perfectly fine, tho, if someone could help me out and give me pointers on how to make this code into a loop.
since i need to move 2 columns of data to the right, by one step.




The idea is to move data from C to D to E to F and so on.
but the procedure must be backwards, if you get my point.
http://imageshack.us

 

[JackDanIce]

Try:

Sub MoveMyColumns ()
Dim i as Long, j as Long
j = Cells(1, Columns.Count).End(xlToLeft).Column - 2
For i = j to 3 Step -1
Range(cells(2,j), cells(33, j + 1)).copy
cells(2,j+1).PasteSpecial
Next i
End Sub

 

[Dryver14]

if you work backwards and copy f to d then d to c will you not just put column f in every column?

 

[Shalbriri]

Why is this

Range(cells(2,j), cells(33, j + 1).copy
in red ??

EDIT
) was missing :D

 

[AMAS]

Also just a quick note... you almost never need to use select. So your original code can also be:

Range("d2:E33").Offset(0, 0).Copy
Range("D2:E33").Offset(0, 1).PasteSpecial
Range("C2:D33").Offset(0, 0).Copy
Range("C2:D33").Offset(0, 1).PasteSpecial

Just something I picked up along the way.

Hope it helps.

AMAS

 

[Shalbriri]

The idea is to move data from C to D to E to F and so on.
but the procedure must be backwards, if you get my point.

sry i miss led you, the first part is the one i am looking for.
C to D
D to E
E to F
F to infinity

 

[JackDanIce]

If you move C to D and then D to E, why not just move C to E??

 

[Dryver14]

that just moves it the other way so every column would be c

you need to select the whole range and move it accross one at the same time

 

[Shalbriri]

If you move C to D and then D to E, why not just move C to E??

because i need the last values to be seen and when ever a new value is inserted all the other values move to the left

 

[Shalbriri]

Im so sorry guys this concept overall doesn't help me at all, since the idea was that the values under D are the starting value of products in storage, and C would've been the status value of the moment, and when ever new items were to be inserted into the storage the at the moment values would've become the starting values.

And the reason why it doesn't help me is that new items come randomly in a month. So it would've moved all the data and would've left empty gaps in the worksheet ...