if then or statement in a macro

[JasonK]

TIA


I'm familiar with writing an IF THEN OR or AND statement in a formula,
but i don't know how to write an OR statement in a macro.

I've created a spreadsheet where the user can use one of two different
text boxes to input data. Box A can be compared with a variable (some
of you have helped me with that already).

I need the macro to determine if data in either box is matches either
of two variables, then an even takes place.

so, a mathamatical problem is given. users have the choice of
answering the problem in either of two ways. i need an a statement
that is something like:

if a is true or b is true then .......
but, i don't know how to do it with a macro.

If CInt(checks.Text) = x1 Then ........... (this works great)

i need something like If CInt(checks.Text) = x1 Or CInt(cash.Text) =
x2 then .......... but i don't know how write it and can't find it in
my help books. my help book mentions OR statements but has no examples
or real data.

thanks again everyone for your help.
jasonK.

 

[Guest]

Try:

If application.or(CInt(checks.Text) = x1 ,CInt(checks.Text) = x2) then

HTH

 

[Zurn]

Did you try the code you suggested? It should work...

If CInt(checks.Text) = x1 Or CInt(cash.Text) = x2 then


code...


end if

 

[JasonK]

toppers,
the comma didn't work.
any other ideas?
thanks,
jasonk

 

[JasonK]

the actual code is:


If CInt(checks.Text) = x1 Or CInt(cash.Text) = x2 Then

this doesn't work.
i reviewed my variable to make sure it was proper, and it is.
i can't figure this out. i'm sure there is a way to write an IF,
THEN, OR statement in a macro, but i can't figure it out.
please offer more suggestions if you can.
thanks again,
jasonk

 

[Guest]

Works OK for me! I don't undrstand the "comma didn't work"

 

[Guest]

I tried your last posted code and it worked for me (with textboxes named
"Checks" and "Cash"). Error occurs if either are blank.


Sub a()
If Application.Or(CInt(Checks.Text) = 1, CInt(Cash.Text) = 2) Then
MsgBox "OR"
End If

This worked too ....

x1 = 1
x2 = 2
If CInt(Checks.Text) = x1 Or CInt(Cash.Text) = x2 Then
MsgBox "OR"
End If

End Sub