I saw back on 7-12-03 that someone asked how to randomize
a range of string values. The answer that was given
referenced a book that I don't have. Could anyone help me
with a rangerandomizer function? I'm at work and can't
get to a library or bookstore right now.

Thanks,

Kevin

J.E posted this in the same thread
Did you try that one

Public Sub RandomizeRange()
Dim temp As Variant
Dim arr As Variant
Dim rng As Range
Dim i As Integer, i1 As Integer
Dim j As Integer, j1 As Integer

Set rng = Range("A1:E5")
arr = rng.Value
For i = UBound(arr, 1) To 1& Step -1&
For j = UBound(arr, 2) To 1& Step -1&
i1 = Int(Rnd() * i) + 1&
j1 = Int(Rnd() * j) + 1&
temp = arr(i, j)
arr(i, j) = arr(i1, j1)
arr(i1, j1) = temp
Next j
Next i
rng.Value = arr
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kevin G" wrote in message ...
I saw back on 7-12-03 that someone asked how to randomize
a range of string values. The answer that was given
referenced a book that I don't have. Could anyone help me
with a rangerandomizer function? I'm at work and can't
get to a library or bookstore right now.

Thanks,

Kevin

Ron,

I didn't see it because I did a search on random and it
only showed the first post and the book reference post.
Thanks for the quick response!!

Kevin
-----Original Message-----
J.E posted this in the same thread
Did you try that one

Public Sub RandomizeRange()
Dim temp As Variant
Dim arr As Variant
Dim rng As Range
Dim i As Integer, i1 As Integer
Dim j As Integer, j1 As Integer

Set rng = Range("A1:E5")
arr = rng.Value
For i = UBound(arr, 1) To 1& Step -1&
For j = UBound(arr, 2) To 1& Step -1&
i1 = Int(Rnd() * i) + 1&
j1 = Int(Rnd() * j) + 1&
temp = arr(i, j)
arr(i, j) = arr(i1, j1)
arr(i1, j1) = temp
Next j
Next i
rng.Value = arr
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kevin G" wrote in message
...
I saw back on 7-12-03 that someone asked how to
randomize
a range of string values. The answer that was given
referenced a book that I don't have. Could anyone help
me
with a rangerandomizer function? I'm at work and can't
get to a library or bookstore right now.

Thanks,

Kevin


.

You probably would have had better luck if you searched this group for the
word shuffle:

http://groups.google.com/groups?as_q...ng&lr= &hl=en

URL should be all one line. Reconstitute it and paste into your browser.

Regards,
Tom Ogilvy


"Kevin G" wrote in message
...
Ron,

I didn't see it because I did a search on random and it
only showed the first post and the book reference post.
Thanks for the quick response!!

Kevin
-----Original Message-----
J.E posted this in the same thread
Did you try that one

Public Sub RandomizeRange()
Dim temp As Variant
Dim arr As Variant
Dim rng As Range
Dim i As Integer, i1 As Integer
Dim j As Integer, j1 As Integer

Set rng = Range("A1:E5")
arr = rng.Value
For i = UBound(arr, 1) To 1& Step -1&
For j = UBound(arr, 2) To 1& Step -1&
i1 = Int(Rnd() * i) + 1&
j1 = Int(Rnd() * j) + 1&
temp = arr(i, j)
arr(i, j) = arr(i1, j1)
arr(i1, j1) = temp
Next j
Next i
rng.Value = arr
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kevin G" wrote in message
...
I saw back on 7-12-03 that someone asked how to
randomize
a range of string values. The answer that was given
referenced a book that I don't have. Could anyone help
me
with a rangerandomizer function? I'm at work and can't
get to a library or bookstore right now.

Thanks,

Kevin


.