geslecteerde cel linksboven in scherm

[maartenf]

ik heb ooit een keer een stukje code gehad dat het volgende deed:

als je een cel selecteerd, dan past het scherm zich automatisch aan
bijvoorbeeld je selecteerd cel f4 en scherm scrolt zo dat f4 op de plaats van a1 staat

heeft iemand die code nog ergens?

b.v.d.
Maarten

 

[Wigi]

Maarten

Zo moeilijk was dat nu ook weer niet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
    .ScreenUpdating = False
    .Goto Target, True
    .ScreenUpdating = True
End With
End Sub

Wigi

 

[maartenf]

thanx wigi
kwam er ff niet uit

 

[maartenf]

deze bedoelde ik eigenlijk omdat alleen bij openen van blad (via hyperlink) het scherm
wil aanpassen

Private Sub Worksheet_Activate()
x = ActiveCell.Row
Application.Goto Reference:=Worksheets("BF").Range("A" & x), _
scroll:=True
Range("C" & x).Select
End Sub