Increment Cell Value by 1

[Guest]

I have a fairly simple operation I am trying to implement.

I have a command button called "Screen" in worksheet "Sheet1" of Workbook
"Book1". When I click it, I want the value in cell C2 to increase by one
(e.g., if C2 = 3, I want it to automatically increase to 4 when I click
Screen.

Can anyone provide code for this operation?

Thanks,
Bob

 

[Guest]

Assign your button to:

Sub marine()
With Workbooks("Book1.xls").Sheets("Sheet1").Range("C2")
.Value = .Value + 1
End With
End Sub

 

[merjet]

From Control Toobox toolbar? If yes, right-click, view code, then:
Private Sub CommandButton1_Click()
Range("C2") = Range("C2") + 1
End Sub

Hth,
Merjet

 

[Guest]

I don't have a programming background, so I need to ask, How do I assign the
button to this code?

Thanks very much,
Bob

 

[Guest]

Sorry, but I am still having trouble. From the Control Toolbox toolbar, I
selected Button and created a button called "CommandButton1". I right-clicked
and selected View Code. I pasted the code you provided, saved and returned to
Excel. But when I go to click the button, the button becomes selected,
resizing handles appear and the value in the C2 does not change. It appears
as if the button is not associated with the code.

What am I doing wrong?

Thanks,
Bob

 

[Guest]

1. put the code in a standard module:

1.a. from Excel ALT-F11 to get the VBE window
1.b. touch ALT-I
ALT-M to get a fresh module
1.c. paste the stuff in
1.d. close the VBE window

2. in Excel make a button using the forms tools
3. right-click the button and assign the macro.

 

[merjet]

See that upper left icon (including a triangle) on the Control Toolbox
toolbar?
That toggles Design Mode. In Design Mode, you add/modify code. Not in
Design Mode, the code is used when you click the CommandButton.

Hth,
Merjet

 

[Gord Dibben]

Bob

You are still in "Design Mode"

Bring down the Control Toolbox bar and de-select design mode(top left icon)


Gord Dibben MS Excel MVP