Find and display today's date cel

[awander]

I have a spreadsheet that is used for scheduling. Column A ha
consecutive dates in it. I want to write a mcro that will search thi
column for the current date, and then display the worksheet with tha
cell in the top left corner. I am pretty new to VBA, and am gettin
nowhere with this. DOes anyone have a macro that does this, o
something similar, that I could use or refer to?

thanks,

And

 

[Frank Kabel]

Hi
try the following macro:
Sub goto_date()
Dim rng As Range
Dim ret_value

Set rng = ActiveSheet.Range("A1:A100")
ret_value = Application.Match(CDbl(Date), rng, 0)
If IsError(ret_value) Then
MsgBox "Current date not found"
Else
Application.Goto reference:=ActiveSheet.Cells(ret_value, 1),
scroll:=True
End If
End Sub

 

[Ron de Bruin]

Try this

Sub Find_Todays_Date()
Dim FindString As Date
Dim Rng As Range
FindString = Date Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End Sub

 

[Ron de Bruin]

Oops Line wrap

This is the good one

Sub Find_Todays_Date()
Dim FindString As Date
Dim Rng As Range
FindString = Date
Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl

Try this

Sub Find_Todays_Date()
Dim FindString As Date
Dim Rng As Range
FindString = Date Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End Sub