Dag allemaal,
in kolom A heb ik oplopende data (vanaf 2 september 2013 - einddatum wordt ieder jaar doorgetrokken/aangevuld met nog een jaar).
Ik zoek nu een VBA-procedure bij WorkSheet Activate waardoor de datum van vandaag meteen tot bovenaan de zichtbare pagina wordt gescrolt.
Als tweede rij, net onder de geblokkerde titelrij 1.
Tot nu toe ben ik er in geslaagd om de rij met de datum van gisteren te achterhalen en als integer te declareren (glngRow).
Door eerst de eerste rij te selecteren en vervolgens glngRow + 1 naar beneden te scrollen komt de huidige datum in het midden van het scherm.
Maar hoe krijg ik die rij bovenaan (na de titel, als tweede rij dus) op het scherm ? Dat is nu immers niet altijd hetzelfde aantal dagen eerder vanwege de verschillende rijhoogtes.
in kolom A heb ik oplopende data (vanaf 2 september 2013 - einddatum wordt ieder jaar doorgetrokken/aangevuld met nog een jaar).
Ik zoek nu een VBA-procedure bij WorkSheet Activate waardoor de datum van vandaag meteen tot bovenaan de zichtbare pagina wordt gescrolt.
Als tweede rij, net onder de geblokkerde titelrij 1.
Tot nu toe ben ik er in geslaagd om de rij met de datum van gisteren te achterhalen en als integer te declareren (glngRow).
Door eerst de eerste rij te selecteren en vervolgens glngRow + 1 naar beneden te scrollen komt de huidige datum in het midden van het scherm.
Code:
Rows(1).Select
ActiveWindow.SmallScroll Down:=glngRow + 1
Cells(glngRow + 1, 2).SelectMaar hoe krijg ik die rij bovenaan (na de titel, als tweede rij dus) op het scherm ? Dat is nu immers niet altijd hetzelfde aantal dagen eerder vanwege de verschillende rijhoogtes.
