ExcelBanter - Subject: Formula for

It is, and I use it all the time to generate dummy data for testing models
out. Throw this into your personal.xls, assign it to a keyboard shorcut, eg
CTRL+SHIFT+r and then select a region and hit the shortcut. It will prompt
you for an upper bound, a lower bound, and whether you want decimals or
round numbers:-

-------------------------------------------------------
Sub RandomNumber()
ubnd = InputBox("Enter Upper Bound")
lbnd = InputBox("Enter Lower Bound")
nudp = InputBox("Just hit OK for Integers or type D for decimals")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On Error GoTo Oops:
c = Selection.Cells.Count
x = 1

If UCase(nudp) = "D" Then
With Selection
.ClearContents
.NumberFormat = "#,##0.00"
End With
For Each cell In Selection
cell.Value = Rnd() * (ubnd - lbnd) + lbnd
Application.StatusBar = Round(x / c, 2) * 100 & "% Done"
x = x + 1
Next cell
Else
With Selection
.ClearContents
.NumberFormat = "#,##0"
End With
For Each cell In Selection
cell.Value = Int(Rnd() * (ubnd - lbnd + 1) + lbnd)
Application.StatusBar = Round(x / c, 2) * 100 & "% Done"
x = x + 1
Next cell
End If

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.StatusBar = False
Oops: Exit Sub

End Sub
-------------------------------------------------------

Regards
Ken.............................

"Adam Kroger @hotmail.com" <adam_kroger<nospam wrote in message
...
If you think your walls look bad, take a gander at mine. I am trying to
create stable random number result....

Seems like it should be a simple thing to get a cell to have a number that
is randomly determined, and then not change again.

----- Original Message -----
From: "Roger Govier"
Newsgroups: microsoft.public.excel.newusers
To: "Andy JL"
Sent: Sunday, November 20, 2005 11:38 AM
Subject: Formula for

Hi Andy

Try=IF(A1="D","DAY",IF(A1="M",8,IF(OR(A1="C",A1="V "),2,"")))
I know a good plasterer!!!<bg

Regards

Roger Govier

Andy JL wrote:
Adam,

Been trying most the afternoon without success , how do I Put -
IF(A1="D","DAY", into =IF(A1="M",8,IF(OR(A1="C",A1="V"),2,""))

I'm getting a very sore head and the wall is not looking so good
either!!!!!!!

Thank You

Andy JL

"Adam Kroger @hotmail.com" wrote:

Put " marks around DAY

If (A1="D","DAY", <whatever)

Adam

"Andy JL" wrote in message
...

Bernard,
To your formula below I want to add if A1=D then it = the word "DAY", I
have
been trying allways but can not get it to enter the word"DAY" even if i
cut
the formula down to If (A1="D",DAY ....... I can do it with a number
instead
of the "DAY" but I can not put it in to you formula. I think I have
expalinded myself!!!

Thanbk you

Andy JL

"bernard liengme" wrote:

Use =IF(A1="M",8,IF(OR(A1="C",A1="V"),2,""))
If A1 is not M,C or V you get a blank
Use =IF(A1="M",8,IF(OR(A1="C",A1="V"),2,0))
If A1 is not M,C or V you get a zero
Not case sensitive
best wishes
Bernard

"Andy JL" wrote in message
...

Hi.

I want a formula to enter into a cell - if A1 is "M" then I want C1
to be
£8.00 or
if A1 is "C or V" then I want C1 to be £2.00. Is there a formula that
I
can
enter in Cell C1 to make display either £2.00 or £8.00 depending on
wat is
in
A1 -

Thanks for any help

Andy JL