Linking Spin Button to active cell in worksheet

[jlw446]

I am trying to add one spin button that will be able to be used to increase/decrease any active cell in a data worksheet. The data worksheet has rows which are half hour timeslots and the columns are the type of work that is being completed. For example, from 8:30-9:00 (row 2) we need to keep track of the number of clients seen (Column B), number of payments received (column C), etc. What I need is for the staff to be able to click on cell B2 for instance and then use the spin button to increase the number in that cell by one each time they see a client in the applicable half hour timeslot. Then be able to click on cell C2 and using the same spin button, increase that cell by 1. This needs to be able to happen throughout the entire worksheet. I am wondering if anyone would be able to help me out with the correct VBA coding for this worksheet.

[jolivanes]

I don't know if you can use a single spin button for multiple cells.
But you could use just a regular button and have code to increase the value of the selected cell by one.
BTW, Are you not afraid the spin button will freeze with the temperatures you have!!!!

[jlw446]

Thanks so much for responding so quick. It works great! It is really cold here!!! I have family that live near a huge lake in central Saskatchewan and after last night it now has over 4 inches of ice on it (the lake is almost 2km wide and is over 300 feet deep in the middle) Many cars aren't starting today even if you had the block heater plugged in! It's crazy! We normally don't get this cold till January

[jolivanes]

Good to hear that you can work with it.
The weather is not much better here in Edmonton but the end is in sight (March???)

[jacobzuma]

Hi jolivanes; I know this is a long shot as you posted this solution over 6 years ago, but I'm having some issues using your "increase selection" button on certain cells. If i copy the button into my spreadsheet, it works for blank cells, but on other cells I get a "Run-time error ‘13’: Type mismatch’" message. When I go into the vba dialog box it highlights the ".value = .value + 1" line. Any idea how I could fix this? Thank you so much for the solution! It was really helpful.

I'm basically trying to find a way to add and subtract the numbers of selected cells with a single button. Ideally that button could stay at the top of the screen even if I scroll similar to a freezing a pane. I also want to find a way to copy that button to multiple sheets! Thank you!

[FDibbins]

Hi jolivanes; I know this is a long shot as you posted this solution over 6 years ago, but I'm having some issues using your "increase selection" button on certain cells. If i copy the button into my spreadsheet, it works for blank cells, but on other cells I get a "Run-time error ‘13’: Type mismatch’" message. When I go into the vba dialog box it highlights the ".value = .value + 1" line. Any idea how I could fix this? Thank you so much for the solution! It was really helpful.

I'm basically trying to find a way to add and subtract the numbers of selected cells with a single button. Ideally that button could stay at the top of the screen even if I scroll similar to a freezing a pane. I also want to find a way to copy that button to multiple sheets! Thank you!

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread