Quick addition in cells

  • Thread starter Thread starter Uberman
  • Start date Start date
U

Uberman

I want to be able to select a cell in Excel and hit the plus key (or an
other key would work too) to have it add 1 to the total in the cell.

Is it possible
 
Put this in a macro module and assign to any shortkey available to you.
Sub addone()
If IsNumeric(ActiveCell) Then ActiveCell = ActiveCell + 1
End Sub
 
How about two keys?

Copy/paste this code to a general module in your workbook then assign a
shortcut key combo to it.

Sub Addone()
Dim Cell As Range
For Each Cell In Selection
If IsNumeric(Cell.Value) Then
Cell.Value = Cell.Value + 1
End If
Next
End Sub

Gord Dibben Excel MVP
 
Back
Top