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

G

Guest

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.
 
G

Guest

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
 
G

Guest

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
Run-time error '1004': 1
Help with condensing a lot of copying/pasting... 4
a few adjustment for a do-loop escape 4
Pasting 2
Run macro on selected sheets 10
Whats wrong with this? MyWBAccRep.Sheets("Volumes").Cells.Find("latest").Copy.Offset(0, 2
Copy Paste Macro not Pasting Values when Blank 3

Top