How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook?

Hello
How to repeat a code for selected sheets (or a contiguous range of sheets)
in a Workbook?
The code is:
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve UserFinish:=True

For each ws in ActiveWorkbook.Sheets
ws.Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve UserFinish:=True

Next

"Dmitry" wrote:

> Hello
> How to repeat a code for selected sheets (or a contiguous range of sheets)
> in a Workbook?
> The code is:
> Range("J16").Select
> SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> ByChange:="$F$4:$I$12"
> SolverSolve UserFinish:=True
>
>
>

Thanks Viquar for replying.
Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets? I
wrote "How to repeat a code for selected sheets (or a contiguous range of
sheets) in a Workbook?", not all worksheets.
"Viquar" <Viquar@discussions.microsoft.com> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> For each ws in ActiveWorkbook.Sheets
> ws.Range("J16").Select
> SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> ByChange:="$F$4:$I$12"
> SolverSolve UserFinish:=True
>
> Next
>
> "Dmitry" wrote:
>
> > Hello
> > How to repeat a code for selected sheets (or a contiguous range of
sheets)
> > in a Workbook?
> > The code is:
> > Range("J16").Select
> > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > ByChange:="$F$4:$I$12"
> > SolverSolve UserFinish:=True
> >
> >
> >

Maybe...

For each ws in ActiveWindow.selectedSheets

Dmitry wrote:
>
> Thanks Viquar for replying.
> Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets? I
> wrote "How to repeat a code for selected sheets (or a contiguous range of
> sheets) in a Workbook?", not all worksheets.
> "Viquar" <Viquar@discussions.microsoft.com> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
> ÓÌÅÄÕÀÝÅÅ: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> > For each ws in ActiveWorkbook.Sheets
> > ws.Range("J16").Select
> > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > ByChange:="$F$4:$I$12"
> > SolverSolve UserFinish:=True
> >
> > Next
> >
> > "Dmitry" wrote:
> >
> > > Hello
> > > How to repeat a code for selected sheets (or a contiguous range of
> sheets)
> > > in a Workbook?
> > > The code is:
> > > Range("J16").Select
> > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > ByChange:="$F$4:$I$12"
> > > SolverSolve UserFinish:=True
> > >
> > >
> > >

--

Dave Peterson

Thanks. I will try.
"Dave Peterson" <petersod@verizonXSPAM.net> ???????/???????? ? ????????
?????????: news:442A6E59.E12244DD@verizonXSPAM.net...
> Maybe...
>
> For each ws in ActiveWindow.selectedSheets
>
> Dmitry wrote:
> >
> > Thanks Viquar for replying.
> > Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets?
I
> > wrote "How to repeat a code for selected sheets (or a contiguous range
of
> > sheets) in a Workbook?", not all worksheets.
> > "Viquar" <Viquar@discussions.microsoft.com> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
> > ÓÌÅÄÕÀÝÅÅ: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> > > For each ws in ActiveWorkbook.Sheets
> > > ws.Range("J16").Select
> > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > ByChange:="$F$4:$I$12"
> > > SolverSolve UserFinish:=True
> > >
> > > Next
> > >
> > > "Dmitry" wrote:
> > >
> > > > Hello
> > > > How to repeat a code for selected sheets (or a contiguous range of
> > sheets)
> > > > in a Workbook?
> > > > The code is:
> > > > Range("J16").Select
> > > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > > ByChange:="$F$4:$I$12"
> > > > SolverSolve UserFinish:=True
> > > >
> > > >
> > > >
>
> --
>
> Dave Peterson

Hi Dmitry,

Try something like:

'=============>>
Public Sub Tester()
Dim SH As Worksheet
For Each SH In ActiveWindow.SelectedSheets
With SH
Application.Goto .Range("J16")
'Your Solver code
End With
Next SH
End Sub
'<<=============


---
Regards,
Norman



"Dmitry" <kopn@bk.ruDelete> wrote in message
news:%23U0zFlxUGHA.4976@TK2MSFTNGP11.phx.gbl...
> Hello
> How to repeat a code for selected sheets (or a contiguous range of sheets)
> in a Workbook?
> The code is:
> Range("J16").Select
> SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> ByChange:="$F$4:$I$12"
> SolverSolve UserFinish:=True
>
>

Thanks. I will try.
"Norman Jones" <normanjones@whereforartthou.com> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: news:ePy9cMyUGHA.1572@tk2msftngp13.phx.gbl...
> Hi Dmitry,
>
> Try something like:
>
> '=============>>
> Public Sub Tester()
> Dim SH As Worksheet
> For Each SH In ActiveWindow.SelectedSheets
> With SH
> Application.Goto .Range("J16")
> 'Your Solver code
> End With
> Next SH
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
>
> "Dmitry" <kopn@bk.ruDelete> wrote in message
> news:%23U0zFlxUGHA.4976@TK2MSFTNGP11.phx.gbl...
> > Hello
> > How to repeat a code for selected sheets (or a contiguous range of
sheets)
> > in a Workbook?
> > The code is:
> > Range("J16").Select
> > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > ByChange:="$F$4:$I$12"
> > SolverSolve UserFinish:=True
> >
> >
>
>