Results 1 to 6 of 6
  1. #1
    New Lounger
    Join Date
    Apr 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Syncing Tabs (XP)

    Can anyone tell me how to 'sync' the scrolling between two tabs (or sheets) in Excel.

    I'm kind of new to the concept of 'tabs' so I don't really know if I'm using the right word. I'm calling a 'tab' the items, initially labeled "Sheet 1", "Sheet 2" and "Sheet 3" at the lower left of a new doc.

    Currently if I advance Tab1 to row 150 (for instance), then click to view Tab2, the visible rows will still be rows 1-40 (the first rows).

    Since I have corresponding data to put on Tabs 1&2, it would be very helpful if the display of the tabs would advance together, so that the same rows are visible when switching back and forth.

    All advice greatly appreciated!
    Patrice

  2. #2
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Syncing Tabs (XP)

    You can select more than one tab at a time by holding down the control key and clicking the tab. Whatever actions you take will affect all selected tabs. To deselect multiple tabs, just click one without using the control key. Hope this helps.

  3. #3
    New Lounger
    Join Date
    Apr 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Syncing Tabs (XP)

    Hi Vega,

    I tried doing this but it didn't respond as you mention.

    I can get the two tabs to appear to be highlighted as you mention, but if I then scroll Tab1 to row 100 then view Tab2 if is still displaying row 1 - 40.

    Am I missing something?
    Thanks for you input.

  4. #4
    New Lounger
    Join Date
    Apr 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Syncing Tabs (XP)

    Ok, my mistake.

    I looked at it again, and it appears the 'active' row is changed on both tabs. However I need to click the up or down arrow (on keyboard) to get the new active row to scroll up (to being visible).

    This is a huge help, however is there a way to further 'lock' the scrolling between tabs together?

    If not this at least makes things workable.
    Much Thanks! Patrice

  5. #5
    Star Lounger
    Join Date
    Jan 2002
    Location
    Hunt Valley, Maryland, USA
    Posts
    88
    Thanks
    58
    Thanked 0 Times in 0 Posts

    Re: Syncing Tabs (XP)

    Patrice:
    Here's what I do in Excel 2003:
    While viewing one of the wkshts, click Window :: New Window. Then in the new sub-window, select the second wksht. Now there are two sub-windows, each with its own wksht. Then...
    Click Window :: Compare Side by Side With..., and from the resulting dialog box choose the first sub-window.
    This action also yields a floating command bar. You may want to dock the command bar up in the upper part of Excel, adjacent to the other docked command bars.
    Is this what you need?

  6. #6
    3 Star Lounger Jim Cone's Avatar
    Join Date
    Feb 2002
    Location
    Portland, Oregon, USA
    Posts
    238
    Thanks
    0
    Thanked 3 Times in 3 Posts

    Re: Syncing Tabs (XP)

    Since you are new to Excel, this may not be what you want.
    However, just in case, the following vba code should do what you asked...
    '--
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    'Jim Cone - Feb 2009 - Portland, Oregon USA
    'A newly selected worksheet will scroll to the same
    'row position as the worksheet you just left.
    'This code works automatically if you place it in
    'the "ThisWorkbook" code module.
    On Error GoTo DoRight
    Dim NewSheet As Object
    Dim lngRowNum As Long
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Set NewSheet = ActiveSheet
    If TypeName(NewSheet) <> "Worksheet" Or _
    TypeName(Sh) <> "Worksheet" Then GoTo WrongWay
    Sh.Activate
    lngRowNum = ActiveWindow.VisibleRange.Row
    NewSheet.Activate
    ActiveWindow.ScrollRow = lngRowNum
    Application.EnableEvents = True
    WrongWay:
    On Error Resume Next
    Set NewSheet = Nothing
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub
    DoRight:
    Beep
    Resume WrongWay
    End Sub
    '--
    Jim Cone
    Portland, Oregon USA

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •