Multiple IF 's

H

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
 
F

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
 
M

Mark Scureman

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


Hans said:
Hi,
of a cell.
Click to expand...
-- snip --
 
F

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
 
Top