problem with case statement 2

[Luis939]

i using a case statement, however one of the "cases" is giving me trouble...im basically assigning a variable a string value, however one of the "cases" i wont necessarily know exactly, i just konw that it will end in "...DA Calls"

i tried using the case statement with wildcharacters, with MOU as my variable like this

select case MOU
case "*DA Calls"
...
end select

however its not reading it the way i want to, its looking for an exact, case-sensitive string,...is there around this, should i use if statements instead...thanks!!!

 

[RivetHed]

I think it should be something like

select case MOU

Case is like "*" & "DA Calls"

End select

if you don't want this to be case sensitive you need to have set option compare text in your declarations

 

[JohnAcc]

You could Store the string variable using:

StNewString = Right(MOU,8)

Which will store DA Calls in the variable StNewString

Rgds, John

 

[xlbo]

No real difference between IFs and Select Case apart from Select case is a bit faster and I prefer the way it looks
However, the downside is that you can't use "Like" so you've got 2 options

1:
If Range("A1&quot.Text Like "*DA Calls" Then

2:
Select case right(MOU,8)
case "DA Calls"
etc etc

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[Luis939]

yea thanks, i just read that u cant use "is" or "like" so actually what i did was as my last "case" i did

case else
if MOU like "*DA calls" then......

however, i would like it to NOT be case-sensitive, so how would i achieve what RivetHed was saying, thanks!!

 

[RivetHed]

sorry didn't realise you couldn't use like in select case, learn something new every day.
anyway just pop the line: "option compare text" into the declarations sections at the top of the module and that should remove case sensitivity

 

[Luis939]

well i just learned something else today too, thanks!!!

 

[xlbo]

if UCase(MOU) like "*DA CALLS" then

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[Luis939]

true, true, i was thinking also about making it all either upper or lowercase, good suggestion xlbo!

 

[Tranman]

4335,
Here's another way...

strXXX = "abcdef"
Select Case strXXX
Case "XXXXXX"
Case "YYYYYY"
Case "ZZZZZZ"
Case Else
Select Case UCase(strXXX) Like UCase("*CdeF&quot
Case True
strXXX = "BBB"
Case Else
End Select
End Select

Tranman

 

[Luis939]

That's also pretty good, thanks!!