Selecting Current date

[Guest]

In my Sheet1 cell C5 - I have 8/01/2006 (actually 38930)
in cells C6 I have =C5+1 - Copied down to C29
So that C26 = 8/22/2006 -- Today!

Using the code - My Rng "IS NOTHING" ' when I step through the code

Why?

Sub Find_Todays_Date()
Dim FindString As Date
Dim rng As Range
FindString = Date
With Sheets("Sheet1").Range("C5:C29")
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

 

[Jim Rech]

LookIn:=xlValues

--
Jim
| In my Sheet1 cell C5 - I have 8/01/2006 (actually 38930)
| in cells C6 I have =C5+1 - Copied down to C29
| So that C26 = 8/22/2006 -- Today!
|
| Using the code - My Rng "IS NOTHING" ' when I step through the code
|
| Why?
|
| Sub Find_Todays_Date()
| Dim FindString As Date
| Dim rng As Range
| FindString = Date
| With Sheets("Sheet1").Range("C5:C29")
| 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

 

[Don Guillett]

Sub gotodate()
On Error GoTo qi
Application.Goto Range(Columns(1).Find(Date).Address)
qi:
End Sub

 

[Guest]

Thanks Jim;
I missed (seeing) the xlFormulas.. daaaaaa....
Tks again.
Jim May

 

[Guest]

thanks Don;
Good substitute for what I had
Jim

Sub gotodate()
On Error GoTo qi
Application.Goto Range(Columns(1).Find(Date).Address)
qi:
End Sub