Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 _ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error 1004 Method 'Range' of object '_Global' failed | Excel Programming | |||
Run-time error '1004': Method 'Cells' of object _Global failed | Excel Programming | |||
Run-time error '1004': Method 'Range' of object '_Global' failed | Excel Programming | |||
Run-time error '1004': Method 'Range' of object '_Global' failed | Excel Programming | |||
"Run-time error '1004'" Method 'Range' of object '_global' failed. | Excel Programming |