Scroll Multiple Sheets in Excel 2010

Hi,

I'm wondering if there is a way to scroll to the same place over multiple sheets in EXCEL.  I have about 25 sheets each week that I would like to start at the same place.
LVL 1
drozeveldAsked:
Who is Participating?
 
byundtConnect With a Mentor Commented:
The following macro (which must be installed in the ThisWorkbook code pane) will synchronize the scroll row, scroll column and active cell as you switch from one worksheet to another.
'Put the following code in ThisWorkbook code pane. It won't work at all if installed anywhere else
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim ws As Worksheet
Dim iCol As Long, iRow As Long
Set ws = ActiveSheet
If ws.Parent Is ThisWorkbook Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Sh.Select
    iRow = ActiveWindow.ScrollRow
    iCol = ActiveWindow.ScrollColumn
    Application.Goto ws.Range(ActiveCell.Address)
    ActiveWindow.ScrollRow = iRow
    ActiveWindow.ScrollColumn = iCol
    Application.EnableEvents = True
End If
End Sub

Open in new window

0
 
Saqib Husain, SyedEngineerCommented:
Have you tried

Ctrl-PgUp
Ctrl-PgDn
0
 
drozeveldAuthor Commented:
Thank you for responding, but I guess I need to better explain what I would like to be able to do.

When I have all the worksheets highlighted in my workbook, I would like to scroll the pages so that cell A1 is showing when I go to each page, which is what can be done with Ctrl-PgUp and Ctrl-PgDn.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
Saqib Husain, SyedEngineerCommented:
You want to switch worksheets and when you do that you need the cursor to move to A1 of that sheet?
0
 
drozeveldAuthor Commented:
Yes, but I don't want to press Ctrl-Home on every sheet.
0
 
drozeveldAuthor Commented:
Actually the cell that I want to be able to see is F31.  Some worksheets are showing A1, some are showing where the cursor is at in F31.  If I scroll to the bottom of the worksheet on the first page, then I want all the other worksheets to be in the same place so that I can view those cells too.
0
 
Saqib Husain, SyedEngineerCommented:
Are you familiar with macros?

Enter this code in the "Workbook" module of your workbook.
I do think this could be a nuisance at times.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub

Open in new window

0
 
Saqib Husain, SyedEngineerCommented:
Ok now this is a different requirement which came before I posted a response to the previous comment.
0
 
drozeveldAuthor Commented:
This is already in ThisWorkbook:

Public Sub SaveAsA1()
    ThisFile = Range("A1").VALUE
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub


Do I remove that?
0
 
byundtCommented:
Whether or not you move (or delete) SaveAsA1 is up to you. It can remain in its current location and will not interfere with the Workbook_SheetDeactivate event sub I suggested.  

That said, it is considered good practice to put only event-driven subs in class modules like ThisWorkbook. If you follow this good practice, you would move SaveAsA1 into a regular module sheet (use Insert...Module to create one if you don't already have a Module1, Module2, etc.).

If you make this move, you will see the macro listed as "SaveAsA1" in the ALT + F8 macro selector rather than "ThisWorkbook!SaveAsA1"
0
 
drozeveldAuthor Commented:
How do I make sure that your macro only goes into this workbook?
0
 
byundtCommented:
Did you try the code?

I anticipated your question with statement 6, and it will only synchronize worksheets in the workbook containing the macro.
0
 
drozeveldAuthor Commented:
It did not work like I am hoping to see it work.


I had the file that I want it to work on open, found ThisWorkbook by going to Developer and opened Visual Basic.

Tried it - didn't work.  Closed that file and opened another file to see if the macro I referred to above was in another workbook, because I'm not sure what it is trying to do there and found that it was and also the one you gave me was there too....therefore, I'm not wondering if I inserted it correctly.
0
 
byundtCommented:
When you open the workbook, you must enable macros. The code won't work if you don't. Try closing the workbook and then reopening it. You should see a warning about macros.

If that approach still isn't working for you, please post your workbook. I'll make sure the code is installed correctly.

Brad
0
 
drozeveldAuthor Commented:
Sometimes...when you review your own work, you find that you put the macro in ThisWorkbook of your personal.xls files, and not just the workbook that you had open.  When you review this, and move the macro to the correct place - it works EXACTLY like you want it to.

Thank you!!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.