[RRR2006]

Hi!


All i wana do is create a random block of numbers in a designated range.

Ive done this but it fill the WHOLE range with one random number. So I want to fill each cell in the range with a different random number....

Any ideas?!




Sub RandomNumbers()

'Makes a list of Random Numbers
'Shortcut is CTRL-SHFT-R

Dim I As Integer
Dim myRange As Range
For I = 0 To 25
Set myRange = Range("C3:G7")
myRange.Value = Int(Rnd * 100) + 1
myRange.Offset(1, 0).Range("A1").Select
Next I

End Sub



Many Thanks!

[Advertisements]

Nobody tried this yet?
Give this a whirl...

Range("C3:G7").Formula = "=Int(Rand() * 100) + 1"

Since each cell will pick it's own random number between 1 and 100, you may get duplicates.
Note, you'll probably want to precede this with "Randomize" to keep the same numbers from showing all the time

Edited by nollijible, 27 March 2007 - 08:01 PM.

[nollijible]

Nobody tried this yet?
Give this a whirl...

Range("C3:G7").Formula = "=Int(Rand() * 100) + 1"

Since each cell will pick it's own random number between 1 and 100, you may get duplicates.
Note, you'll probably want to precede this with "Randomize" to keep the same numbers from showing all the time

Edited by nollijible, 27 March 2007 - 08:01 PM.

[diggeryo]

I came across this Excel add-in a couple of weeks ago: http://www.ablebits....ddins/index.php

It does what you want and more. It doesn't say it specifically works with Excel 2007, but it seems to do so without any problems.