Sub randomize()
Range("H2") = Int((Range("B4") - Range("B3") + 1) * Rnd + Range("B3")

End Sub

I want to randomize from more than "B4 - B3".

"B4 - B3" and "C4 - C3" and "D4 - D3" and "E4 - E3"

and get the rnd result in "H2

--
Message posted from http://www.ExcelForum.com

On Fri, 28 May 2004 15:07:22 -0500, dallas
wrote:

Sub randomize()
Range("H2") = Int((Range("B4") - Range("B3") + 1) * Rnd + Range("B3"))

End Sub

I want to randomize from more than "B4 - B3".

"B4 - B3" and "C4 - C3" and "D4 - D3" and "E4 - E3"

and get the rnd result in "H2"

Two things:

1) Randomize is a keyword - use something else for the name of your sub.

2) What is your question? You seem to have a good idea of what to do.
--
auric underscore underscore at hotmail dot com
*****
Uh, oh... There's that sense of impending doom again...

Hi

I Think this might be what you want
Sub Test()
Dim tot As Double, c As Variant
i = 3
randomize
For j = 2 To 7
c = Int(Cells(i + 1, j) - Cells(i, j) + 1 * Rnd + Cells
(i, j))
tot = tot + c
Next
Range("H2").Value = tot
End Sub



regards
Peter



-----Original Message-----
Sub randomize()
Range("H2") = Int((Range("B4") - Range("B3") + 1) * Rnd +
Range("B3"))

End Sub

I want to randomize from more than "B4 - B3".

"B4 - B3" and "C4 - C3" and "D4 - D3" and "E4 - E3"

and get the rnd result in "H2"


---
Message posted from http://www.ExcelForum.com/

.

Sub myrandomize()
Dim rng as Range, rng1 as Range
Dim idex as Long

Set rng = Range("B3:E3")
Set rng1 = Range("B4:E4")
idex = Int(Rnd() * 4 + 1)
Range("H2") = Int((rng1(idex) - rng(idex) + 1) _
* Rnd + rng(idex))

End Sub

Might do what you want.

--
Regards,
Tom Ogilvy


"dallas " wrote in message
...
Sub randomize()
Range("H2") = Int((Range("B4") - Range("B3") + 1) * Rnd + Range("B3"))

End Sub

I want to randomize from more than "B4 - B3".

"B4 - B3" and "C4 - C3" and "D4 - D3" and "E4 - E3"

and get the rnd result in "H2"


---
Message posted from http://www.ExcelForum.com/

Thanks a lot.
I got i to work with Tom Ogilvy code!

Regards
Dallas
Swede

--
Message posted from http://www.ExcelForum.com

dallas wrote:

I got i to work with Tom Ogilvy code!


and that surprises you?

keepITcool

I got i to work with Tom Ogilvy code!


and that surprises you?

He must be new to Excel newsgroups. <g

--
Michael Hopwood


"keepitcool" wrote in message
...
dallas wrote:

I got i to work with Tom Ogilvy code!


and that surprises you?

keepITcool

Yes I am new to Excel newsgroups...
is it ok

--
Message posted from http://www.ExcelForum.com