Cel bovenaan

[Visus]

Ik wil, dat als ik met een macro naar een bepaalde cel in kolom A ga, dat deze cel altijd links boven aan op het werkblad komt te staan, en niet ergens halverwege.
Weet iemand een oplossing in VBA?

 

[Ginger]

Visus, Ga hier maar 'ns mee spelen...

Sub Bovenaan()

    Regel = InputBox("Geef het regelnummer...", "X", 1)
    ActiveWindow.ScrollRow = Regel
    ActiveWindow.ScrollColumn = 1
    Cells(Regel, 1).Select

End Sub

Groet, Leo

 

[Visus]

Leo, bedankt, dit is wat ik bedoel

Visus

 

[zapatr]

Ik wil, dat als ik met een macro naar een bepaalde cel in kolom A ga, dat deze cel altijd links boven aan op het werkblad komt te staan
en niet ergens halverwege. Weet iemand een oplossing in VBA?

Je schrijft dat met je huidige macro een cel in kolom A wordt geselecteerd.
Als je die cel bovenaan wil, kun je volstaan met aan je macro toe te voegen:

ActiveWindow.ScrollRow = ActiveCell.Row