creating a reset button for selected cells

Attach a sample workbook. You'll get faster response.
There are ways to turn off the screenupdating that will stop the movements.
modytrane

made some progress. added the code for the ranges I want to reset, but when I try to add any more cells it keeps saying there is a bug. I actually had to add a section of ranges at a time and continue to try it for it to work, could not get it to accept all the cells at first.
The highlighted acqua sections (Qnty) are the area I want to reset.

Thanks

see attached workbook.
The easiest approach would be if you fill all of the qty. cells with the same color.
Enter some values in qty. and click the "Reset" button.
All cells with the same color will be reset.
Simple macro [see below], checks for color of the cells and resets all cells with that color.
This way you don't have to add anything to the macro.
modytrane.

Sub resetcells()


Application.ScreenUpdating = False

 For Each c In ActiveSheet.Range("A1:AZ1000").Cells
        If c.Interior.Color = 16777164 Then c.ClearContents
    Next


Application.ScreenUpdating = True

End Sub

Here's the same file saved in XL2003.
Hopefully you'll be bale to open this.
modytrane

That will work perfectly once i figure some things out:

1. how come I cannot click on design mode, dclick button and bring up the code editor box? I was able to do so with the 'command' button i first established, but not with your 'reset' button.
2. tried copying the code from this page and putting a button on another sheet but did not have anything happen.
why would that be? same code, colors etc
3. how do i get the color #'s if I'm changing to different cell colors?

Thanks Mark

see attached file.
I was able to copy the button on next sheet and it still works.
I created sheet3 where you can fill cell E6 with a color, click the code button and it will show you the color code in F6.
hope this works for you.
Otherwise the issue could be that I am working with XL2007 and saving the file as XL2003.
So in the process of converting, something is getting lost.
You should be able to write the same codes and make it work.
modytrane.

Here's the code for identifying color codes.

Sub Button1_Click()

ActiveSheet.Range("F6").Value = Range("E6").Interior.Color

End Sub

modytrane thank you very much for all your help. I will try that tonight and let you know how it goes.

Mark

modytrane.....that is exactly what I needed. Copied fine and works great, you made that real simple, thank you so much, I really do appreciate it.

Mark

If you are satisfied with the solution, please mark the thread "SOLVED".
Thank You,
modytrane