randomize
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 |
randomize
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... |
randomize
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/ . |
randomize
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/ |
randomize
Thanks a lot.
I got i to work with Tom Ogilvy code! Regards Dallas Swede -- Message posted from http://www.ExcelForum.com |
randomize
dallas wrote:
I got i to work with Tom Ogilvy code! and that surprises you? keepITcool |
randomize
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 |
randomize
|
randomize
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/ |
randomize
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! |
randomize
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/ |
randomize
Thank yoy.
I will take part in the newsgroups with pleasure dallas : -- Message posted from http://www.ExcelForum.com |
All times are GMT +1. The time now is 06:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com