Quick addition in cells

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
 
D

Don Guillett

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
 
G

Gord Dibben

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
 
Top