macro - jump to today on work sheet

[pariah07]

Help!! im trying find a simple macro or vba code that when ran it will select todays date on the excel worksheet.

 

[pariah07]

Well using Macro recorder i was able to Make it happen. Heres what it looks like. (ps i have know idea how or why it works)

Sub Today_Find()
'
' Today_Find Macro
'
' Keyboard Shortcut: Ctrl+t
' Were "Range("Date")" =today()

Range("Date").Select
Selection.Copy
Cells.Find(what:=Date, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
Edit/Delete Message

 

[pariah07]

Actually above is wrong

Sub FindDate() 
    Dim c As Range 
     
    Set c = ActiveSheet.Cells.Find(what:=Date, LookIn:=xlValues) 
    If Not c Is Nothing Then c.Select 
     
End Sub

this code works, but the formate of the date must be xx/xx/xx

 

[Andrzejek]

Then, Format te Date;

Sub FindDate() 
    Dim c As Range 
     
    Set c = ActiveSheet.Cells.Find(what:=[red]Format([/red]Date[red], "xx/xx/xx")[/red], LookIn:=xlValues) 
    If Not c Is Nothing Then c.Select 
     
End Sub

Have fun.

---- Andy

 

[SkipVought]

"this code works, but the formate of the date must be xx/xx/xx "

The code WORKS! Of course it does!

Why are your concerned about the FORMAT? FORMAT is for DISPLAY.

Skip,

_[red][/red]