Random Copy Paste

  • Thread starter Thread starter TGalin
  • Start date Start date
T

TGalin

I pasted the macro I have below. I want to add to it so that it will
randomly select 20 of the cells from the range E2:E159 to copy and paste
those contents starting in cell B2. Is this possible?

Random Copy Paste()
Range("E2:E159").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
End Sub
 
Try
Sub randomSelect()
Dim MyValue
For i = 2 To 21
MyValue = Int((158 * Rnd) + 2)
'Cells(i, 3) = MyValue
Range("E" & MyValue).Copy Destination:=Range("B" & i)
Next
End Sub
 
To cool! Thank you. It works great!

Sheeloo said:
Try
Sub randomSelect()
Dim MyValue
For i = 2 To 21
MyValue = Int((158 * Rnd) + 2)
'Cells(i, 3) = MyValue
Range("E" & MyValue).Copy Destination:=Range("B" & i)
Next
End Sub
Click to expand...
 
You are most welcome.

I hope you realize that you may get the same value more than once... as the
numbers generated are not guaranteed to be unique.

Do get unique numbers you need to generate the numbers and then rank them
with unqiue ranks... a fairly complicated exercise.
 
Back
Top