Go to Today Macro

[Guest]

Does anyone have a quick "Go to Today" macro

My SS has sates across the top but i need a button that will take me to the correct row for today?

 

[Von Pookie]

Moved to Excel Questions

 

[tusharm]

Assuming:
(a) you have a button from the Control Toolbox
(b) you meant dates instead of sates, and
(c) correct column instead of correct row.

From the Control Toolbox (View | Toolbars > Control Toolbox) create a command button. Right click the button and select Properties. Change the Name to GoToToday. Change the Caption to 'Go To Today'. Double-click the button. Replace the

Option Explicit

Private Sub GoToToday_Click()

End Sub

with

Option Explicit

Private Sub GoToToday_Click()
    On Error Resume Next
    ActiveSheet.Rows("1:1").Find(What:=Date, After:=Cells(1, 1), LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    If Err.Number <> 0 Then Beep
    End Sub

Get back to XL. Exit design mode by clicking the button on the 'Exit Design Mode' commandbar.

The code above assumes row 1 contains the dates entered in a form that XL understands as a date.