VBA macro combining Solver and IF

Hello!

I was trying to combine the use of the Solver function depending on the value saved in the cell with named "Corners_Bearing". I want the code to apply one solver if "Corners_Bearing"=2, another solver if "Corners_Bearing"=3 and nothing otherwise.

I have tried the code without the if condition for every Solver and everything works. However when I put it all together it does not make any change although VBA is not giving me any error.

Find the code below.

Sub Corners_2_and_3bis()
If Corners_Bearing = 3 Then
SolverReset
SolverAdd CellRef:="Solver_cellRefC3", Relation:=2, FormulaText:="0"
SolverOk SetCell:="Solver_setCellC3", MaxMinVal:=1, ValueOf:="0", ByChange:="Solver_byChangeC3"
SolverSolve True
ElseIf Corners_Bearing = 2 Then
SolverReset
SolverAdd CellRef:="Solver_cellRefC2", Relation:=2, FormulaText:="0"
SolverOk SetCell:="Solver_setCellC2", MaxMinVal:=1, ValueOf:="0", ByChange:="Solver_byChangeC2"
SolverSolve True
End If
End Sub


Any light on that?

Thanks,

Victor

Hello folks!

I found it myself, I just missed the brackets [] in the variable for the if condition.

The code looks like the following:

Please Login or Register  to view this content.

Moreover I wanted to trigger this Sub when changing the values of some cells grouped under the name of "Active_Macro". Therefore I added also this Private Sub in the sheet where the cells to be modified (Active_Macro range of cells) are located.

Please Login or Register  to view this content.

Let me know if you come across to a similar problem and you have trouble to make it run, I may be able to help you.

Kind regards,

Victor