Run Time Error 1004

Q

Qaspec

I'm getting Run Time Error 1004 message when I run the following sub. I have
tried switching form Me to Worksheets("Sheet1') and I still received the same
error. I thought this same function worked for me the other day but
apparantly I've missed something or the universe and everything in it has
fundamentally changed without my knowing it this Monday. Thanks.

Private Sub CC1_Click()

Me.Range("C8:H36").ClearContents
Me.Range("J8:K14").ClearContents
Me.Range("E59:I81").ClearContents
Me.Range("E105:I127").ClearContents
Me.Range("E151:I173").ClearContents
Me.Range("E197:I219").ClearContents
Me.Range("E243:I265").ClearContents
Me.Range("E289:I311").ClearContents
Me.Range("E335:I357").ClearContents
Me.Range("E381:I403").ClearContents
Me.Range("E427:I449").ClearContents
Me.Range("E473:I495").ClearContents
Me.Range("E519:I541").ClearContents
Me.Range("E565:I587").ClearContents
Me.Range("E611:I633").ClearContents
Me.Range("E657:I679").ClearContents
Me.Range("E703:I725").ClearContents
Me.Range("E749:I771").ClearContents
Me.Range("E795:I817").ClearContents
Me.Range("E841:I863").ClearContents
Me.Range("E887:I909").ClearContents
Me.Range("E933:I955").ClearContents


End Sub
 
F

FSt1

hi
i run your code as is and got a compiler error..invalid use of the me word.
i change the code to....
Sheet1.Range("C8:H36").ClearContents
....and it worked fine. I put some dummy data in the range above but not the
others.
i didn't get any errors and the dummy data disappeared.

using xp/2003
Regards
FSt1
 
J

Jim Cone

Perhaps the worksheet is protected?
Helpful posting advice here... http://www.cpearson.com/excel/newposte.htm
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Qaspec"
wrote in message
I'm getting Run Time Error 1004 message when I run the following sub. I have
tried switching form Me to Worksheets("Sheet1') and I still received the same
error. I thought this same function worked for me the other day but
apparantly I've missed something or the universe and everything in it has
fundamentally changed without my knowing it this Monday. Thanks.

Private Sub CC1_Click()
Me.Range("C8:H36").ClearContents
Me.Range("J8:K14").ClearContents
Me.Range("E59:I81").ClearContents
Me.Range("E105:I127").ClearContents
Me.Range("E151:I173").ClearContents
Me.Range("E197:I219").ClearContents
Me.Range("E243:I265").ClearContents
Me.Range("E289:I311").ClearContents
Me.Range("E335:I357").ClearContents
Me.Range("E381:I403").ClearContents
Me.Range("E427:I449").ClearContents
Me.Range("E473:I495").ClearContents
Me.Range("E519:I541").ClearContents
Me.Range("E565:I587").ClearContents
Me.Range("E611:I633").ClearContents
Me.Range("E657:I679").ClearContents
Me.Range("E703:I725").ClearContents
Me.Range("E749:I771").ClearContents
Me.Range("E795:I817").ClearContents
Me.Range("E841:I863").ClearContents
Me.Range("E887:I909").ClearContents
Me.Range("E933:I955").ClearContents
End Sub
 
Q

Qaspec

It was shared and protected but I unprotected and unshared the document. I
also tried to change from Me to Sheet1 but I'm still getting the same Run
Time Error 1004.

Private Sub CC1_Click()

Sheet1.Range("C8:H36").ClearContents
Sheet1.Range("J8:K14").ClearContents
Sheet1.Range("E59:I81").ClearContents
Sheet1.Range("E105:I127").ClearContents
Sheet1.Range("E151:I173").ClearContents
Sheet1.Range("E197:I219").ClearContents
Sheet1.Range("E243:I265").ClearContents
Sheet1.Range("E289:I311").ClearContents
Sheet1.Range("E335:I357").ClearContents
Sheet1.Range("E381:I403").ClearContents
Sheet1.Range("E427:I449").ClearContents
Sheet1.Range("E473:I495").ClearContents
Sheet1.Range("E519:I541").ClearContents
Sheet1.Range("E565:I587").ClearContents
Sheet1.Range("E611:I633").ClearContents
Sheet1.Range("E657:I679").ClearContents
Sheet1.Range("E703:I725").ClearContents
Sheet1.Range("E749:I771").ClearContents
Sheet1.Range("E795:I817").ClearContents
Sheet1.Range("E841:I863").ClearContents
Sheet1.Range("E887:I909").ClearContents
Sheet1.Range("E933:I955").ClearContents

End Sub
 
D

Dave Peterson

What line causes the error?

Do you have any merged cells in that range (on that line)?

me.range("c8:h36").value = ""

is one way around it.

====
If the button is on a worksheet that has a codename of Sheet1, then using Me and
Sheet1 isn't causing the trouble.
 
Q

Qaspec

That works. Thank you.

Dave Peterson said:
What line causes the error?

Do you have any merged cells in that range (on that line)?

me.range("c8:h36").value = ""

is one way around it.

====
If the button is on a worksheet that has a codename of Sheet1, then using Me and
Sheet1 isn't causing the trouble.
Click to expand...
 
C

Charlie

would be nice if they fixed that little quirk

Dave Peterson said:
What line causes the error?

Do you have any merged cells in that range (on that line)?

me.range("c8:h36").value = ""

is one way around it.

====
If the button is on a worksheet that has a codename of Sheet1, then using Me and
Sheet1 isn't causing the trouble.
Click to expand...
 
Top