Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

You need to add a reference to make VBA recognise the
Solver functions: in the VBA editor select Tools/References,
find "SOLVER" in the list and check it.




Dmitry wrote:
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

Solver is not recognised by the standard Excel object model, add a reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

Thank you, Nigel!
When I record the macro I press the Enter button when Solver Results window
appears to close it before I click the Stop recording macro button, but the
macro does not close the window. How to make the macro close the window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook? I
call the range contiguous because the range sheets tabs are contiguous in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

http://support.microsoft.com/default...b;en-us;843304
How to create Visual Basic macros by using Excel Solver in Excel 97

should help you do what you want.

--
Regards,
Tom Ogilvy


"Dmitry" wrote:

Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook? I
call the range contiguous because the range sheets tabs are contiguous in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" Ó��Â�ÉÌ/Ó��Â�ÉÌ� × Î�×�ÓÔÑÈ ÓÌÅÄÕÀ�ÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

Thanks Tom Ogilvy!
"Tom Ogilvy" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ ×
ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ:
...
http://support.microsoft.com/default...b;en-us;843304
How to create Visual Basic macros by using Excel Solver in Excel 97

should help you do what you want.

--
Regards,
Tom Ogilvy


"Dmitry" wrote:

Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook?
I
call the range contiguous because the range sheets tabs are contiguous
in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" OIIAYEI/OIIAYEIA ? II?IOONE
OIAAOAYAA:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the
SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded
the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'

'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run
the
operations?

Not sure, but see if there are any ideas here that can help.
If not, please post back. :)

Sub Demo()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
SolverReset
SolverOk "J16", 1, , "F4:I12"
SolverSolve True
Next Sht
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook? I
call the range contiguous because the range sheets tabs are contiguous in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'
'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

Thanks Dana DeLouis.
Does your code repeats for all worksheets in a workbook? I wrote "How to
repeat the macro for a contiguous range of sheets (not all sheets) in a
Workbook?" How to repeat the macro for selected sheets in a Workbook?
"Dana DeLouis" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: ...
Not sure, but see if there are any ideas here that can help.
If not, please post back. :)

Sub Demo()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
SolverReset
SolverOk "J16", 1, , "F4:I12"
SolverSolve True
Next Sht
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook?
I
call the range contiguous because the range sheets tabs are contiguous
in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the
SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'
'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run the
operations?

How to repeat the macro for selected sheets in a Workbook?

Hi. That was for all sheets. Would any ideas here help for selected
sheets?

Sub Demo()
Dim sht
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
sht.Activate
' Solver here...
Next
End Sub

Sub Demo2()
Dim sht
For Each sht In Array("Sheet1", "Sheet3", "Sheet5")
Worksheets(sht).Activate
' Solver here...
Next
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Dana DeLouis.
Does your code repeats for all worksheets in a workbook? I wrote "How to
repeat the macro for a contiguous range of sheets (not all sheets) in a
Workbook?" How to repeat the macro for selected sheets in a Workbook?
"Dana DeLouis" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: ...
Not sure, but see if there are any ideas here that can help.
If not, please post back. :)

Sub Demo()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
SolverReset
SolverOk "J16", 1, , "F4:I12"
SolverSolve True
Next Sht
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a Workbook?
I
call the range contiguous because the range sheets tabs are contiguous
in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the
SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded
the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'
'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run
the
operations?