create a macro/button that will go to today's date cell

[mistrall22]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I have an excel worksheet with a one year calendar all in one worksheet.<o></o>
<o></o>
I would like create a macro that will bring me to Today’s cell wherever I am in the worksheet.<o></o>
<o></o>
tks for your help <o></o>
<o></o>
Jay<o></o>

 

[AlphaFrog]

This macro isn't working for me, possibly because my dates are determined by a formula. In my sheet, the user defines a start date and an end date for a project. The date row then populates off these dates.

Is there a way to modify this macro to look at the cell value rather than the formula? Here is the formula that determines the date:

=IFERROR(IF(DATE(YEAR(H$7),MONTH(H$7),DAY(H$7)+1)<=$E$1,(DATE(YEAR(H$7),MONTH(H$7),DAY(H$7)+1))," "),"")

Thank you for the help!

This will find today's date in row 1 based on the dates as displayed in the cell. Change the date format in the code to match the cell formatting of your dates.

Change the Date to any serial date you want to search for.

[COLOR=darkblue]Sub[/COLOR] Macro1()
    
    Rows(1).Find(Format([COLOR=#0000ff]Date[/COLOR], [COLOR=#ff0000]"dddd, mmmm d, yyyy"[/COLOR]), , xlValues, xlWhole).Select
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[DCarrier]

Brilliant! Thank you very much AlphaFrog!

 

[AlphaFrog]

Brilliant! Thank you very much AlphaFrog!

You're welcome. Thanks for the feedback.

 

[hichamaziz]

thank you for thread

 

[Punith2121]

thank you for thread

Similar to the above query.. i too have problem in programming in the Vba excel.

My requirement is
I have a dates of complete year in particular row. I need to insert a calendar to excel and when i select a date in the calendar, excel should be navigated to that particular cell with that date that i had selected in the calendar.

Ex. If i select december 20 in calendar.. the excelshould be navigated to that cell which has 20 december 2017.

Hope u have under understood my query..
Sorry if there is any mistake in the post as this is the first time i'm posting..


Expecting support any of them.. Pls support.

 

[Diesel9a1]

Sub GoToToday()

Rows(4).Find(Format(Date, "ddd dd/mm/yy"), , xlValues, xlWhole).Select

End Sub

Using the above, if I run the macro, I'm getting the following error:

"Run Time Error 91
Object variable or with block variable not set"


My cells are formatted: ddd dd/mm/yy

They are all formulas saying B4+1, C4+1, D4+1 etc etc.

What am I missing please?

 

[AlphaFrog]

It worked for me. Do you have today's date in one of the cells in row 4?