Differences between Excel 2003 and Excel 2000

[JRB]

Are there any significant differences between the vba Find Method in the
2003 and 200 versions of Excel

The reason I ask is that I have some code that works in version 2003 and yet
doesn't work in my friends version which is 2000


Regards
and TIA

 

[Bob Phillips]

Find will not work in 2000 if included in a function called from a worksheet
formula.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[JRB]

Thanks Bob - code is called from a button on a user form as follows:

...................
RegNo = InputBox("Enter the Original Reg No or Present Reg No", Title)

On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Register")
.Activate
.Columns("C").Find(What:=RegNo, After:=.Cells(1, 3),
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate
If Err = "91" Then
Response = MsgBox("Registration Not Found", , Title)
ScrollBar1.Value = ScrollBar1.Min
Exit Sub
End If
End With
On Error GoTo 0
.............................

Does it look ok to you ?

Regards

 

[JLGWhiz]

I think this will workalthough it is untested:
RegNo = InputBox("Enter the Original Reg No or Present Reg No", Title)

On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Register")
.Activate
.Columns("C")
Set C = .Find(What:=RegNo, After:=.Cells(1, 3),
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate
If C <> Empty Then
MsgBox "Registration Number " & RegNo & " Found at " & C.Address
Else
MsgBox "Registration Number not found"
End If
If Err = "91" Then
Response = MsgBox("Registration Not Found", , Title)
ScrollBar1.Value = ScrollBar1.Min
Exit Sub
End If
End With

 

[NickHK]

You will find that SearchFormat is not supported as an argument in the 2K
version.

NickHK