Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Run Time Error 1004
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 96
Default Run Time Error 1004
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

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3,942
Default Run Time Error 1004
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
"Qaspec" wrote:

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

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3,290
Default Run Time Error 1004
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

Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 96
Default Run Time Error 1004
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

"Jim Cone" wrote:

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


Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default Run Time Error 1004
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.



Qaspec wrote:

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

"Jim Cone" wrote:

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



--

Dave Peterson
Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 96
Default Run Time Error 1004
That works. Thank you.

"Dave Peterson" wrote:

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.



Qaspec wrote:

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

"Jim Cone" wrote:

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



--

Dave Peterson

Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 703
Default Run Time Error 1004
would be nice if they fixed that little quirk

"Dave Peterson" wrote:

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.



Qaspec wrote:

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

"Jim Cone" wrote:

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



--

Dave Peterson

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

Advanced Search
Display Modes
Linear Mode Linear 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
run time error 1004 general odbc error excel 2003 vba Mentos Excel Programming 5 January 24th 11 02:56 PM
Run Time Error 1004: Application or Object Defined Error BEEJAY Excel Programming 4 October 18th 06 04:19 PM
Run Time 1004 Error: Application or Object Difine Error BEEJAY Excel Programming 0 October 17th 06 10:45 PM
run-time error '1004': Application-defined or object-deifined error [email protected] Excel Programming 5 August 10th 05 09:39 PM
Run time error 1004 General ODCB Error Kevin Excel Programming 3 February 26th 05 12:51 PM


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

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

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement