ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   long IF statement with lots of OR's (https://www.excelbanter.com/excel-programming/272219-long-if-statement-lots-ors.html)

René

long IF statement with lots of OR's
 
Hi

Is there a smarter way to write this kind of code ?

If InputParameter1 = "A" And (InputParameter2 = "X" Or InputParameter2 = "Y" Or
InputParameter2 = "Z" and so on) Then
[...]

My intuition would go for something like this:
If InputParameter1 = "A" And InputParameter2 In ("X", "Y", "Z", and so on)

but that doesn't seem to be correct.

Any ideas ?


René





Tom Ogilvy

long IF statement with lots of OR's
 
Can you be sure InputParameter2 will be one character. If so then

if inputparameter1 = "A" and Instr("XYZ",Inputparameter2) then


if it is more complex than that

Dim res as Variant
res = Application.Match(InputParameter2,Array("XXX","YYY ","ZZZ"),0)
if inputparameter1 = "A" and not iserror(res) then

Regards,
Tom Ogilvy


"René" wrote in message
...
Hi

Is there a smarter way to write this kind of code ?

If InputParameter1 = "A" And (InputParameter2 = "X" Or InputParameter2

= "Y" Or
InputParameter2 = "Z" and so on) Then
[...]

My intuition would go for something like this:
If InputParameter1 = "A" And InputParameter2 In ("X", "Y", "Z", and so

on)

but that doesn't seem to be correct.

Any ideas ?


René







Mark Bigelow

long IF statement with lots of OR's
 
You could put your parameters in a certain cell and reference that, as
you suggested. For instance:

=IF(AND(A1="xyz", ISERROR(FIND(<the reference to your input parameter,
<the reference to your list of acceptable values))=FALSE)=TRUE, 1, 0)

Please let me know if that doesn't work.

Mark

---
Mark Bigelow
mjbigelow at hotmail dot com
http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


All times are GMT +1. The time now is 07:52 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com