| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions,microsoft.public.excel
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of
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 |
|
#3
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions,microsoft.public.excel
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of
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" сообщил/сообщила в новостях следующее: ... 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 |
|
#4
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions,microsoft.public.excel
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of
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" сообщил/сообщила в новостях следующее: ... 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 |
|
#5
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions,microsoft.public.excel
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of
Thanks. I will try.
"Dave Peterson" ???????/???????? ? ???????? ?????????: ... 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" сообщил/сообщила в новостях следующее: ... 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 |
|
#6
Posted to microsoft.public.excel,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook?
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" wrote in message ... 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 |
|
#7
Posted to microsoft.public.excel,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook?
Thanks. I will try.
"Norman Jones" сообщил/сообщила в новостях следующее: ... 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" wrote in message ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| All sheets in workbook have same rows to repeat at top | Excel Worksheet Functions | |||
| vb code to copy and list selected row to diff sheets | Excel Discussion (Misc queries) | |||
| Sum of selected cells from different sheets in a new workbook | Excel Worksheet Functions | |||
| How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
| VBA Code To have a macro repeat on all sheets in a workbook | Excel Worksheet Functions | |||
Hybrid Mode
