How to copy every nth cell in a column to a form and autofill?

[BBAmog]

[FONT=&quot]Hi. Been searching and struggeling with this a while now. Here is the deal:[/FONT]

[FONT=&quot]I have a list (a column few hundred numbers). I also have a form (A whole A4 page) that i want to fill out with this list. Therefore i want to copy a cell in the list to another cell in the form, drag down the whole form and autofill the next few hundred forms. The roblem is that the cell I copy is pasted every 50 row, it does not take A1+1.[/FONT]

[FONT=&quot]Example:[/FONT]
[FONT=&quot]I want to copy A1 to Sheet 2 A4[/FONT]
[FONT=&quot]Next A2 to Sheet 2 A50[/FONT]
[FONT=&quot]Next A3 to Sheet 2 A100[/FONT]

[FONT=&quot]I AM BEGGING FOR SOME HELP. [/FONT]

[FONT=&quot] [/FONT]

[FONT=&quot]Cheers.[/FONT]

 

[BarryL]

something like

Sub test()
Dim rng As Range, i As Long
i = 1
For Each rng In Sheet1.Range("A1:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)
rng.Copy Sheet2.Range("A" & i)
i = Round((i + 50) / 10, 0) * 10
Next
End Sub

 

[BBAmog]

Hi. Hmm i get the message: Run-time error '424':

Object required.

I think you are on to something, but im not quite there.

 

[BarryL]

try

Sub test()
Dim rng As Range, i As Long
i = 1
For Each rng In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
rng.Copy Sheets("Sheet2").Range("A" & i)
i = Round((i + 50) / 10, 0) * 10
Next
End Sub

 

[BBAmog]

Hmmm. Now i get:
Run-time error '9'

Subscript out of range

tryig to change the code, but im not very good at this.

 

[BarryL]

whats the name of your sheets?

 

[BBAmog]

Its almost there! I changed the Sheet1 is called Ark1 in norwegian. I want to start by copying A1 to A4, then A2 to 54. So close

 

[BBAmog]

Its almost there! I changed the Sheet1 is called Ark1 in norwegian. I want to start by copying A1 to A4, then A2 to 54. So close

 

[BarryL]

Sub test()
Dim rng As Range, i As Long
i = 4
For Each rng In Sheets("Ark").Range("A1:A" & Sheets("Ark1").Range("A" & Rows.Count).End(xlUp).Row)
rng.Copy Sheets("Sheet2").Range("A" & i)
i = I +50
Next
End Sub

 

[BBAmog]

YOU ARE A GOD! THANK YOU HUMAN! Its working!