SELECT case (multiple condition) in VBA

[JohnSeito]

Hi all,

I am wondering, does select case in VBA, can it do case this or that like an if statement.

This way it has flexibility, because without it, it doesn't have much flexibility as an if statement.

I tried to do select this or that but it doesn't work.

example code:

this is the normal case statement:

pick = cell(i, "F")

SELECT CASE pick
    CASE  a
         do this
    CASE b
         do this
    CASE c 
         do this
    END CASE

case statement with multiple condition: this one does not work.

pick = cell(i, "F")

SELECT CASE pick
    CASE  a or 1
         do this
    CASE b or 2
         do this
    CASE c or 3
         do this
    END CASE

 

[Fr3nchy]

Instead of "or" use a comma to separate multiple values:

pick = cell(i, "F")

SELECT CASE pick
    CASE  a, 1
         do this
    CASE b, 2
         do this
    CASE c, 3
         do this
    END CASE

 

[sdday81]

With case select statements non related values are separated by commas (,) or you can also use To with a Range of values or the Is keyword with an expression.

For i = 1 To 6
    
        Result = Worksheets("Sheet1").Cells(i, 6).Value
        Select Case Result
            Case "a", 1
                MsgBox Result & " was case a To 1"
            Case "b", 2
                MsgBox Result & " was case b To 2"
            Case 3 To 6
                MsgBox Result & " was case c To 3"
            Case Is > 6
                MsgBox Result & " is greater than 6"
            Case Else
                MsgBox Result & " was none of the cases"
        End Select
                
    Next i

On a side note: Is it just me or are these forums really buggy? It's almost impossible to type and my cursor is constantly flashing

 

[JohnSeito]

Thanks for the info to both of you. I'll let you know if I have any other questions. The forums is fine on my side. :-/