what's wrong with this code

[jkpd2000]

Dim t As String
t = Format(Date, "dd/mm/yyyy")

Cells.Find(What:=t, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

[bergy]

On 2002-05-21 15:17, jkpd2000 wrote:
Dim t As String
t = Format(Date, "dd/mm/yyyy")

Cells.Find(What:=t, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

I have only had luck with the find method by using the a "Set" statement. It adds a few lines, but it works.

Dim t As String
t = Format(Date, "dd/mm/yyyy")

Set c = Cells.Find(What:=t, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
cAddress = c.Address
Range(cAddress).Activate
End If

[jkpd2000]

it's not working.

any one has a solution

i am trying to search a today's date in my excel sheet.

can any one help

[C. O. Jones]

Dim t As String
t = Format(Date, "dd/mm/yyyy")

Cells.Find(What:=DateValue(t), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

[jkpd2000]

Jones,
it is giving type mismatch error.

however i found this solution
dt = date

Cells.Find(What:=dt, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate


[ This Message was edited by: jkpd2000 on 2002-05-21 17:00 ]

[ This Message was edited by: jkpd2000 on 2002-05-21 17:01 ]

[C. O. Jones]

Glad you got it working.

However, don't understand why you got a type mismatch error. It works for me. Are you sure it wasn't a RunTime Error 91 ?

Just for interest, either one of these should work. Note the difference in the code (i.e. the "What" bit) depending on the variable type declaration.


Dim t As String
t = Date

Cells.Find(What:=DateValue(t), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate



Dim t As Date
t = Date

Cells.Find(What:=t, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

[jkpd2000]

Hi jones,

Yes it is giving runtime error 91
with message object variable or with block variable not set. i dont know why.

when i run today your code is not giving error of data type mismatch as i told in my previous mail.

any way i got the solution, thanks for your code.