ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Scroll all sheets to same row (https://www.excelbanter.com/excel-discussion-misc-queries/182002-scroll-all-sheets-same-row.html)

Mary Ann

Scroll all sheets to same row
 
I have a spreadsheet with say 10 worksheets in it. Each worksheet is laid
out the same way.

I regularly need to scroll to the same place in each sheet, lets say row
100. Is there a way for me to scroll to row 100 on the first sheet I look at
and then when I go to the next sheet, it is already showing row 100 on screen
so I dont have to scroll again on each sheet.

Gary''s Student

Scroll all sheets to same row
 
In a standard module insert:

Public rrow As Long

In the worksheet code area for Sheet1, insert:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rrow = Target.Row
End Sub

In the worksheet code area for all the other sheets, insert:

Private Sub Worksheet_Activate()
Application.Goto Cells(rrow, "A"), scroll:=True
End Sub

Whenever you "leave" Sheet1, Excel will remember the row number and go to
the same row on the newly selected sheet.
--
Gary''s Student - gsnu200776


"Mary Ann" wrote:

I have a spreadsheet with say 10 worksheets in it. Each worksheet is laid
out the same way.

I regularly need to scroll to the same place in each sheet, lets say row
100. Is there a way for me to scroll to row 100 on the first sheet I look at
and then when I go to the next sheet, it is already showing row 100 on screen
so I dont have to scroll again on each sheet.


Mary Ann

Scroll all sheets to same row
 
Ah, I forgot to mention I'm not familiar with coding and wanted a solution
which "ordinary" users would be able to use, so this is not going to do it
for me. Thank you for your reply though.

Does anyone else have a solution which does not involve coding? I and the
other users interested in this use 2003.

"Gary''s Student" wrote:

In a standard module insert:

Public rrow As Long

In the worksheet code area for Sheet1, insert:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rrow = Target.Row
End Sub

In the worksheet code area for all the other sheets, insert:

Private Sub Worksheet_Activate()
Application.Goto Cells(rrow, "A"), scroll:=True
End Sub

Whenever you "leave" Sheet1, Excel will remember the row number and go to
the same row on the newly selected sheet.
--
Gary''s Student - gsnu200776


"Mary Ann" wrote:

I have a spreadsheet with say 10 worksheets in it. Each worksheet is laid
out the same way.

I regularly need to scroll to the same place in each sheet, lets say row
100. Is there a way for me to scroll to row 100 on the first sheet I look at
and then when I go to the next sheet, it is already showing row 100 on screen
so I dont have to scroll again on each sheet.



All times are GMT +1. The time now is 12:25 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com