copy and paste values with offset in columns vba code

[RRM]

Hi, I have a function that generates a random number range based on a condition so I would like to copy the column range of these numbers (say column B1:B10) and paste it to another column in the same worksheet (say F1:10) once the condition is met and continue to copy the same column range (B1:B10) after the next iteration condition is met and paste into the next blank column (G1:G10) until 10 iterations, that is columns F to O are populated with the data range from column B1:B10. Is there a code I can perform this with? Thanks in advance.

 

[Peter_SSs]

Welcome to the MrExcel board!

I'm not entirely sure that I have understood what you want, but try this with a copy of your workbook.
If this is not it, please try to give more detail/examples.

Sub Copy_Range()
  Dim nc As Long
  
  nc = IIf(IsEmpty(Range("F1").Value), 6, Cells(1, Columns.Count).End(xlToLeft).Column + 1)
  Cells(1, nc).Resize(10).Value = Range("B1:B10").Value
End Sub

 

[RRM]

Thanks for the reply.

 

[RRM]

Hi, sorry for not replying sooner. I tried the code but I think I need to add more clarity so it helps to get a specific guidance:

I have the code that looks at the values generated from the random generator and once a condition is met then it stops. For example, it counts the numbers generated (for example 1, 2, 3) in range P1:P3 and once the condition value set in sheet1, A1 is met > 2, then it stops.

I would like to go further by running more iterations. That is once condition is met in sheet 1, A1 then it copy and paste values sheet 1, P1:P3 into sheet2, A1:A3 then goes back to sheet 1 and re-runs the below code. I would like to do this 10 times. Each time condition is met then it copy and paste value into sheet2, in next available column, B1:B3 then C1:C3 until sheet2, J1:J3 is populated with a range then END. Is there a nested DO UNTIL LOOP, IF THEN to use? I have no clue and appreciate guidance. Thanks in advance.

Do
 Sheet1.Range("A1").Formula = "=COUNTIF($P$1:$P$3,0)"
 Loop Until Sheet1.Range("A1").Value > 2
End Sub

 

[RRM]

Hi, I found a reply that worked. Thanks to all.

 

[Peter_SSs]

Hi, I found a reply that worked. Thanks to all.

Cheers. Thanks for letting us know.