Referring to BeforeDoubleClick
You could create a public variable in a General module -- not behind the
worksheet and not in the userform's code.
Public myOption as long 'or boolean
Then change that value to whatever you need in the code for the userform.
Then you can check that variable's value in your event code:
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 myoption = 1 then
'do the stuff for option 1
else
'do the stuff for option 2
end if
End Sub
art wrote:
Hello All:
I have a VBA Code Using the BeforeDoubleClick.
My Question is how do I refer to that Sub?
I want to make that if the user selects from a userform option 1 then
BeforeDoubleClick should one way, if user selects option 2 then
BeforeDoubleClick should work differently. Is there a way to do this? How Can
I do this? Below are the BeforeDoubleClick code and the userform code that I
want to use.
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 OKButton_Click()
On Error Resume Next
If optionRightAdd Then
Run Macro50
End If
If OptionLeftAdd Then
Run Macro51
End If
Unload UserForm1
End Sub
Thanks in Advance.
--
Dave Peterson
|