| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating a common starting point
I run the code below to ensure that all worksheets are set to a 100% zoom and
that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
Try this...
ActiveWindow.ScrollRow = 1 -- Rick (MVP - Excel) "ordnance1" wrote in message ... I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
Sub scrollToTheTopOfSheet()
Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Select ActiveWindow.ScrollRow = 1 Next End Sub "ordnance1" wrote: I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
This is how I altered your code (it lives in my Auto_Open) but it does not
cycle through all the work sheets, but does work on the currently active sheet. Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ActiveWindow.ScrollRow = 1 Range("A3").Select ActiveWindow.Zoom = 100 Next "Mike" wrote: Sub scrollToTheTopOfSheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Select ActiveWindow.ScrollRow = 1 Next End Sub "ordnance1" wrote: I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
Try
Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Application.Goto ws.Range("A3"), True ActiveWindow.ScrollRow = 1 ActiveWindow.Zoom = 100 Next -- Jacob (MVP - Excel) "ordnance1" wrote: This is how I altered your code (it lives in my Auto_Open) but it does not cycle through all the work sheets, but does work on the currently active sheet. Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ActiveWindow.ScrollRow = 1 Range("A3").Select ActiveWindow.Zoom = 100 Next "Mike" wrote: Sub scrollToTheTopOfSheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Select ActiveWindow.ScrollRow = 1 Next End Sub "ordnance1" wrote: I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
Hi,
Shts = "January,February,March,April,May,June,July,August ,September,October,November,December" v = Split(Shts, ",") For x = 0 To UBound(v) Sheets(v(x)).Select Application.Goto Sheets(v(x)).Range("A3") ActiveWindow.Zoom = 100 Next -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "ordnance1" wrote: I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Creating a common starting point
this will also work for selecting range
Sub scrollToTheTopOfSheet() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets With ws .Activate .Range("A3").Activate End With With ActiveWindow .View = xlNormalView .ScrollRow = 1 .Zoom = 100 End With Next Application.ScreenUpdating = True End Sub "ordnance1" wrote: I run the code below to ensure that all worksheets are set to a 100% zoom and that cell A3 is selected on all worksheets. Is ther also a way to ensure that all worksheets are scrolled all of the way to the top? Sheets(Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December")).Select Sheets("January").Activate Range("A3").Select ActiveWindow.Zoom = 100 Sheets("January").Select |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Return to starting point | Excel Programming | |||
| Return to starting point | Excel Programming | |||
| Go back to starting point | Excel Programming | |||
| bar chart starting point | Charts and Charting in Excel | |||
| Starting Point of macro | Excel Programming | |||
Hybrid Mode
