Copy column loop

[CZ191279]

Dear all,
May I ask your help for a macro which allowed me to copy a range (column) 16350 times
On D5 to D369 I have a formula which do a random calculation.
On F4 to XEA4 I have a number from 1 to 16,350
I need a macro which copy the range D5 to D369 on range F5 to F369 (F4=1);G5 to G369 (F5=2) and so on till XEA5 which is the 16,350 columns...
I need the macro ended when it reach the number 16,350 or XEA4
thank you very much for your help
I hope I was clear as a beginner in VBA
thank you
CZ

 

[offthelip]

try this:

For i = 1 To 16350
inarr = Range("D5:D369")
Range(Cells(5, 5 + i), Cells(369, 5 + i)) = inarr
Next i

 

[DanteAmor]

How about:

Sub copycolumn()
    Range("D5:D369").Copy Range("F5:XEA5")
End Sub

 

[footoo]

[D5:D369].Copy [F5:XEA369]

 

[CZ191279]

Thank you very much for the answer but it is not so easy as there is a randow formula on column D i need to copy this column 16350 as i need to have 16350 different result (everytime I copy paste one column the random variable is updated) So I need everytime to copy column D and paste it on F recopy D copy on G .... thank you

 

[DanteAmor]

Try:

Sub copycolumn2()
    For i = Columns("F").Column To Columns("XEA").Column
        Range("D5:D369").Copy Cells(5, i)
    Next
End Sub

 

[offthelip]

Have you tried my solution post #2 , I anticipated that you wanted a recalculation in between each copy and my code will do that. I tested it with RAND() functions in column D and each column copied was different
You can force a recalculation by adding this code if you find it necessary:

Sub test()

For i = 1 To 16350
inarr = Range("D5:D369")
Range(Cells(5, 5 + i), Cells(369, 5 + i)) = inarr
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
Next i
End Sub

 

[CZ191279]

Thank you all for your time after trying the prog of offthelip my file works perfectly thank you again

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.