VBA Select Case-

[millhouse123]

Can you set set different values to 2 different variables using the select case statment? An example of what I was trying is below. It runs but it seems that the Max value is not picked up.




Range1 = ActiveCell.Offset(0, 4).Value
Range2 = Worksheets("Results").Range("V1").Value
Range3 = Range1 & Range2

Select Case Range3
Case "StableCash Equivalents"
Min = 0 And Max = 1
Case "IncomeCash Equivalents"
Min = 0 And Max = 0.2
Case "Income with GrowthCash Equivalents"
Min = 0 And Max = 0.2
Case "BalancedCash Equivalents"
Min = 0 And Max = 0.2
Case "Growth with IncomeCash Equivalents"
Min = 0 And Max = 0.2
Case "GrowthCash Equivalents"
Min = 0 And Max = 0.2
Case "OtherCash Equivalents"
Min = 0 And Max = 0.2

End Select

 

[BJungheim]

[Edit]didn't read everything...

You should be able to just put them on seperate lines, or if you MUST have them on one line, use a :.

i.e.

Min=0
Max=1

-or-

Min=0:Max=1

 

[millhouse123]

Yes, Min and Max are both Variables.

I get a line--- Error if I put the ()

Thanks for the tip.

 

[Norie]

Lose the And.

Either put the 2 assignments on different lines, or seperate with a semi colon.

Min = 0
Max = 0.2

Min = 0:Max = 0.2

By the way you can use multiple values for the case.

Select Case Range3
Case "StableCash Equivalents"

    Min = 0: Max = 1
    
Case "IncomeCash Equivalents", "Income with GrowthCash Equivalents", _
     "BalancedCash Equivalents", "Growth with IncomeCash Equivalents", _
     "GrowthCash Equivalents", "OtherCash Equivalents"
     
    Min = 0: Max = 0.2
    
End Select

 

[millhouse123]

That was easy... Thanks for the help guys..