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:

Some videos you may like

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

shg

MrExcel MVP
Joined
May 7, 2008
Messages
21,736
Office Version
2010
Platform
Windows
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,348
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,484
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,089,658
Messages
5,409,571
Members
403,271
Latest member
Rajeev Muraleedharan

This Week's Hot Topics

Top