Double click to add one

[-emma-]

Hi everyone and thanks for your time

I am hoping someone can help me out with what I need - I dont really know where to start with these things...

What I want sounds easy but I am clueless!

Within the range C4:G26 each cell has a number in it. What I need is when a certain cell is double clicked on, the number in that call increases by 1.

For example, C6 has the number 5 in it. When I double click within C6, the number increases to 6.

Any suggestions welcome - Thank you!

 

[6StringJazzer]

This requires VBA.

Put this code into the module for the sheeting containing the range you mentioned.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Not Intersect(Target, Range("C4:G26")) Is Nothing Then
      Cancel = True
      Target = Target + 1
   End If

End Sub

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("C4:G26")) Is Nothing Then
      Target.Value = Target.Value + 1
      Cancel = True
   End If
End Sub

 

[Saurabhj]

Hi,

Use below code on Worksheet Before Double Click event:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("C4:G26")) Is Nothing Then
    Target.Value = Target.Value + 1
End If
End Sub

 

[Fluff]

Personally I would recommend putting the Cancel=Trueinside the If like Jeff & I did. Otherwise you are preventing the user from going into edit mode.