Select Case Like

[tiredofit]

Why does this work:

If Sheet1.Cells(1,1).Value Like "a*" Then MsgBox "Starts with a"

but this fails?

Select Case Sheet1.Cells(1,1).Value

    Case Like "a*"

        Msgbox "Starts with a"

   Case Else

        Msgbox "Doesn't"

End Select

EDIT SORTED:

Select Case Sheet1.Cells(1,1).Value Like "a*"

    Case True

        Msgbox "Starts with a"

   Case Else

        Msgbox "Doesn't"

End Select

Thanks

 

[RoryA]

Why would you use that convoluted construction, when a simple If...Then is so much easier, and probably more efficient?

 

[wideboydixon]

You can also reverse the logic:

Select Case True
    Case Sheet1.Cells(1, 1).Value Like "a*"
        MsgBox "Starts with a"
    Case Sheet1.Cells(1, 1).Value Like "b*"
        MsgBox "Starts with b"
    Case Else
        MsgBox "Doesn't start with a or b"
End Select

Which is sometimes useful.

WBD

 

[tiredofit]

Why would you use that convoluted construction, when a simple If...Then is so much easier, and probably more efficient?

Good question. No idea, I didn't write it!

You can also reverse the logic:

 Select Case True
     Case Sheet1.Cells(1, 1).Value Like "a*"
         MsgBox "Starts with a"
     Case Sheet1.Cells(1, 1).Value Like "b*"
         MsgBox "Starts with b"
     Case Else
         MsgBox "Doesn't start with a or b"
 End Select

Which is sometimes useful.

WBD

Thanks