Simple Loop VBA Code

[rozek]

Hi. I'm trying to do a loop with this. I hope that someone can help me on this and I could learn doing this on my own for other project. Thank you

Y.Sheets("Field").Cells(6, 48) = Y.Sheets("Field").Cells(5, 6)
Y.Sheets("Field").Cells(20, 48) = Y.Sheets("Field").Cells(6, 6)
Y.Sheets("Field").Cells(34, 48) = Y.Sheets("Field").Cells(7, 6)
Y.Sheets("Field").Cells(48, 48) = Y.Sheets("Field").Cells(8, 6)
Y.Sheets("Field").Cells(62, 48) = Y.Sheets("Field").Cells(9, 6)
Y.Sheets("Field").Cells(76, 48) = Y.Sheets("Field").Cells(10, 6)
Y.Sheets("Field").Cells(90, 48) = Y.Sheets("Field").Cells(11, 6)
Y.Sheets("Field").Cells(104, 48) = Y.Sheets("Field").Cells(12, 6)

Will this work? Seems not
For i = 5 to 12
For j = 1 to 8 step 13
Y.Sheets("Field").Cells(j, 48) = Y.Sheets("Field").Cells(i, 6)
next j
next i

 

[Michael M]

I don't know what Y represents, but try...

n = 5
For j = 6 To 104 Step 14
Sheets("Field").Cells(j, 48) = Sheets("Field").Cells(n, 6)
n = n + 1
Next j

 

[rozek]

I don't know what Y represents, but try...

n = 5
For j = 6 To 104 Step 14
Sheets("Field").Cells(j, 48) = Sheets("Field").Cells(n, 6)
n = n + 1
Next j

Thank you Michael. It works.

 

[Michael M]

Glad to help...