randomize

[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

 

[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.

 

[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

(e-mail address removed)

regards
Peter

 

[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.

 

[dallas]

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

Regards
Dallas
Swede

 

[keepitcool]

I got i to work with Tom Ogilvy code!

and that surprises you?

keepITcool

 

[Michael Hopwood]

I got i to work with Tom Ogilvy code!

and that surprises you?

He must be new to Excel newsgroups. <g>

 

[dallas]

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

 

[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

 

[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.

 

[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
on your face.

Welcome to the newsgroups!

 

[dallas]

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

dallas

: