Solver Issue

I am having some problem with Solver. Seems to be a refresh issue but not quite sure as to how to fix it.

I need to call Solver three times to satisfy three similar optimization routines.

1) Max 2) Min 3) Best solution

I can confirm that Max (), Min () and Best () will always return different set of values. I have written 3 similar VBA subroutines (individually tested to be working fine) that can be invoked by clicking on different commond buttons.

The solver works well for one set of requirements but doesn’t seem to run when invoked for the second and third set of requirements. For E.g.: If I invoke Min() subroutine first by clicking on the CB_Min command button, it runs the VBA code associated with Min() subroutine and provides solution. However subsequently when I click either command buttons CB_Max or CB_Best, it provides the same solution as it did for Min(). It seems that the solver is not invoked / executed. This can be in any order. When 1st set of requirements is satisfied the 2nd and 3rd doesn’t seem to run inspite of clicking the individual command buttons. If I close and reopen the spreadsheet and first invoke Best () subroutine by clicking on CB_Best, the solver works fine for Best() but not for Max() or Min().

At this time, I would like to add that this problem disappears if I invoke the subroutine SetEqual() by clicking on command button CB_SetEqual before calling the solver another time. So the problem is solved if I click the command buttons in the following sequence

1) CB_Max --> invokes Max()
2) CB_SetEqual --> invoke SetEqual()
3) CB_Min --> invoke Min()
4) CB_SetEqual --> invoke SetEqual()
5) CB_Best --> invoke Best()

This is bit annoying as it requires user to unnecessary click the command button CB_SetEqual between successive calls to Solver.

Please note this question was previously posted on another forum without much luck. I hope someone can help me to meet my 1st Jan 2009 deadline.
Thanks so much any help/guidance will be appreciated. Hopefully I'm not violating any rules!

Please Login or Register  to view this content.

Lets see the sample workbook...

Thanks dave for the help. I reckon I have found a round-about solution. Though not the best, it works. What I did was that I included a CALL to SetEqual() subroutine before invoking different Solver routines and that seems to have solved the problem. Please look at my first post for more VBA code.

For Eg:

Please Login or Register  to view this content.

Thanks,
DD