Is it not quicker and less keystrokes to just type 7 in a cell or 20 as 20 hits would be a bit tedious
What is your reasoning behind your request
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 12/17/2018 6:01:10 PM EST
On Error GoTo M
Cancel = True
Target.Value = Target.Value + 1
Exit Sub
M:
MsgBox "You did not double click on a numeric value"
End Sub
Range("A1").Value = Range("A1").Value + 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified 12/17/2018 6:54:10 PM EST
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
Target.Value = "1"
End If
End Sub
Your moving the Goal post:
This is not what you asked for in your original post.
You asked for:
Is there a way to "press the Enter key and 1 is added to current cell".
My script does that using double click.
Try this:
Any time you select any cell in column A a 1 will be entered
Install code as mentioned in previous post:
Code:Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Modified 12/17/2018 6:54:10 PM EST If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Cells.CountLarge > 1 Then Exit Sub Target.Value = "1" End If End Sub