Hello:

I have the following code to add numbers to a cell when double clicking. Is
it poosible to do the same thing instead of double clicking just by scrolling
the scroll button on the mouse?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Target.Cells.Count 1 Then Exit Sub

Cancel = True 'stop editing in cell
If IsNumeric(Target.Value) Then
Target.Value = Target.Value + 1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)

Cancel = True 'stop pop up from showing
If ActiveCell.Value <= 1 Then
ActiveCell = ""
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Excel must know what cell you want to use as the target cell. When you
simply scroll the mouse wheel, what cell do you want Excel to use? Excel
doesn't know either. You can do what you want by simply selecting the cell
(click on the cell) and using a Worksheet_Change event macro. HTH Otto
"art" wrote in message
...
Hello:

I have the following code to add numbers to a cell when double clicking.
Is
it poosible to do the same thing instead of double clicking just by
scrolling
the scroll button on the mouse?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Target.Cells.Count 1 Then Exit Sub

Cancel = True 'stop editing in cell
If IsNumeric(Target.Value) Then
Target.Value = Target.Value + 1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)

Cancel = True 'stop pop up from showing
If ActiveCell.Value <= 1 Then
ActiveCell = ""
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

thats what I meant. Can you please give me the full code for that? (the
Worksheet_Change event macro).

Please let me know.

Thanks.



"Otto Moehrbach" wrote:

Excel must know what cell you want to use as the target cell. When you
simply scroll the mouse wheel, what cell do you want Excel to use? Excel
doesn't know either. You can do what you want by simply selecting the cell
(click on the cell) and using a Worksheet_Change event macro. HTH Otto
"art" wrote in message
...
Hello:

I have the following code to add numbers to a cell when double clicking.
Is
it poosible to do the same thing instead of double clicking just by
scrolling
the scroll button on the mouse?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Target.Cells.Count 1 Then Exit Sub

Cancel = True 'stop editing in cell
If IsNumeric(Target.Value) Then
Target.Value = Target.Value + 1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)

Cancel = True 'stop pop up from showing
If ActiveCell.Value <= 1 Then
ActiveCell = ""
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub