online "excel 2000" for debugging

johnandbeth

Board Regular
Joined
Apr 8, 2002
Messages
168
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
 

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.
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.
 
Upvote 0
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
 
Upvote 0
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.
Code:
ActiveWindow.ScrollColumn = 3
Another thing is that code like this.
Code:
Range("D12:F13").Select
Selection.Copy
Can be replaced with this.
Code:
 Range("D12:F13").Copy
 
Upvote 0

Forum statistics

Threads
1,218,496
Messages
6,142,817
Members
450,449
Latest member
Dave Carr QM

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top