VBA Select Case - Expression too complex?

Big Lar

Well-known Member
Joined
May 19, 2002
Messages
551
I get "Expression too complex" when attempting this:
Suggestions/remedy greatly appreciated.

Code:
Select Case Val(ws.Cells(iRow, 18).Value)
            Case Is <= Val(Sheets("Settings").[A90]): OptionButton1 = True
            Case Is > Val(Sheets("Settings").[A93]): OtionButton4 = True 
            Case Is >= Val(Sheets("Settings").[A92]): OptionButton3 = True 
            Case Is >= Val(Sheets("Settings").[A91]): OptionButton2 = True 
 
End Select
 
Last edited:

shg

MrExcel MVP
Joined
May 7, 2008
Messages
21,678
Code:
  Select Case True
    Case Val(ws.Cells(iRow, 18).Value) <= Val(Sheets("Settings").[A90]): OptionButton1 = True
    Case ...
 

PCL

Well-known Member
Joined
Jul 15, 2008
Messages
1,317
Try

Code:
    T1 = Sheets("Settings").[A90].Value
    Select Case Val(Ws.Cells(iRow, 18).Value)
    
                Case Is <= Val(T1): Ws.OptionButton1 = True
 

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
5,154
Office Version
2013
Platform
Windows
untested but an alternative way maybe

Code:
Dim wsSettings As Worksheet


    Set wsSettings = Sheets("Settings")


    With ws.Cells(IRow, 18)
            OptionButton1.Value = CBool(Val(.Value) <= Val(wsSettings.[A93]))
            OptionButton2.Value = CBool(Val(.Value) >= Val(wsSettings.[A91]))
            OptionButton3.Value = CBool(Val(.Value) >= Val(wsSettings.[A92]))
            OptionButton4.Value = CBool(Val(.Value) > Val(wsSettings.[A93]))
    End With
Dave
 

Big Lar

Well-known Member
Joined
May 19, 2002
Messages
551
Thank for the tips, y'all.
Looks like I've got several solutions.
 

Forum statistics

Threads
1,078,367
Messages
5,339,783
Members
399,323
Latest member
letitiaysk

Some videos you may like

This Week's Hot Topics

Top