Bij openen excel naar colom met datum vandaag!

[loukskywalker]

Hallo,

Wij maken op het werk gebruik van een verlof/vakantie rooster in excel!
Nu zou ik graag zien dat hij het openen van het excel file deze direct naar de datum/week gaat van de dag van openen.

Zijn hier code's voor, kan er bar weinig over vinden :evil:

 

[ExcelAmateur]

Misschien kun je hier wat mee of aanpassen.

 

[Warme bakkertje]

Mits de nodige aanpassingen.

Sub Workbook_Open()
    Dim kol      As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
        kol = 0: kol = WorksheetFunction.Match(CLng(Date), Blad2.Rows(9), 0)
        On Error GoTo 0
        If kol > 0 Then Application.Goto Blad2.Cells(9, kol), True
    Application.ScreenUpdating = True
End Sub

 

[loukskywalker]

Heb hem even toegevoegd

deleted

 

[Warme bakkertje]

Dat krijg je natuurlijk als jij karig bent met informatie betreffende de layout van je bestand.
Zet deze in ThisWorkbook.

Sub Workbook_Open()
    Dim frow      As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
        frow = 0: frow = WorksheetFunction.Match(CLng(Date), Blad2.Columns(2), 0)
        On Error GoTo 0
        If frow > 0 Then Application.Goto Blad2.Cells(frow, 1), True
    Application.ScreenUpdating = True
End Sub

 

[loukskywalker]

Het werkt hartelijk dank!

Ik snap nog niet veel van deze code, maar ga hem wel eens nader onderzoeken!

Nogmaals bedankt