[Excel] Using the Find method 1

[Skullmonkey]

I hate to ask these kind of questions, but... why doesn't this work? I'm getting a compile error on the

Set dtFindMe

line.

Sub FindDate()
  Dim dtFindMe As Date
  Dim rgFoundMe As Range
  
  Set dtFindMe = DateSerial(2002, 2, 22)
  Set rgFoundMe = Range("A:A").Find(what:=dtFindMe)
  
  If rgFoundMe Is Nothing Then
    Exit Sub
  End If
  
  rgFoundMe.Font.Bold = True
  
End Sub

Any help would be appreciated.
SM

 

[dsi]

DateSerial returns a Variant and you only need to use the Set statement for objects, not variables.

  Dim dtFindMe As Date
  
  dtFindMe = CDate(DateSerial(2002, 2, 22))

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[Skullmonkey]

Does, then, the following line not need its

Set

? Or is a range not an object?

Set rgFoundMe = Range("A:A").Find(what:=dtFindMe)

SM

 

[dsi]

Yes, the Find method returns a Range object, so it would require the set statement. DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[FaneDuru]

The code works in this variant:

Dim dtFindMe As Date
Dim rgFoundMe As Range

dtFindMe = DateSerial(2002, 2, 22)

Set rgFoundMe = Range("A:A&quot.Find(what:=dtFindMe)

If rgFoundMe Is Nothing Then
Exit Sub
End If

rgFoundMe.Font.Bold = True

End Sub

dtFindMe it is not an object and you do not have to use "Set". !!