I am trying to create a loop for the following statement

Set r1 = Range(Cells(4(i), 3), Cells(4(i), 4))
Set r2 = Range(r1, Cells(4(i), 5))
r2.Copy
Cells(5(i+1), 2).PasteSpecial Transpose:=True

the i and i+1 are the values that I want to be changing. My loop needs
to be changing in increments of 4. I have a feeling that I have to do
somekind of loop that would allow me to do the following
for i=1
inew=i+4
i new = i

and the loop continues but when I tried this or anything close to the
for i=1 would take control more than the inew part.

didn't test anything, but you can use a step statement with the for loop

for i = 1 to 100 step 4

--


Gary


wrote in message
ups.com...
I am trying to create a loop for the following statement

Set r1 = Range(Cells(4(i), 3), Cells(4(i), 4))
Set r2 = Range(r1, Cells(4(i), 5))
r2.Copy
Cells(5(i+1), 2).PasteSpecial Transpose:=True

the i and i+1 are the values that I want to be changing. My loop needs
to be changing in increments of 4. I have a feeling that I have to do
somekind of loop that would allow me to do the following
for i=1
inew=i+4
i new = i

and the loop continues but when I tried this or anything close to the
for i=1 would take control more than the inew part.

On Jul 5, 2:31 pm, wrote:
I am trying to create a loop for the following statement

Set r1 = Range(Cells(4(i), 3), Cells(4(i), 4))
Set r2 = Range(r1, Cells(4(i), 5))
r2.Copy
Cells(5(i+1), 2).PasteSpecial Transpose:=True

the i and i+1 are the values that I want to be changing. My loop needs
to be changing in increments of 4. I have a feeling that I have to do
somekind of loop that would allow me to do the following
for i=1
inew=i+4
i new = i

and the loop continues but when I tried this or anything close to the
for i=1 would take control more than the inew part.

You can use a For...Next loop with a Step.

For example,

For a = 1 to 12 Step 4
Cells(a,1).Select
Next

will make selectoins by stepping up by 4. You can also step in
negative increments as well.

Matt

On Jul 5, 2:31 pm, wrote:
I am trying to create a loop for the following statement

Set r1 = Range(Cells(4(i), 3), Cells(4(i), 4))
Set r2 = Range(r1, Cells(4(i), 5))
r2.Copy
Cells(5(i+1), 2).PasteSpecial Transpose:=True

the i and i+1 are the values that I want to be changing. My loop needs
to be changing in increments of 4. I have a feeling that I have to do
somekind of loop that would allow me to do the following
for i=1
inew=i+4
i new = i

and the loop continues but when I tried this or anything close to the
for i=1 would take control more than the inew part.

You can use a For...Next loop with a Step.

For example,

For a = 1 to 12 Step 4
Cells(a,1).Select
Next

will make selectoins by stepping up by 4. You can also step in
negative increments as well.

Matt