Macro not running on Office 2000, only 2003

[Rob Gould]

Hi,

Can anyone please tell me why the code below would run perfectly in
Excel 2003, but not Excel 2000 (and 97 I assume). It stops on the Paste
Special section:

If Not IsDate([C1].Value) Then
MsgBox "Please enter a date in C1!"
[C1].Value = "Enter date here"
Exit Sub
Else
thisDate = Range("Production!C1").Value
Sheets("Data").Select
ActiveSheet.Unprotect
Range("G1:BH1").Select
Selection.Copy
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=thisDate, After:=ActiveCell,
LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("Production").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Enter date here"
Sheets("PAC Track").Select
Range("C6").Select
Application.CutCopyMode = False
End If
End Sub

Many thanks.

Rob

 

[Dave Peterson]

If you do Edit|Find in xl2002+, you'll see that's it's been enhanced to allow
you to look at formats, too.

The same thing happened in code.

This portion of your .find line should be removed:
SearchFormat:=False

As a general rule, it's probably better to develop in the oldest version of
excel that the users have.

Hi,

Can anyone please tell me why the code below would run perfectly in
Excel 2003, but not Excel 2000 (and 97 I assume). It stops on the Paste
Special section:

If Not IsDate([C1].Value) Then
MsgBox "Please enter a date in C1!"
[C1].Value = "Enter date here"
Exit Sub
Else
thisDate = Range("Production!C1").Value
Sheets("Data").Select
ActiveSheet.Unprotect
Range("G1:BH1").Select
Selection.Copy
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=thisDate, After:=ActiveCell,
LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("Production").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Enter date here"
Sheets("PAC Track").Select
Range("C6").Select
Application.CutCopyMode = False
End If
End Sub

Many thanks.

Rob

 

[Rob Gould]

Thanks Dave. I re-created the macro in 2000 and compared it to 2003
and found that little extra part.

Rob