SolverSolve UserFinish:=True--Solver Results Dialog Box Still Appears

[5608]

I have a looping macro using solver and I cannot seem to get the solver results dialog box to stop appearing after each calculation. I have the "SolverSolve UserFinish:=True" in my code, below. Can anyone help me with what I am doin wrong?

' Macro4 Macro
' Macro recorded 4/2/2009 by
'
Sheets("DataTable").Select
Range("a2").Select
Selection.Copy
Sheets("Model").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("DataTable").Select
Range("b2").Select
Selection.Copy
Sheets("Model").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
SolverReset
SolverOk SetCell:="$0$1", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$7"
SolverSolve
SolverSolve userFinish:=True
SolverFinish KeepFinal:=1
Range("H7").Select
Selection.Copy
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Do
Sheets("DataTable").Select
ActiveCell.Offset(1, -2).Range("A1").Select
Selection.Copy
Sheets("Model").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("Model").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
SolverReset
SolverOk SetCell:="$o$1", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$7"
SolverSolve
SolverSolve userFinish:=True
SolverFinish KeepFinal:=1
Range("H7").Select
Selection.Copy
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Loop Until ActiveCell = "Stop"
End Sub

Thanks for the help!

 

[MyHero]

I don't know if you ever figured it out, and I hope you did considering it was asked more than three years ago. I ran into the same problem today, and I figured it out:

' Macro4 Macro
' Macro recorded 4/2/2009 by
'
Sheets("DataTable").Select
Range("a2").Select
Selection.Copy
Sheets("Model").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("DataTable").Select
Range("b2").Select
Selection.Copy
Sheets("Model").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
SolverReset
SolverOk SetCell:="$0$1", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$7"
SolverSolve (True)
Range("H7").Select
Selection.Copy
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Do
Sheets("DataTable").Select
ActiveCell.Offset(1, -2).Range("A1").Select
Selection.Copy
Sheets("Model").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("Model").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
SolverReset
SolverOk SetCell:="$o$1", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$7"
SolverSolve (True)
Range("H7").Select
Selection.Copy
Sheets("DataTable").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Loop Until ActiveCell = "Stop"
End Sub



Basically SolverSolve by itself was the problem. Change it to "SolverSolve (True)" and it'll bypass the results dialog box.