Scroll

[robdgr]

In een macro staan de volgende regels om naar de eerste vrije cel in kolom A te gaan:

Sheets("Uitslag").Select
    [A65536].End(xlUp).Offset(1, 0).Select
    ActiveWindow.SmallScroll Down:=[AD1].Value

In AD1 staat

=AANTALARG(A:A)-10

omdat ik niet weet hoe ik dat getal rechtstreeks in de macro krijg. Hiermee blijven de laatste tien gevulde cellen in beeld

Hoe los ik dit op?

 

[Cobbe]

Zou deze dat doen wat je voor ogen hebt?

Sub cobbe()
Sheets("Blad1").[A65536].End(xlUp).Offset(1, 0).Select
ActiveWindow.ScrollRow = ActiveCell.Row - 10
End Sub

 

[robdgr]

Cobbe,

Dank voor de helpende hand. Deze is het geworden, dus een combi:

Sheets("Uitslag").Select
    [A65536].End(xlUp).Offset(1, 0).Select
    ActiveWindow.SmallScroll Down:=ActiveCell.Row - 10

dus ik kan AD1 leeg maken.