Titels blokkeren en dan....

[vio]

Hoi,
Ik ben op zoek naar een code voor een besturingsknop.

Ik heb de titels in A:B:C geblokkeerd.
D1=1/7 ; C1=2/7 enz
Deze knop zou me de datum van vandaag moeten selecteren of scrollen todat die staat op de plaats waar D1 zou moeten staan bij een vast werkblad.
Kan me daar iemand AUB mee hlp
THANXXXs

 

[McMeller]

Hoi vio... Welkom bij Helpmij. Jammer dat je gelijk de fout ingaat...
Eén topic is meer dan voldoende voor goede hulp hoor!

 

[vio]

Ja, je hebt gelijk.
Het is ook de eerste keer dat ik een vraag stel. Altijd alleen geprutst.
FB=8

 

[McMeller]

:thumb: Veel plezier op Helpmij gewenst!

 

[Cobbe]

Deze doet dat,

Sub Datumzoeken()
For Each d In Range("1:1")
If d = Date Then
Range(d.Address).Select
End If
Next
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

En ben ik nu een held?

Cobbe

 

[danny147]

Beste vio

Klik hier eens en kijk naar de volgende vraag die ik destijds gevraagd heb.

Kolom A,B en C zijn hier ook geblokkeerd.
Bij het openen van het bestand gaat in cel D1 automatisch het weeknummer tevoorschijn staan, je moet enkel de formule wat aanpassen.

Groetjes Danny.

 

[vio]

Ik was even weg.
Kun je die code gewoon plakken in een CommandButton?

 

[danny147]

Beste vio

Druk op Alt F11 en dubbelklik op This Workbook
Plak de code van Cobbe hierin.

Ga naar formulieren en zet een knopje op je werkblad.
Automatisch vraagt hij een macro.
:thumb:
Groetjes Danny

 

[vio]

Danny,
Je bent bedankt. Nog nooit zoveel hulp gehad:thumb: .Ik ga deze nacht goed kunnen slapen.
Geweldige hulp zo een Forum.
Groetjes en bedankt.