ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Run-time error '1004': Methor 'Range' of object '_Global' failed (https://www.excelbanter.com/excel-programming/394714-run-time-error-1004-methor-range-object-_global-failed.html)

Joe Saunders
Run-time error '1004': Methor 'Range' of object '_Global' failed
 
Can anyone help with this error message in excel 2000?

Line is:

Sub Button81_Click()
Range("E1.1.1_Final").Copy
Range("E1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.1_Data").ClearContents

Range("E1.1.2_Final").Copy
Range("E1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.2_Data").ClearContents

Range("F1.1.1_Final").Copy
Range("F1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.1_Data").ClearContents

Range("F1.1.2_Final").Copy
Range("F1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.2_Data").ClearContents

Range("F1.2.1_Final").Copy
Range("F1.2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.1_Data").ClearContents

Range("F1.2.2_Final").Copy
Range("F1.2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.2_Data").ClearContents

Range("F1.2.3_Final").Copy
Range("F1.2.3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.3_Data").ClearContents

Range("F1.2.4_Final").Copy
Range("F1.2.4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.4_Data").ClearContents

Range("G1.1_Final").Copy
Range("G1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1.1_Data").ClearContents

Range("H1.1_Final").Copy
Range("H1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1.1_Data").ClearContents

Range("I3_Final").Copy
Range("I3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I3_Data").ClearContents

Range("I5_Final").Copy
Range("I5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5_Data").ClearContents

Range("J3_Final").Copy
Range("J3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3_Data").ClearContents

Range("J4_Final").Copy
Range("J4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4_Data").ClearContents

Range("J5_Final").Copy
Range("J5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J5_Data").ClearContents

Range("J6_Final").Copy
Range("J6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6_Data").ClearContents

Range("J7_Final").Copy
Range("J7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J7_Data").ClearContents

Range("J8_Final").Copy
Range("J8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J8_Data").ClearContents

Range("J9_Final").Copy
Range("J9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9_Data").ClearContents

Range("K3_Final").Copy
Range("K3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K3_Data").ClearContents

Range("K5_Final").Copy
Range("K5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5_Data").ClearContents

Range("K6_Final").Copy
Range("K6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6_Data").ClearContents

Range("L3_Final").Copy
Range("L3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3_Data").ClearContents

Range("L4_Final").Copy
Range("L4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4_Data").ClearContents

Range("L5_Final").Copy
Range("L5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5_Data").ClearContents

Range("L6_Final").Copy
Range("L6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6_Data").ClearContents

Range("L7_Final").Copy
Range("L7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7_Data").ClearContents

Range("L8_Final").Copy
Range("L8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8_Data").ClearContents

Range("L9_Final").Copy
Range("L9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9_Data").ClearContents

Range("L10_Final").Copy
Range("L10_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10_Data").ClearContents

Range("L11_Final").Copy
Range("L11_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L11_Data").ClearContents

Range("M1.1_Final").Copy
Range("M1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M1.1_Data").ClearContents

Range("O1.1_Final").Copy
Range("O1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O1.1_Data").ClearContents

Range("P5_Final").Copy
Range("P5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P5_Data").ClearContents

Range("Q2.1_Final").Copy
Range("Q2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.1_Final").ClearContents

Range("Q2.2_Final").Copy
Range("Q2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.2_Final").ClearContents

Range("Q3.1_Final").Copy
Range("Q3.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.1_Final").ClearContents

Range("Q3.2_Final").Copy
Range("Q3.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.2_Final").ClearContents

Range("Q4.1_Final").Copy
Range("Q4.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.1_Final").ClearContents

Range("Q4.2_Final").Copy
Range("Q4.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.2_Final").ClearContents

Range("Q5.1_Final").Copy
Range("Q5.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.1_Final").ClearContents

Range("Q5.2_Final").Copy
Range("Q5.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.2_Final").ClearContents

Range("Q6.1_Final").Copy
Range("Q6.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.1_Final").ClearContents

Range("Q6.2_Final").Copy
Range("Q6.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.2_Final").ClearContents

Range("Q7.1_Final").Copy
Range("Q7.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.1_Final").ClearContents

Range("Q7.2_Final").Copy
Range("Q7.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.2_Final").ClearContents

Range("Q8.1_Final").Copy
Range("Q8.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.1_Final").ClearContents

Range("Q8.2_Final").Copy
Range("Q8.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.2_Final").ClearContents

Range("Q9.1_Final").Copy
Range("Q9.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q9.1_Final").ClearContents

Range("Q9.2_Final").Copy
Range("Q9.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q9.2_Final").ClearContents

Range("Q10.1_Final").Copy
Range("Q10.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q10.1_Final").ClearContents

Range("Q10.2_Final").Copy
Range("Q10.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q10.2_Final").ClearContents


End Sub

Any help much appreciated as always.

joel
Run-time error '1004': Methor 'Range' of object '_Global' failed
 

Here is the fix for the 1st secion

Worksheets("E1.1.1_Final").Select
Cells.Select
Selection.Copy
Worksheets("E1.1.1_Prioryr").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("E1.1.1_Data").Select
Cells.ClearContents

"Joe Saunders" wrote:

Can anyone help with this error message in excel 2000?

Line is:

Sub Button81_Click()
Range("E1.1.1_Final").Copy
Range("E1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.1_Data").ClearContents

Range("E1.1.2_Final").Copy
Range("E1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.2_Data").ClearContents

Range("F1.1.1_Final").Copy
Range("F1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.1_Data").ClearContents

Range("F1.1.2_Final").Copy
Range("F1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.2_Data").ClearContents

Range("F1.2.1_Final").Copy
Range("F1.2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.1_Data").ClearContents

Range("F1.2.2_Final").Copy
Range("F1.2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.2_Data").ClearContents

Range("F1.2.3_Final").Copy
Range("F1.2.3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.3_Data").ClearContents

Range("F1.2.4_Final").Copy
Range("F1.2.4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.4_Data").ClearContents

Range("G1.1_Final").Copy
Range("G1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1.1_Data").ClearContents

Range("H1.1_Final").Copy
Range("H1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1.1_Data").ClearContents

Range("I3_Final").Copy
Range("I3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I3_Data").ClearContents

Range("I5_Final").Copy
Range("I5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5_Data").ClearContents

Range("J3_Final").Copy
Range("J3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3_Data").ClearContents

Range("J4_Final").Copy
Range("J4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4_Data").ClearContents

Range("J5_Final").Copy
Range("J5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J5_Data").ClearContents

Range("J6_Final").Copy
Range("J6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6_Data").ClearContents

Range("J7_Final").Copy
Range("J7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J7_Data").ClearContents

Range("J8_Final").Copy
Range("J8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J8_Data").ClearContents

Range("J9_Final").Copy
Range("J9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9_Data").ClearContents

Range("K3_Final").Copy
Range("K3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K3_Data").ClearContents

Range("K5_Final").Copy
Range("K5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5_Data").ClearContents

Range("K6_Final").Copy
Range("K6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6_Data").ClearContents

Range("L3_Final").Copy
Range("L3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3_Data").ClearContents

Range("L4_Final").Copy
Range("L4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4_Data").ClearContents

Range("L5_Final").Copy
Range("L5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5_Data").ClearContents

Range("L6_Final").Copy
Range("L6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6_Data").ClearContents

Range("L7_Final").Copy
Range("L7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7_Data").ClearContents

Range("L8_Final").Copy
Range("L8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8_Data").ClearContents

Range("L9_Final").Copy
Range("L9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9_Data").ClearContents

Range("L10_Final").Copy
Range("L10_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10_Data").ClearContents

Range("L11_Final").Copy
Range("L11_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L11_Data").ClearContents

Range("M1.1_Final").Copy
Range("M1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M1.1_Data").ClearContents

Range("O1.1_Final").Copy
Range("O1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O1.1_Data").ClearContents

Range("P5_Final").Copy
Range("P5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P5_Data").ClearContents

Range("Q2.1_Final").Copy
Range("Q2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.1_Final").ClearContents

Range("Q2.2_Final").Copy
Range("Q2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.2_Final").ClearContents

Range("Q3.1_Final").Copy
Range("Q3.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.1_Final").ClearContents

Range("Q3.2_Final").Copy
Range("Q3.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.2_Final").ClearContents

Range("Q4.1_Final").Copy
Range("Q4.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.1_Final").ClearContents

Range("Q4.2_Final").Copy
Range("Q4.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.2_Final").ClearContents

Range("Q5.1_Final").Copy
Range("Q5.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.1_Final").ClearContents

Range("Q5.2_Final").Copy
Range("Q5.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.2_Final").ClearContents

Range("Q6.1_Final").Copy
Range("Q6.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.1_Final").ClearContents

Range("Q6.2_Final").Copy
Range("Q6.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.2_Final").ClearContents

Range("Q7.1_Final").Copy
Range("Q7.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.1_Final").ClearContents

Range("Q7.2_Final").Copy
Range("Q7.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.2_Final").ClearContents

Range("Q8.1_Final").Copy
Range("Q8.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.1_Final").ClearContents

Range("Q8.2_Final").Copy
Range("Q8.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.2_Final").ClearContents

Range("Q9.1_Final").Copy
Range("Q9.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q9.1_Final").ClearContents

Range("Q9.2_Final").Copy

Joe Saunders
Run-time error '1004': Methor 'Range' of object '_Global' fail
 
Thanks, but I'm not quite sure what to do with that?

Silly me.

"Joel" wrote:


Here is the fix for the 1st secion

Worksheets("E1.1.1_Final").Select
Cells.Select
Selection.Copy
Worksheets("E1.1.1_Prioryr").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("E1.1.1_Data").Select
Cells.ClearContents

"Joe Saunders" wrote:

Can anyone help with this error message in excel 2000?

Line is:

Sub Button81_Click()
Range("E1.1.1_Final").Copy
Range("E1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.1_Data").ClearContents

Range("E1.1.2_Final").Copy
Range("E1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.2_Data").ClearContents

Range("F1.1.1_Final").Copy
Range("F1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.1_Data").ClearContents

Range("F1.1.2_Final").Copy
Range("F1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.2_Data").ClearContents

Range("F1.2.1_Final").Copy
Range("F1.2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.1_Data").ClearContents

Range("F1.2.2_Final").Copy
Range("F1.2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.2_Data").ClearContents

Range("F1.2.3_Final").Copy
Range("F1.2.3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.3_Data").ClearContents

Range("F1.2.4_Final").Copy
Range("F1.2.4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.4_Data").ClearContents

Range("G1.1_Final").Copy
Range("G1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1.1_Data").ClearContents

Range("H1.1_Final").Copy
Range("H1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1.1_Data").ClearContents

Range("I3_Final").Copy
Range("I3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I3_Data").ClearContents

Range("I5_Final").Copy
Range("I5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5_Data").ClearContents

Range("J3_Final").Copy
Range("J3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3_Data").ClearContents

Range("J4_Final").Copy
Range("J4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4_Data").ClearContents

Range("J5_Final").Copy
Range("J5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J5_Data").ClearContents

Range("J6_Final").Copy
Range("J6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6_Data").ClearContents

Range("J7_Final").Copy
Range("J7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J7_Data").ClearContents

Range("J8_Final").Copy
Range("J8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J8_Data").ClearContents

Range("J9_Final").Copy
Range("J9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9_Data").ClearContents

Range("K3_Final").Copy
Range("K3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K3_Data").ClearContents

Range("K5_Final").Copy
Range("K5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5_Data").ClearContents

Range("K6_Final").Copy
Range("K6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6_Data").ClearContents

Range("L3_Final").Copy
Range("L3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3_Data").ClearContents

Range("L4_Final").Copy
Range("L4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4_Data").ClearContents

Range("L5_Final").Copy
Range("L5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5_Data").ClearContents

Range("L6_Final").Copy
Range("L6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6_Data").ClearContents

Range("L7_Final").Copy
Range("L7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7_Data").ClearContents

Range("L8_Final").Copy
Range("L8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8_Data").ClearContents

Range("L9_Final").Copy
Range("L9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9_Data").ClearContents

Range("L10_Final").Copy
Range("L10_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10_Data").ClearContents

Range("L11_Final").Copy
Range("L11_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L11_Data").ClearContents

Range("M1.1_Final").Copy
Range("M1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M1.1_Data").ClearContents

Range("O1.1_Final").Copy
Range("O1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O1.1_Data").ClearContents

Range("P5_Final").Copy
Range("P5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P5_Data").ClearContents

Range("Q2.1_Final").Copy
Range("Q2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.1_Final").ClearContents

Range("Q2.2_Final").Copy
Range("Q2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.2_Final").ClearContents

Range("Q3.1_Final").Copy
Range("Q3.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.1_Final").ClearContents

Range("Q3.2_Final").Copy
Range("Q3.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.2_Final").ClearContents

Range("Q4.1_Final").Copy
Range("Q4.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.1_Final").ClearContents

Range("Q4.2_Final").Copy
Range("Q4.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.2_Final").ClearContents

Range("Q5.1_Final").Copy
Range("Q5.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.1_Final").ClearContents

Range("Q5.2_Final").Copy
Range("Q5.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.2_Final").ClearContents

Range("Q6.1_Final").Copy
Range("Q6.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.1_Final").ClearContents

Range("Q6.2_Final").Copy
Range("Q6.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.2_Final").ClearContents

Range("Q7.1_Final").Copy
Range("Q7.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.1_Final").ClearContents

Range("Q7.2_Final").Copy
Range("Q7.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.2_Final").ClearContents

Range("Q8.1_Final").Copy
Range("Q8.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Michael
Run-time error '1004': Methor 'Range' of object '_Global' fail
 
I believe the solution provided will not help because is assuming you are
trying to copy the whole worksheet, I think what you are doing is using named
ranges for which the size of the source data range and the destination data
range must have the same size or the destination must be a one cell reference
for example A1.
So go to the Insert toolbar menu
Insert -Name - Define
Check the Range being referenced by each of the names where you are pasting
the data and change them as necessary.

Regards,

Michael Arch.

"Joe Saunders" wrote:

Thanks, but I'm not quite sure what to do with that?

Silly me.

"Joel" wrote:


Here is the fix for the 1st secion

Worksheets("E1.1.1_Final").Select
Cells.Select
Selection.Copy
Worksheets("E1.1.1_Prioryr").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("E1.1.1_Data").Select
Cells.ClearContents

"Joe Saunders" wrote:

Can anyone help with this error message in excel 2000?

Line is:

Sub Button81_Click()
Range("E1.1.1_Final").Copy
Range("E1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.1_Data").ClearContents

Range("E1.1.2_Final").Copy
Range("E1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.2_Data").ClearContents

Range("F1.1.1_Final").Copy
Range("F1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.1_Data").ClearContents

Range("F1.1.2_Final").Copy
Range("F1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.2_Data").ClearContents

Range("F1.2.1_Final").Copy
Range("F1.2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.1_Data").ClearContents

Range("F1.2.2_Final").Copy
Range("F1.2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.2_Data").ClearContents

Range("F1.2.3_Final").Copy
Range("F1.2.3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.3_Data").ClearContents

Range("F1.2.4_Final").Copy
Range("F1.2.4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.4_Data").ClearContents

Range("G1.1_Final").Copy
Range("G1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1.1_Data").ClearContents

Range("H1.1_Final").Copy
Range("H1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1.1_Data").ClearContents

Range("I3_Final").Copy
Range("I3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I3_Data").ClearContents

Range("I5_Final").Copy
Range("I5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5_Data").ClearContents

Range("J3_Final").Copy
Range("J3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3_Data").ClearContents

Range("J4_Final").Copy
Range("J4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4_Data").ClearContents

Range("J5_Final").Copy
Range("J5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J5_Data").ClearContents

Range("J6_Final").Copy
Range("J6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6_Data").ClearContents

Range("J7_Final").Copy
Range("J7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J7_Data").ClearContents

Range("J8_Final").Copy
Range("J8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J8_Data").ClearContents

Range("J9_Final").Copy
Range("J9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9_Data").ClearContents

Range("K3_Final").Copy
Range("K3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K3_Data").ClearContents

Range("K5_Final").Copy
Range("K5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5_Data").ClearContents

Range("K6_Final").Copy
Range("K6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6_Data").ClearContents

Range("L3_Final").Copy
Range("L3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3_Data").ClearContents

Range("L4_Final").Copy
Range("L4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4_Data").ClearContents

Range("L5_Final").Copy
Range("L5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5_Data").ClearContents

Range("L6_Final").Copy
Range("L6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6_Data").ClearContents

Range("L7_Final").Copy
Range("L7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7_Data").ClearContents

Range("L8_Final").Copy
Range("L8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8_Data").ClearContents

Range("L9_Final").Copy
Range("L9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9_Data").ClearContents

Range("L10_Final").Copy
Range("L10_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10_Data").ClearContents

Range("L11_Final").Copy
Range("L11_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L11_Data").ClearContents

Range("M1.1_Final").Copy
Range("M1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M1.1_Data").ClearContents

Range("O1.1_Final").Copy
Range("O1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O1.1_Data").ClearContents

Range("P5_Final").Copy
Range("P5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P5_Data").ClearContents

Range("Q2.1_Final").Copy
Range("Q2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.1_Final").ClearContents

Range("Q2.2_Final").Copy
Range("Q2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.2_Final").ClearContents

Range("Q3.1_Final").Copy
Range("Q3.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.1_Final").ClearContents

Range("Q3.2_Final").Copy
Range("Q3.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.2_Final").ClearContents

Range("Q4.1_Final").Copy
Range("Q4.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.1_Final").ClearContents

Range("Q4.2_Final").Copy
Range("Q4.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.2_Final").ClearContents

Range("Q5.1_Final").Copy
Range("Q5.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.1_Final").ClearContents

Range("Q5.2_Final").Copy
Range("Q5.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.2_Final").ClearContents

Range("Q6.1_Final").Copy
Range("Q6.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.1_Final").ClearContents

Range("Q6.2_Final").Copy
Range("Q6.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.2_Final").ClearContents

Range("Q7.1_Final").Copy
Range("Q7.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.1_Final").ClearContents

Range("Q7.2_Final").Copy
Range("Q7.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _


All times are GMT +1. The time now is 03:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com