Execute Find for Today in VBA

[VitoBdG]

Hey Geeks,

I am facing some difficulty.
I have got 2 columns (well, that's all needed for this coding).

Column B - date (daily, from 01 Jan to 31 Dec)
Column C - actual time

I want my macro to go to todays date, move to actual time column and input actual time (copy afterwards as value)

so I started coding with:

        Columns("B:B").Select
    Selection.Find(What:=Today, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Selection.ActiveCell.Offset(0,1).Select
ActiveCell.FormulaR1c1 = "=now()-today()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

I seem to be just missing, how to look for today in Find.

Anyone can help?
Much appreciated

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[VitoBdG]

I believe to have updated the formatting as requested

[zbor]

Use Date instead of Today

[VitoBdG]

Works!

Thank you very much