Rearranging numbers
 

Here is some demo code, it will run as is:


Sub ashw()
' gsnu
For i = 1 To 100
Cells(i, "A") = "=rand()"
Cells(i, "B") = i
Next

n = Application.InputBox("enter the number of additional columns (<254) ",
Type:=1)

For i = 1 To n
Columns("A:B").Sort Key1:=Range("A1")
For j = 1 To 100
Cells(j, i + 2) = Cells(j, "B")
Next
Next
End Sub

1. put the real data in column B
2. comment out Cells(i, "B") = i
3. change 100 to the number of items
--
Gary's Student


"ashw1984" wrote:

hi there could anybody help
Using visual basic i need to rearrange a column of numbers in a random order
and paste them into the next column. then repeated 'x' amount of time's.
along the spread sheet using an inputbox to ask for 'x'
thanks guys