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

Hi
sure is it o.k. :-)
Michael and 'keepitcool' were just joking as Tom's suggestion nearly
always work perfectly (and if you stay for some weeks in this NG you
will surely recognize this)

So just stay, read, post and enjoy


--
Regards
Frank Kabel
Frankfurt, Germany


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


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

On Sat, 29 May 2004 16:58:04 +0200, Frank Kabel wrote:

Hi
sure is it o.k. :-)
Michael and 'keepitcool' were just joking as Tom's suggestion nearly
always work perfectly (and if you stay for some weeks in this NG you
will surely recognize this)

"Nearly"? I've *never* seen one of his fixes *not* work.
--
auric underscore underscore at hotmail dot com
*****
Always forgive your enemies. They hate that!

Hello dallas,

We were just having a light-hearted moment there, if you see <g in a post
it means "grin" as when you are having a bit of a joke you would have a grin
on your face.

Welcome to the newsgroups!

--
Michael Hopwood


"dallas " wrote in message
...
Yes I am new to Excel newsgroups...
is it ok?


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

Thank yoy.
I will take part in the newsgroups with pleasure

dallas

:

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