VBA Select Case - Expression too complex?

Big Lar

Well-known Member
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
Code:
  Select Case True
    Case Val(ws.Cells(iRow, 18).Value) <= Val(Sheets("Settings").[A90]): OptionButton1 = True
    Case ...
 

PCL

Well-known Member
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
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
 

Some videos you may like

This Week's Hot Topics

Top