Select Case condition - And - Or

[Barboza Babcock]

I've looked at a bunch of code for the Select Case statement. Probably not able to do this.

Is there a way to evaluate whether to go into a case base on a criteria other than the case?

Dim strYes as string, strNo as string

strYes = "Yes"
strNo= "Do not go into this case" 

Select case strYes

   case strYes is = "Yes" AND strNo = "Yes"
       'Only get to here if the case selection criteria(strYes) and the value of the variable (strNo) are both set to yes.
       'In this example should not get here.

End Select

strYes="Don't go in"
strNo = "Yes"
  
Select case strYes
  Case strYes is = "Yes" or strNo ="Yes"
      'Should get in here if one or the other value is true. Even if the case selection value (strYes)
      'Probably not possible??
   End Select

I'm guessing that the overriding factor is whether strYes ="Yes", and you can't do what I want.
Before I edited the code to a bunch of if then elseif statements I thought I would put this out there.


As always, thanks for taking a look!

 

[mumps]

Would this work for you?

Sub test()
    Dim strYes As String, strNo As String
    strYes = "Yes"
    strNo = "Do not go into this case"
    If strYes = "Yes" And strNo = "Yes" Then
        '
    ElseIf strYes = "Yes" Or strNo = "Yes" Then
        'your code here
    End If
End Sub

 

[Eric W]

You might be looking for something like this:

Sub test1()
    
    strYes = "Yes"
    strNo = "Do not go into this case"
    
    Select Case True
        Case (strYes = "Yes" And strNo = "Yes")
            a = 1
        Case (strYes = "Yes" Or strNo = "Yes")
            a = 2
        Case Else
            a = 3
    End Select
    
End Sub

 

[knigget40]

Eric W method is one good way. Another approach is to create 2 other variables to hold you, one each to hold your AND and OR logic results.

Public Sub MT03()
    Dim strYes As String, strNo As String
    Dim boolAndResult As Boolean
    Dim boolORResult As Boolean
    
    strYes = "Yes"
    strNo = "Do not go into this case"
    boolAndResult = strYes = "Yes" And strNo = "Yes"
    
    Select Case boolAndResult
        Case True
            MsgBox "Only get to here if the case selection criteria(strYes) and the value of the variable (strNo) " & _
            "are both set to yes. In this example should not get here."
        Case Else
            MsgBox "Passed. In this example should get here."
    End Select
    
    
End Sub

 

[Barboza Babcock]

Because of what I am trying to do, I will switch the code to If then Else statements. Lot's of conditions and more straight forward. In this case (pun intended) I should not have used Select Case. It was only after the fact that I realized there were conditions besides the case select.

Instead of forcing a square peg into a round hole I'll use the more appropriate if then structure.

I'll copy both K and Eric W's method into my "How to do" notes. I hadn't thought of evaluating the 2 conditions into one True or False variable.

THANKS TO ALL!!!!!!!!!!