error searching for date using cells.find function

[krakyn]

Hi,

Please help,
I am trying to search for a date within a spreadsheet using the following VBA code:

dim found as range

set found = cells.find(What:="24/03/1983"
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)

And it doesnt find the string since found contains
nothing! how can this be since in my code the
date is surrounded by quotes making it a string

Also how can i change the code to allow for a search in
either direction using numbers or text as arguments.

Thanx in adv.
Krakyn

 

[DreamerZ]

This is what I had and it worked fine:

Dim found As Range
Set found = Cells.Find(What:="26/10/2003", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
MsgBox found
found.Activate

When I had .Activate at the end of the "Set found=..." however, found was null. It also didn't matter if the cells were formatted as a date or text. My date was custom (d/m/yyyy).

Not sure what you mean on the 2nd question. Sorry.

Hope that helps.



DreamerZ
simplesoftware@prodigy.net
[ignore]

http://www.geocities.com/simplesoftware@prodigy.net

[/ignore]