Macro to increment cell by one

[duskwood47]

So I need to create a macro that will increment the cell immedietly to the right of the cell that would have a button to increment by one. I know I could a simple

Public Sub AddOne()
Range("C3").Value = Range("C3") + 1
End Sub

to accomplish what I need however I will have around 10 buttons total and dont want a different macro for each one.

Help please!

 

[Eric W]

You don't even need a macro. You could just insert a Spin button.

If you do not have the Developer tab on your ribbon, click File > Options > Customize Ribbon > and under the Main Tabs box on the right, check Developer.

Select the cell where you want the button, say C2. Now from the Developer tab, click Insert > Form Controls > Spin Button. Use the mouse to create the spin button on the sheet where you want it. Now right click on the spin button and select Format Control. Change minimum value to 1. Change the Cell link to C3 (or wherever you put the counter). Click OK.

Now you can click on the spin button, up or down, and it will increment C3 appropriately.

 

[duskwood47]

This was perfect. I appreciate the help! Thank you!

 

[Eric W]

Glad to help!

 

[TrulsF]

You don't even need a macro. You could just insert a Spin button.

If you do not have the Developer tab on your ribbon, click File > Options > Customize Ribbon > and under the Main Tabs box on the right, check Developer.

Select the cell where you want the button, say C2. Now from the Developer tab, click Insert > Form Controls > Spin Button. Use the mouse to create the spin button on the sheet where you want it. Now right click on the spin button and select Format Control. Change minimum value to 1. Change the Cell link to C3 (or wherever you put the counter). Click OK.

Now you can click on the spin button, up or down, and it will increment C3 appropriately.

You don't even need a macro. You could just insert a Spin button.

If you do not have the Developer tab on your ribbon, click File > Options > Customize Ribbon > and under the Main Tabs box on the right, check Developer.

Select the cell where you want the button, say C2. Now from the Developer tab, click Insert > Form Controls > Spin Button. Use the mouse to create the spin button on the sheet where you want it. Now right click on the spin button and select Format Control. Change minimum value to 1. Change the Cell link to C3 (or wherever you put the counter). Click OK.

Now you can click on the spin button, up or down, and it will increment C3 appropriately.

 

[TrulsF]

Just to let you know that it was extremely useful to me today. Thanks a lot.