# randomize

D

#### dallas

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

A

#### Auric__

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.

P

#### Peter Atherton

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

T

#### Tom Ogilvy

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.

D

#### dallas

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

Regards
Dallas
Swede

K

#### keepitcool

dallas said:
I got i to work with Tom Ogilvy code!

and that surprises you?

keepITcool

M

#### Michael Hopwood

I got i to work with Tom Ogilvy code!
and that surprises you?

He must be new to Excel newsgroups. <g>

D

#### dallas

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

F

#### Frank Kabel

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

A

#### Auric__

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.

M

#### Michael Hopwood

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

Welcome to the newsgroups!

D

#### dallas

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

dallas

: