Opgelost Automatisch naar dag vandaag bij openen file

[aapje10]

Beste, in bijgevoegd bestand wil ik graag dat bij het openen de cursor automatisch naar de datum van vandaag gaat.
Ik heb al best wat voorbeelden gezien maar geen van deze werkt bij mij, zal vast aan mij liggen verwacht ik.

Hoe kan ik dit het beste oplossen?

 

[Mde]

Dit achter ThisWorkbook en opslaan met Macro's

Private Sub workbook_open()
    Dim DateRng As Range, DateCell As Range, WorkSht As Worksheet
    
    For Each WorkSht In Worksheets
        WorkSht.Select
            Set DateRng = Range("L1:OO1")
            For Each DateCell In DateRng
                If DateCell.Value = Date Then DateCell.Select: Exit Sub
            Next
      Next WorkSht
    MsgBox Date & Chr(10) & "Record Not Found", 48, "Not Found"
End Sub

 

[AD1957]

zo ?

Private Sub Workbook_Open()
 For Each ct In Sheets("Masterplanning").Rows(1).Cells
            If ct.Value = Date Then
                ' Scroll naar de kolom
                Application.Goto ct, Scroll:=True
                Exit Sub
            End If
   
 Next
End Sub

 

[aapje10]

Ik krijg de volgende melding:

 

[aapje10]

De eerste oplossing werkte overigens ook niet, helaas.

 

[AHulpje]

Zo:

Private Sub Workbook_Open()
    Application.Goto Sheets("Masterplanning").Rows(1).Find(Date), False
    ActiveWindow.SmallScroll ToRight:=40
End Sub

In #4 ben je de dubbelquotes om "Masterplanning" vergeten.

 

[Warme bakkertje]

@AHulpje
Waarom die SmallScroll?
Met Scroll op True zet hij toch automatisch de gevonden waarde in de linkerbovenhoek van je werkblad.

Private Sub Workbook_Open()
    Application.Goto Sheets("Masterplanning").Rows(1).Find(Date), True
End Sub

 

[AD1957]

Misschien nog even Titelblokkering op cel K2

 

[AHulpje]

@Warme bakkertje
Omdat @aapje10 misschien een aantal dagen ervoor en erna ook wil kunnen zien?
Maar wellicht zet @Aapje 10 nog een titelblokkering op K2 en wijzigt zij/hij False in True en verwijdert de SmallScroll.

 

[aapje10]

Allen bedankt zover, en ja, ik wil graag een paar dagen ervoor ook kunnen blijven zien.
Ik krijg het alleen niet werkend en krijg deze melding?

 

[AHulpje]

Werk je met Libre Office?

 

[aapje10]

Ja klopt.

 

[AHulpje]

Dan zou ik hier eens een kijkje nemen.

 

[AHulpje]

En dus heb ik daar een kijkje genomen:

 

[aapje10]

Excuses voor mijn late reactie maar dit is helemaal perfect, bedankt.