random number generator

hi there i don't know if this is the right section, however I was wondering is there some vba or formulae to generate random numbers in a certain range

I would be very greatful if you can help me

Thanks

Owen

=rand() and pull down is the plain answer. May not meet your need's.

More info, perhaps?

HTH
Regards,
Howard

"manclad" <manclad.20vm3m_1135985101.0999@excelforum-nospam.com> wrote in
message news:manclad.20vm3m_1135985101.0999@excelforum-nospam.com...
>
> hi there i don't know if this is the right section, however I was
> wondering is there some vba or formulae to generate random numbers in a
> certain range
>
> I would be very greatful if you can help me
>
> Thanks
>
> Owen
>
>
> --
> manclad
> ------------------------------------------------------------------------
> manclad's Profile:
> http://www.excelforum.com/member.php...o&userid=30016
> View this thread: http://www.excelforum.com/showthread...hreadid=497074
>

I like J.E. McGimpsey's =RandInt().

http://www.mcgimpsey.com/excel/udfs/randint.html

manclad wrote:
>
> hi there i don't know if this is the right section, however I was
> wondering is there some vba or formulae to generate random numbers in a
> certain range
>
> I would be very greatful if you can help me
>
> Thanks
>
> Owen
>
> --
> manclad
> ------------------------------------------------------------------------
> manclad's Profile: http://www.excelforum.com/member.php...o&userid=30016
> View this thread: http://www.excelforum.com/showthread...hreadid=497074

--

Dave Peterson

Try this. Assign a keyboard combo to it, hit the combo and you will be
prompted for an upper bound, a lower bound and then as to whether you want
decimals or integers.

Sub RandomNumber()
ubnd = InputBox("Enter Upper Bound")
lbnd = InputBox("Enter Lower Bound")
nudp = InputBox("Just hit OK for Integers or type D for decimals")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On Error GoTo Oops:
c = Selection.Cells.Count
x = 1

If UCase(nudp) = "D" Then
With Selection
.ClearContents
.NumberFormat = "#,##0.00"
End With
For Each cell In Selection
cell.Value = Rnd() * (ubnd - lbnd) + lbnd
Application.StatusBar = Round(x / c, 2) * 100 & "% Done"
x = x + 1
Next cell
Else
With Selection
.ClearContents
.NumberFormat = "#,##0"
End With
For Each cell In Selection
cell.Value = Int(Rnd() * (ubnd - lbnd + 1) + lbnd)
Application.StatusBar = Round(x / c, 2) * 100 & "% Done"
x = x + 1
Next cell
End If

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.StatusBar = False
Oops: Exit Sub

End Sub

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

------------------------------*------------------------------*----------------
It's easier to beg forgiveness than ask permission :-)
------------------------------*------------------------------*----------------



"manclad" <manclad.20vm3m_1135985101.0999@excelforum-nospam.com> wrote in
message news:manclad.20vm3m_1135985101.0999@excelforum-nospam.com...
>
> hi there i don't know if this is the right section, however I was
> wondering is there some vba or formulae to generate random numbers in a
> certain range
>
> I would be very greatful if you can help me
>
> Thanks
>
> Owen
>
>
> --
> manclad
> ------------------------------------------------------------------------
> manclad's Profile:
> http://www.excelforum.com/member.php...o&userid=30016
> View this thread: http://www.excelforum.com/showthread...hreadid=497074
>

Say, RandBetween(1, 100) ; more details from the Help File. Regards.

"manclad" wrote:
> I was wondering is there some vba or formulae
> to generate random numbers in a certain range

..... With what distribution? So far, every respondent has
***-u-me-d you want a uniform distribution. I wonder if
you might be interested in another distribution, e.g. a
normal distribution.