Excel - dátum keresés makró hiba

Excel - dátum keresés makró hiba
2018-11-11T17:12:07+01:00
2018-11-12T15:01:50+01:00
2022-10-15T21:40:56+02:00
DoWtHen _
Sziasztok!

Segítséget kérnék egy makró hibám miatt.
Van egy táblázatom, aminek a fejlécébe beírtam a dátumokat 2018.01.01 – 2018.12.31-ig
A makró megnyitáskor megkereste az aktuális napot és a táblázat adott cellájára ugrott ez lett az aktív cella.
Idén, hogy ne kelljen folyton átírni a cellákat képletet írtam a dátum sorba pl.: =DÁTUM(ÉV($A$3);11;11) de most a makró nem találja a dátumot és nem ugrik a Mai napra megnyitáskor.

Hogyan kellene módosítani az ugró makrót??

A válaszokat előre is köszönöm.

Sub Ugras_mai_napra()
Dim FindString As Date
Dim Rng As Range
FindString = CLng(Date + 5)
With Sheets("Jelenléti").Range("$I$4:$NI$4")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Idozito (1)
Selection.Offset(0, -5).Select
Else
MsgBox "Nincs ilyen dátum: " & Date, , "Hibás dátum"
End If
End With
End Sub
Mutasd a teljes hozzászólást!
Csatolt állomány
Szia!

Sajnos a dátumos keresés enyhén szólva nem erőssége a VBA -nak. Pláne, hogy nem értéket, hanem formulát (képletet) keresel (LookIn:=xlFormulas)
De akkor sem ad jó eredményt, ha az értékekben keresnél, mert nem normál dátum formában van az amiben keresel. Egyébként normál összehasonlításban tudja a jó eredményt.
Itt az vezet helyes eredményre, ha egyenként végignézed a cellákat:

For Each cl In Rows(4).Cells If TypeName(cl.Value) = "Date" Then If cl.Value = Date Then cl.Select: Exit For End If Next
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd