Many of the cells in a worksheet have dates, only one of which is
Today's date.
I would like to find which cell has today's date, and then set that
cell as the active cell.

Try this tester for column A

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"iamnu" <iamnubw@gmail.com> wrote in message news:f88d5f01-7bfe-4faa-8859-804d22e2e715@r66g2000hsg.googlegroups.com...
> Many of the cells in a worksheet have dates, only one of which is
> Today's date.
> I would like to find which cell has today's date, and then set that
> cell as the active cell.

Dim rng As Range

Set rng = Cells.Find(Date, LookIn:=xlFormulas)
If Not rng Is Nothing Then rng.Select


--
__________________________________
HTH

Bob

"iamnu" <iamnubw@gmail.com> wrote in message
news:f88d5f01-7bfe-4faa-8859-804d22e2e715@r66g2000hsg.googlegroups.com...
> Many of the cells in a worksheet have dates, only one of which is
> Today's date.
> I would like to find which cell has today's date, and then set that
> cell as the active cell.

On Jul 7, 2:06*pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> Try this tester for column A
>
> Sub Find_Todays_Date()
> * * Dim FindString As Date
> * * Dim Rng As Range
> * * FindString = CLng(Date)
> * * With Sheets("Sheet1").Range("A:A")
> * * * * Set Rng = .Find(What:=FindString, _
> * * * * * * * * * * * * After:=.Cells(.Cells.Count), _
> * * * * * * * * * * * * LookIn:=xlFormulas, _
> * * * * * * * * * * * * LookAt:=xlWhole, _
> * * * * * * * * * * * * SearchOrder:=xlByRows, _
> * * * * * * * * * * * * SearchDirection:=xlNext, _
> * * * * * * * * * * * * MatchCase:=False)
> * * * * If Not Rng Is Nothing Then
> * * * * * * Application.Goto Rng, True
> * * * * Else
> * * * * * * MsgBox "Nothing found"
> * * * * End If
> * * End With
> End Sub
>
> --
>
> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> "iamnu" <iamn...@gmail.com> wrote in messagenews:f88d5f01-7bfe-4faa-8859-804d22e2e715@r66g2000hsg.googlegroups.com...
> > Many of the cells in a worksheet have dates, only one of which is
> > Today's date.
> > I would like to find which cell has today's date, and then set that
> > cell as the active cell.

Your code seems to be what I want Ron, but I keep getting "Nothing
found" from the Msgbox display, but I don't know why. Can you give a
hint as to why I'm not finding Today's Date?

By the way, the cells are formated as mm/dd/yy, and each cell has a
formula that adds one to the previous cell, for example: Cell A2 has a
formula =A1+1, and Cell A1 has the beggining value 07/01/08.

Thanks for your help...

Hi

Use xlValues instead of xlFormulas

LookIn:=xlValues, _


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"iamnu" <iamnubw@gmail.com> wrote in message news:1ce9d51f-9caf-4f57-b5e2-bf41f2f8e60e@l64g2000hse.googlegroups.com...
On Jul 7, 2:06 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> Try this tester for column A
>
> Sub Find_Todays_Date()
> Dim FindString As Date
> Dim Rng As Range
> FindString = CLng(Date)
> With Sheets("Sheet1").Range("A:A")
> Set Rng = .Find(What:=FindString, _
> After:=.Cells(.Cells.Count), _
> LookIn:=xlFormulas, _
> LookAt:=xlWhole, _
> SearchOrder:=xlByRows, _
> SearchDirection:=xlNext, _
> MatchCase:=False)
> If Not Rng Is Nothing Then
> Application.Goto Rng, True
> Else
> MsgBox "Nothing found"
> End If
> End With
> End Sub
>
> --
>
> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> "iamnu" <iamn...@gmail.com> wrote in messagenews:f88d5f01-7bfe-4faa-8859-804d22e2e715@r66g2000hsg.googlegroups.com...
> > Many of the cells in a worksheet have dates, only one of which is
> > Today's date.
> > I would like to find which cell has today's date, and then set that
> > cell as the active cell.

Your code seems to be what I want Ron, but I keep getting "Nothing
found" from the Msgbox display, but I don't know why. Can you give a
hint as to why I'm not finding Today's Date?

By the way, the cells are formated as mm/dd/yy, and each cell has a
formula that adds one to the previous cell, for example: Cell A2 has a
formula =A1+1, and Cell A1 has the beggining value 07/01/08.

Thanks for your help...