Find Cell with Today's Date

  • Thread starter Thread starter iamnu
  • Start date Start date
I

iamnu

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
 
Dim rng As Range

Set rng = Cells.Find(Date, LookIn:=xlFormulas)
If Not rng Is Nothing Then rng.Select
 
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
Click to expand...

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


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
Click to expand...

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...
 
Back
Top