when IF equals multiple values??

  • Thread starter Thread starter foamfollower
  • Start date Start date
F

foamfollower

Hello,
This should be easy, although for some reason........
anyway, i'm trying to say this:
IF 1or3or5or8or10or12or13or15or17or20 then 1, if not then 2.

i understand the basic true or false formula, =if(a1=1,1,2), but how
do i string the commands to assign a '1' to any of the ten above
mentioned numbers. of course, i'd like the other
numbers:2,4,6,7,9,11,14,16,18,19 to be '2'.

Any help will be greatly appreciated.

Have a Great Day!

SF
 
Sub SF()
Dim i As Long
Select Case Sheets("Sheet1").Range("A1")
Case Is = 1
i = 1
Case Is > 1
i = 2
End Select

'Hope It Works!!!

End Sub
 
foamfollower said:
anyway, i'm trying to say this:
IF 1or3or5or8or10or12or13or15or17or20 then 1, if not then 2.
i understand the basic true or false formula, =if(a1=1,1,2), but how
do i string the commands to assign a '1' to any of the ten above
Click to expand...

formula (there may be better ones):

=IF( ISNA(MATCH(A1,{1,3,5,8,10,12,13,15,17,20},0)),2,1)


programmatically:

If InStr("01?03?05?08?10?12?13?15?17?20", Format(Range("A1").Text, "00"))
0 Then
Click to expand...
x = 1
Else
x = 2
End If
 
Jose Rojas said:
Sub SF()
Dim i As Long
Select Case Sheets("Sheet1").Range("A1")
Case Is = 1
i = 1
Case Is > 1
i = 2
End Select

'Hope It Works!!!

End Sub
Click to expand...

Did you mean something like this?

Sub SF()
Dim i As Long
Select Case Sheets("Sheet1").Range("A1")
Case Is = 1, 3, 5, 8, 10, 12, 13, 15, 17, 20
i = 1
Case Else
i = 2
End Select

End Sub
 
Back
Top