I use "IF And" statments in excel alot. But in VBA I dont think you
don't use the brackets with "IF AND". How would your write the
following in VBA?



=IF(AND(RAND()<0.5,RAND()0.1,),"Yes",IF(AND(RAND( )0.5,RAND()<0.9,),"Yahoo","No"))

Note you will have to replace the excel rand() function with the VBA
rnd() function.


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

Try something like

Dim R As Double
R = Rnd()
If R < 0.5 And R 0.1 Then
Debug.Print "Yes"
Else
If R 0.5 And R < 0.9 Then
Debug.Print "Yahoo"
Else
Debug.Print "No"
End If
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"ExcelMonkey " wrote
in message ...
I use "IF And" statments in excel alot. But in VBA I dont
think you
don't use the brackets with "IF AND". How would your write the
following in VBA?




=IF(AND(RAND()<0.5,RAND()0.1,),"Yes",IF(AND(RAND( )0.5,RAND()<0.
9,),"Yahoo","No"))

Note you will have to replace the excel rand() function with
the VBA
rnd() function.


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

E-M

myVar = Rnd
If myVar <0.5 And myVar .1 Then
MsgBox "Yes"
ElseIf myVar .5 And Rnd < .9 Then
MsgBox "Yahoo"
Else
MsgBox "No"
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"ExcelMonkey " wrote in message
...
I use "IF And" statments in excel alot. But in VBA I dont think you
don't use the brackets with "IF AND". How would your write the
following in VBA?




=IF(AND(RAND()<0.5,RAND()0.1,),"Yes",IF(AND(RAND( )0.5,RAND()<0.9,),"Yahoo"
,"No"))

Note you will have to replace the excel rand() function with the VBA
rnd() function.


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

You realize that in your worksheet function, you are getting 4 different
random numbers - this fact wasn't duplicated by Chip or Bob.

--
Regards,
Tom Ogilvy

"ExcelMonkey " wrote in message
...
I use "IF And" statments in excel alot. But in VBA I dont think you
don't use the brackets with "IF AND". How would your write the
following in VBA?




=IF(AND(RAND()<0.5,RAND()0.1,),"Yes",IF(AND(RAND( )0.5,RAND()<0.9,),"Yahoo"
,"No"))

Note you will have to replace the excel rand() function with the VBA
rnd() function.


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