cell +1 with one button?

  • Thread starter Thread starter pus-link
  • Start date Start date
P

pus-link

HI!

I need to know how to add '1' to a cell using only one button. Meaning
value WAS 3 and becomes 4.
Is there a way to do this?
It is for live stats in a sports game, så speed is of the essense. That
is why it has to be a "1-button operation."

Thanks in advance!
 
Attach this macro to the button:

Public Sub Add1()
With ActiveCell
If IsEmpty(.Value) Or IsNumeric(.Value) Then _
.Value = .Value + 1
End With
End Sub
 
Hi there, um, er, pus-link,

I don't know of a "non-macro" way which is always available with a click of
one button, so I would recommend using the following macro, which will
increment the *active* cell by 1.

Sub Macro1()
ActiveCell.FormulaR1C1 = ActiveCell.Formula + 1
End Sub

You could then either assign it a keyboard shortcut (for example, Control +
q) or a toolbar shortcut, or create a button on your spreadsheet which is
linked to that macro.

HTH,
Katherine
 
How about a "Spinner" from the Forms Toolbar. You could spin up or down.

Gord Dibben XL2002
 
Back
Top