Insert a button in excel such that when u press a the button it moves to current day.

[kishengiggs1]

Hello everyone,

I have a excel file that has all the dates for year 2012. I check this everyday for updates on each day for a specific date. Usually i am trying to look for todays date. I am fed up of scrolling up and down everyday to find it.

Is there a way when i press a button for example: (Today) it will bring me straight to that cell?

So basically if i press a button it will bring to the cell of current date.

thanks
Kishen

 

[Trevor G]

Why not use the find feature in Excel? Ctrl + F

 

[VoG]

Try like this

Sub atest()
Dim Found As Range
Set Found = Columns("A").Find(what:=Date, LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Select
End Sub

 

[kishengiggs1]

Why not use the find feature in Excel? Ctrl + F

Well i still have to type alot to do that. Like i will have to CTRL + F a whole date.

 

[Trevor G]

Record a macro to use the find then just edit the code to pick out the Date. Here is adjusted example.

Sub Macro1()
Dim dte As Date
dte = Date

Cells.Find(What:=dte, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[kishengiggs1]

Try like this

Sub atest()
Dim Found As Range
Set Found = Columns("A").Find(what:=Date, LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Select
End Sub

It worked. Thanks alot