View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Mike H Mike H is offline
external usenet poster
 
Posts: 11,501
Default Button that will increment by 1

Hi,

View|Toolbars|Forms and click the 'Button Icon' and draw a button over B2 by
dragging. As soon as you stop dragging in the popup window click 'New' and
enter this code

Sub Button1_Click()
Range("C2").Value = Range("C2").Value + 1
End Sub

It will already have the first and last lines. Repeat this process for your
other buttons modifying the range C2 as appropriate.

Mike


"Mr-Re Man" wrote:

I am in the process of trying to create a spreadsheet that will have 5 buttons.
I want to position the button in cell B2, then when pressed it will
increment cell C2 by 1.

Then I need to repeat this 4 times so I'll have buttons and results in cells
B3 & C3, B4 & C4 etc.

I used this code from another thread, Selection.Value = Selection.Value + 1,
but it didn't work for 2 buttons, it incremented the same value whichever
button was pressed.