Werkbladen aanklikken terwijl mijn cursor op dezelfde cel blijft staan

[Anne99]

Hoe kan ik snel in werkbladen kijken terwijl mijn cursor op dezelfde cel blijft blijft staan?
Ik wil vb telkens cel b5 zien in 5 achtereenvolgende werkbladen. Nu verspringt mijn cursor steeds naar een andere cel als ik op een ander werkblad klik.

Alvast dank

 

[Cobbe]

Rechtermuisklik vòòr tab Blad1 en je krijgt alle balden in een menu.
Dan selecteren en kijken maar.
Dan terug naar Blad1 en hupsaké.

 

[daan108]

Of wil je al je tabbladen "synchroniseren" dus zelfde cel linkboven in beeld?
Gebruik dan deze macro: http://j-walk.com/ss/excel/tips/tip75.htm

Wat sowieso kan is: alle bladen selecteren (als groep) op cel B5 gaan staan, en met Ctrl+PgUp en Ctrl+PgDwn door je tabbladen gaan. Doordat je eerst een groep gemaakt had is cel B5 op elk tabblad actief. Vergeet niet de groep weer op te heffen, want als je op een blad iets intikt, wordt dat op alle bladen gezet en bestaat er grote kans dat je iets overschrijft!

 

[Anne99]

Beste Cobbe, dank voor je snelle reactie, maar ik bedoel eigenlijk iets anders.
Als ik swith tussen werkbladen staat mijn cursor de ene keer op cel c7 en de andere keer op cel r100. Ik zou graag steeds hetzelfde beeld krijgen (dezelfde rijen en kolommen zien) als ik swith tussen werkbladen.

Kun je me verder helpen?

 

[Anne99]

Beste Daan,

Ja, ik bedoel het synchroniseren! Blij dat dit kan! Ik heb eigenlijk nog niet eeder met macro's gewerkt. Hoe kan ik dit uitvoeren in mijn file?

 

[daan108]

Selecteer de code (vanaf Sub SynchSheets tot en met regel End Sub) en kopieer (Ctlr+C)
In Excel tik: Alt+F11
Links zie je de VBA-verkenner. Klik op je bestandsnaam.
Menu - Invoegen - Module
Plak de code in het witte veld van de nieuwe module
Ga naar een tabblad en scroll zodat je alles in beeld hebt
Tik Alt+F8 en dubbelklik op SynchSheets

 

[daan108]

Deze past ook het zoompercentage aan.

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
    Dim ZoomPerc As Integer
    
    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
    ZoomPerc = ActiveWindow.Zoom
    
'   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
            ActiveWindow.Zoom = ZoomPerc
        End If
    Next sht
    
'   Restore the original position
    UserSheet.Activate
    Application.ScreenUpdating = True
End Sub