• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum regel bovenaan op de dag.

Status
Niet open voor verdere reacties.

Rene76

Nieuwe gebruiker
Lid geworden
18 okt 2017
Berichten
4
Goedemorgen,
Ik heb een rooster gemaakt en nu zit ik met een volgende vraag.

De datum van de dag kleurt netjes geel, alleen ik wil dat de regel met de datum van vandaag boven aan komt.
Ik heb me titels geblokkeerd op regel 16 en wil dat de huidige datum iedere dag bovenaan komt.
Wie kan mij hiermee helpen.

Bedankt alvast.
 
Zet dit achter je tab:
Code:
Private Sub Worksheet_Activate()
 Application.Goto ActiveSheet.Rows(Range("A:A").Find(Date).Row), scroll:=True
End Sub
 
Laatst bewerkt:
Hoi Rene,
Welkom op Helpmij:)
Het is een goede gewoonte om een gelijkend vb bestandje bij te voegen. Zo wordt je sneller en gerichter geholpen.
Een bestandje kan je toevoegen door op de knop Ga geavanceerd en daarna op de papercclip te drukken.
 
Zo dus:
 

Bijlagen

  • Rooster 2017 2018.xlsb
    536,6 KB · Weergaven: 35
Beste Cobbe,

Maar als ik het document open, dan staat niet de datum van vandaag bovenaan.
Ik wil dat wanneer ik het rooster open, dat de huidige datum boven aan me blad staat.

Nu staat nog steeds 2 okt bovenaan, en ik wil dat als ik hem open de huidige dag bovenaan staat (18 okt)
 
Je hebt waarschijnlijk je macro's niet geactiveerd.

Als ik het bestand open (of de tab activeer) staat de datum van vandaag op regel 17.
 
Hier staat 'ie keurig op de huidige datum (Regel 32, 18 okt)
 
Beste, de code van Cobbe werkt perfect.
Als je een ander bestand gebruikt moet je zorgen dat de datums echt datums zijn en geen formules zoals =B20+1
 
Als je toch die =B20+1 enz wil blijven hanteren kan je deze code gebruiken:
Code:
Private Sub Worksheet_Activate()
 r = Day(Date) + 16 - 2  '16 is startregel  - -2 is de start- en eindregel.
 Application.Goto ActiveSheet.Rows(r), scroll:=True
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan