Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Can you make all sheets scroll when scrolling one sheet
Is it possible to have worksheets scroll at the same time? For example when
you scroll down to line 100 on sheet 1 and then you go to sheet 2 or 3 or 4 and that sheet will be on line 100 also? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Can you make all sheets scroll when scrolling one sheet
Billy,
Sure, it's possible - easy, even. Copy the first sub below (an Excel event), and paste it into the codemodule of the Thisworkbook object. Then copy the second sub (blantantly copied from John Walkenbach's excellent website: http://j-walk.com/ss/excel/tips/tip75.htm) into a regular codemodule. For extra instructions and help working with event code, see http://www.mvps.org/dmcritchie/excel/event.htm HTH, Bernie MS Excel MVP Private Sub Workbook_SheetSelectionChange( _ ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False SynchSheets Application.EnableEvents = True End Sub Sub SynchSheets() ' Duplicates the active sheet's active cell upperleft cell ' Across all worksheets If TypeName(ActiveSheet) < "Worksheet" Then Exit Sub Dim UserSheet As Worksheet, sht As Worksheet Dim TopRow As Long, LeftCol As Integer Dim UserSel As String Application.ScreenUpdating = False ' Remember the current sheet Set UserSheet = ActiveSheet ' Store info from the active sheet TopRow = ActiveWindow.ScrollRow LeftCol = ActiveWindow.ScrollColumn UserSel = ActiveWindow.RangeSelection.Address ' Loop through the worksheets For Each sht In ActiveWorkbook.Worksheets If sht.Visible Then 'skip hidden sheets sht.Activate Range(UserSel).Select ActiveWindow.ScrollRow = TopRow ActiveWindow.ScrollColumn = LeftCol End If Next sht ' Restore the original position UserSheet.Activate Application.ScreenUpdating = True End Sub "billy boy" wrote in message ... Is it possible to have worksheets scroll at the same time? For example when you scroll down to line 100 on sheet 1 and then you go to sheet 2 or 3 or 4 and that sheet will be on line 100 also? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
In Excel, how do you make one whole sheet equal to another. | Excel Discussion (Misc queries) | |||
Lookup values in multipul sheets and show value in another sheet | Excel Worksheet Functions | |||
calculate totals of 5 sheets on to 6th sheet. | Excel Worksheet Functions | |||
Copying multiple sheets from one book 2 another and undertake spec | Excel Discussion (Misc queries) | |||
Linking sheets to a summary sheet in workbook | Excel Discussion (Misc queries) |