online "excel 2000" for debugging

[johnandbeth]

Does anyone know of a place I can "use" excel 2000 online or download it so I can replicate a runtime macro error for a client?

Thanks much,
Beth

 

[Legacy 98055]

Never heard of it. You can email it to somebody who has 2000. I do not. What is the error? BTW. You should develop your spreads in the earliest version wherein users are expected to run it.

 

[just_jon]

No, but I'm sure someone here might help unless it's proprietary .

 

[johnandbeth]

It is proprietary, so that's not going to work. The problem is in 2003 and 2002, when clicking on a calculation button assigned to a macro, the following macro runs. But it gives the "runtime error 1004" in 2000. There are users who have 2000, 2002, 2003. They don't want it backward compatible for any version before 2000.

Any ideas on where it's breaking?
~Beth

Sub Rectangle2_Click()
'
Range("D12:F13").Select
Selection.Copy
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
Range("AC3:AE4").Select
ActiveSheet.Paste
Range("AE2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG6:AH1941").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range("L7:M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D7:F7").Select
Selection.ClearContents
Range("D8:F8").Select
Selection.ClearContents
Range("D9").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents
Range("D12:F12").Select
Selection.ClearContents
Range("D13:F13").Select
Selection.ClearContents
Range("I3").Select
End Sub

 

[jindon]

Hi

I'm not going to tidy up your code though

try to delete following line

DataOption1:=xlSortNormal

 

[johnandbeth]

What is that line trying to do?

Thanks,
Beth

 

[Legacy 98055]

DataOption1:=xlSortNormal

In versions previous to 2002, it's doing nothing but raising an error.

 

[johnandbeth]

Okay, sounds good, but that won't make it error in 2002 or 2003?

Thanks,
Beth

 

[Legacy 98055]

No. It is an optional argument which makes it backwards compatible.

 

[Norie]

Beth

The posted code looks like it's been generated by the macro recorder.

As jindon has hinted it could be tidied up.

When you record a macro every action is recorded and when you do things like sorting all the default parameters are used.

The first thing to do to tidy up is to remove all the scrolling code like this.

ActiveWindow.ScrollColumn = 3

Another thing is that code like this.

Range("D12:F13").Select
Selection.Copy

Can be replaced with this.

 Range("D12:F13").Copy