Knop voor goto datum =vandaag()

[RWMJ]

Beste,

Ik heb datums onder elkaar staan in kolom "C" in rij 4:325 en ik wil een knop maken die de gebruiker meteen naar de huidige datum brengt.
Ik heb hiervoor de volgende code gebruikt

Sub tst()
Range.Column(3).Find(Date).Activate


End Sub

Dit werkt helaas niet, want het argument zou niet optioneel zijn?

 

[edmoor]

Doe het zo:

Sub NaarVandaag()
    Set c = Sheets("Jaarkalender ").Range("C:C").Find(Date)
    If Not c Is Nothing Then
        Application.Goto c
    Else
        MsgBox "Datum: " & Date & " niet aangetroffen.", vbCritical
    End If
End Sub

Let op de spatie achter de bladnaam Jaarkalender.
Je voorbeeld document bevat in kolom C niet 09-09-2022.

 

[AHulpje]

Met .Find(Date) kan ik de datum niet vinden.
Met de volgende primitieve Sub lukt het wel:

Sub NaarVandaag()
    For r = 4 To 325
        If Cells(r, 3) = Date Then
            Application.Goto Cells(r, 3), False
            ActiveWindow.ScrollRow = ActiveCell.Row - 10
            Exit Sub
        End If
    Next
    MsgBox "Huidige datum niet gevonden", vbCritical
End Sub

 

[AHulpje]

Niet in de vorm 09-09-2022, maar wel als 9-09-22 op rij 22.
Met .Find is die niet te vinden, met mijn (toegegeven: primitieve) Sub vind je die datum wel.

 

[edmoor]

Ik had die opmerking al verwijderd

 

[AHulpje]

Rest de vraag, waarom lukt het met .Find niet?

 

[JEC.]

Dat werkt niet omdat de datum vanuit een formule komt.
Hier nog een alternatief

Sub jec()
 On Error Resume Next
 With ActiveSheet.UsedRange.Columns(3)
   Application.Goto Cells(Evaluate("match(today()," & .Address & ",0)"), 3)
   If Err Then MsgBox "Datum: " & Date & " niet aangetroffen.", vbCritical
 End With
End Sub

 

[HSV]

In het verlengde met Clng.

Sub hsv()
 On Error Resume Next
   Application.Goto Cells(Application.Match(CLng(Date), Columns(3), 0), 3)
   If Err Then MsgBox "Datum: " & Date & " niet aangetroffen.", vbCritical
End Sub