Multiple IF 's

[Hans Weustink]

Hi,

I would like a macro to be selected based upon the value
of a cell.

so if H25 = 100 then run macro ID100
and if H25 = 120 then run macro ID120
etc.

And incorperating an else: MSG "Sorry (not in
list/error)" if the cell contains other argument.

TIA,
Hans

 

[Frank Kabel]

Hi Hans
try something like the following

sub foo()

select case range("H25").value
case 100
ID100
case 120
ID120
case else
msgbox "Sorry, not in list"
end select
end sub

 

[Hans Weustink]

Frank,

Vielen Dank!
Das geht ja super.

Mit Fr. Gr.
Hans

 

[Guest]

Hi Frank,

Would this work the same way for a text value? If H25 contained a list of product names and you wanted run different code based on which of those names was chosen, would you have to do anything differently since it's a non-numeric value?

TIA,
Mark

----- Frank Kabel wrote: -----

Hi Hans
try something like the following

sub foo()

select case range("H25").value
case 100
ID100
case 120
ID120
case else
msgbox "Sorry, not in list"
end select
end sub


--
Regards
Frank Kabel
Frankfurt, Germany

Hi,
of a cell.

-- snip --

 

[Frank Kabel]

Hi
try something like
select case range("H25").value
case 100
ID100
case 120
ID120
case "textvalue1"
IDText1
case "textvalue2"
IDText2
case else
msgbox "Sorry, not in list"
end select
end sub