Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Run-time error '1004': Methor 'Range' of object '_Global' failed
 
 
LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 5
Default 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.



Reply With QuoteReply With Quote
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Threaded Mode Threaded Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Error 1004 Method 'Range' of object '_Global' failed bjwade62 Excel Programming 4 August 7th 06 03:57 PM
Run-time error '1004': Method 'Cells' of object _Global failed Fran D[_6_] Excel Programming 3 May 12th 06 04:44 PM
Run-time error '1004': Method 'Range' of object '_Global' failed Neild Excel Programming 0 February 12th 06 11:43 PM
Run-time error '1004': Method 'Range' of object '_Global' failed Tim Williams Excel Programming 2 February 12th 06 10:01 PM
"Run-time error '1004'" Method 'Range' of object '_global' failed. haisat[_2_] Excel Programming 0 October 20th 03 12:13 PM


All times are GMT +1. The time now is 06:25 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement