Clearing Cells using a Macro and a button

[hsingh2088]

I've tried at least 4 or 5 different solutions on this forum and none of them have worked. I need to clear contents of cells within a range from rows 12 to 26, then rows 29 to 31 then 33 to 49 then 42 to 43 and columns E through N. I don't need any fancy coloring or anything like that, I just want to clear the contents of the cells. Can someone please show me the code for a sheet called "Summary?"

Thanks

 

[Jonmo1]

Try

Intersect(Range("E:N"), Range("12:26, 29:31, 33:49")).ClearContents

 

[HalfAce]

If I understand, you want to clear contents of the ranges E12:N26, E29:N31 and E33:N49. Is that right?
If so then this is all you should need.

Sub ClearMyRanges()
Range("E12:N26, E29:N31, E33:N49").ClearContents
End Sub

Does that help?

 

[hsingh2088]

Both solutions give me "Run=time error '1004': Application-defined or object-defined error"

 

[HalfAce]

Can you show us the code you're using?

 

[hsingh2088]

Sub ClearMyRanges()
Range("E12:N26, E29:N31, E33:N49").ClearContents
End Sub</pre>

 

[Jonmo1]

Sub ClearMyRanges()
Range("E12:N26, E29:N31, E33:N49").ClearContents

End Sub
</PRE>

that works for me without error..
Are you sure that's the ENTIRE code?
Or are you just "simplifying" for our benefit?

 

[hsingh2088]

I just created a blank work book and randomly filled out the cells and it worked for me; however, when I use it for a different workbook I am trying to make it work for, I get that stupid error. I am not sure what I am missing for the workbook that I want this code to work for..

 

[Jonmo1]

I am unable to duplicate your error...

Does it work like this

Sub ClearRanges()
Range("E12:N26").ClearContents
Range("E29:N31").ClearContents
Range("E33:N49").ClearContents
End Sub

 

[hsingh2088]

I figured it out. Apparently you can't clear merged cells with that code. Do you by any chance know the code that would include having to clear merged cells?