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]

Sub Select_Today()
    Cells.Find(Date, , xlValues, xlWhole).Select
End Sub

 

[mistrall22]

you are the alphaFROG
tks a million
jay

 

[AlphaFrog]

You're welcome.

 

[CJA007]

You're welcome.

Hi,I wonder if you can help me???I want a similar thing. I would like a button that when pressed takes me to todays date. As before the spread sheet has a full year date range in the column headers with several rows of information below.Thanks

 

[AlphaFrog]

[color=darkblue]Sub[/color] Select_Today()
    Rows(1).Find(Date, , xlFormulas, xlWhole).Select
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[CJA007]

Thanks for the quick response. Where do I put the code? Sorry mate

 

[AlphaFrog]

• Alt+F11 to open the vba editor
• From the menu, select Insert \ Module
• Paste the code in the edit window

 

[Rick Rothstein]

• Alt+F11 to open the vba editor
• From the menu, select Insert \ Module
• Paste the code in the edit window

To follow up... after doing the above, then you can assign AlphaFrog's Select_Today macro to the button's click event (right click the button and choose "Assign macro").

 

[DCarrier]

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!