macro ga naar datum

[bebobebo]

Hallo Excel-toppers.

Ik werk aan een bestand (die met o.a. hulp vanuit dit forum best mooi gaat worden) met een tabblad voor een overzicht voor ruim een half jaar.
In rij 3 staat vanaf kolom k de datum voor deze periode.
Ik zou graag achter de de macro-knop "Naar NU (vandaag)" een macro willen hebben
zodat vanaf elke datum naar de datum van nu gesprongen word (datum van vandaag naast kolom j)

Bekijk bijlage overzicht ga naar.xls

Het klinkt heel simpel, maar ik kom hier niet uit.
Wie weet een oplossing.

Groet Bert

 

[Superzeeuw]

bebobebo,

Plaats dit stukje code eens:

Sub SelectToday()
    Datum = Date - Range("K3").Value
    Cells(3, 11 + Datum).Select
End Sub

Ga naar de knop "Naar NU (Vandaag)" klik met de rechtermuisknop en wijs de macro SelectToday toe.

Grtz

 

[bebobebo]

bebobebo,

Plaats dit stukje code eens:

Sub SelectToday()
Datum = Date - Range("K3").Value
Cells(3, 11 + Datum).Select
End Sub

Ga naar de knop "Naar NU (Vandaag)" klik met de rechtermuisknop en wijs de macro SelectToday toe.

Grtz

Hallo Superzeeuw,

Bedankt voor je snelle reactie.
Hij gaat wel naar de juiste datum maar zet hem niet naast kolom J.

Bekijk bijlage overzicht ga naar2.xls

 

[Superzeeuw]

bebobebo,

Dat kan door de macro iets aan te passen.

Sub SelectToday()
Range("K3").value = Date
End Sub

Is dit wat je bedoelt?

Grtz

 

[bebobebo]

bebobebo,

Dat kan door de macro iets aan te passen.

Sub SelectToday()
Range("K3").value = Date
End Sub

Is dit wat je bedoelt?

Grtz

Superzeeuw,

Mooie oplosing, maar nog niet helemaal, ik ben nu alle info kwijt voor deze datum.
Wat ik wil is dat de datum naar deze plek scrolt zodat scrollen naar eerdere datums nog wel kan.
Sorry als ik onduidelijk ben geweest.

Bert

 

[Superzeeuw]

bebobebo,

Sorry, leg dat eens uit?

Wat ik zie gebeuren is dat de groene, rode en grijze vlakken mee verschuiven of bedoel je dat niet?.

Grtz

 

[bebobebo]

bebobebo,

Sorry, leg dat eens uit?

Wat ik zie gebeuren is dat de groene, rode en grijze vlakken mee verschuiven of bedoel je dat niet?.

Grtz

Superzeeuw,

De vlakken(die voor de datum van vandaag liggen) schuiven weg en zijn niet meer terug te halen d.m.v. scrollen, dit moet nog wel mogelijk zijn.

Zie voorbeeld als bijlage.
Bekijk bijlage overzicht ga naar3.xls
Op het moment dat je de macro-knop nu laat werken gaan alle groene vlakken weg en zijn niet meer d.m.v. terug-scrollen terug te halen, wil je deze informatie weer zien dan moet je een datum gaan ingeven die voor de datum van vandaag ligt(de begindatum in k3 moet dus eigenlijk blijven bestaan en de datum van vandaag moet aan de rechterkant van kolom J komen te staan)

Ik hoop dat hij zo iets duidelijker is.

Bert

 

[Superzeeuw]

Bert,

Is dit wat je bedoelt?

Sub SelectToday()
Range("K3").Select
Datum = Date - Range("K3").Value
ActiveWindow.SmallScroll ToRight:=Datum
End Sub

Verkort:
Sub SelectToday()
Range("K3").Select
ActiveWindow.SmallScroll ToRight:=Date - Range("K3").Value
End Sub

De datum in K3 blijft behouden, klikken op de knop zorgt er enkel voor dat je scherm scrollt totaan de datum van vandaag.
Wil je weer terug dan kun je terugscrollen of klik op CTRL+Home

Grtz

 

[bebobebo]

Bert,

Is dit wat je bedoelt?

Sub SelectToday()
Range("K3").Select
Datum = Date - Range("K3").Value
ActiveWindow.SmallScroll ToRight:=Datum
End Sub

Verkort:
Sub SelectToday()
Range("K3").Select
ActiveWindow.SmallScroll ToRight:=Date - Range("K3").Value
End Sub

De datum in K3 blijft behouden, klikken op de knop zorgt er enkel voor dat je scherm scrollt totaan de datum van vandaag.
Wil je weer terug dan kun je terugscrollen of klik op CTRL+Home

Grtz

Superzeeuw,

Super:thumb:
Helemaal zoals ik bedoel.

Bedankt voor de moeite:thumb:

Bert

 

[frankwannet]

@AvC: Welkom op Helpmij.nl

Jouw vraag verwijderd. Graag een eigen vraag maken. Het is niet toegestaan in iemand anders zijn vraag jouw probleem te plaatsen. Dit is onoverzichtelijk voor de helpers maar vooral voor de topicstarter. Bovendien is deze vraag ouder dan drie maanden en mogen dus met rust gelaten worden.