I am building a macro to evaluate multiple (only 3 for now) conditions through a range of data. Here is what I have so far:
My question is how do I create a Case to evaluate these criteria individually.
Example: The object being evaluated is "Production", "In-Scope", but is anything other than "Deployed"
VBA Code:
Sub Trial2()
Dim myCell As Range
For Each myCell In Range("Q2:S500")
With myCell.Offset(0, -15)
Select Case myCell.Value
Case Is = "Production", "In-Scope", "Deployed"
.Value = "Qualified"
Case Else
.Value = "Not Qualified"
End Select
End With
Next myCell
End Sub
My question is how do I create a Case to evaluate these criteria individually.
Example: The object being evaluated is "Production", "In-Scope", but is anything other than "Deployed"