VB for Enter Key and Double Click

[Rocky0201]

Hi,

I have VB written that acts upon a double click preformed on a cell.

This works great. The question I have; is it possible to also act if an enter key is press on the same cell?

My code in the worksheet vb:

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

'-------------------------------------------------------
'Hardware Master - Do on Double Click
'-------------------------------------------------------

Set theRange = Range("L4:L" & 4)

If Not Intersect(Target, theRange) Is Nothing Then

SheetName = Me.Name

UserForm1.Show

Endif

End Sub

 

[VoG]

If you mean when you enter a value try

Private Sub Worksheet_Change(ByVal Target As Range)
Set theRange = Range("L4:L" & 4)
If Not Intersect(Target, theRange) Is Nothing Then
    SheetName = Me.Name
    UserForm1.Show
End If
End Sub

 

[Rocky0201]

Thanks VoG...

I want the user to be able to enter data into cell L4 then press enter or, double click cell L4 and a userform appears.

If the user enters information into L4 the presses the enter key, I do not want to launch the userform. If they double click L4, then I want to launch the userform.

With the user pressing the enter key after data is entered into cell L4, I will take a different path in my code than if they double clicked on cell L4.

Thanks again.

 

[VoG]

In that case try

Private Sub Worksheet_Change(ByVal Target As Range)
Set theRange = Range("L4:L" & 4)
If Not Intersect(Target, theRange) Is Nothing Then
    '
    'do something
    '
End If
End Sub

 

[Rocky0201]

Sorry to be a pain VoG...

You may be giving me the answer I want but I don't get it just yet...

Here's what I'm lookng for:

Private Sub Worksheet_Change(ByVal Target As Range)
Set theRange = Range("L4:L" & 4)
If Not Intersect(Target, theRange) Is Nothing Then
If Enter Key pressed then
.
.
Do this
.
.
Else if Double Click
.
.
Do this
.
.
End If
End Sub

I guess I'm looking to act upon one of two events that can occur in the same worksheet.

Thanks again.

 

[VoG]

So you need both pieces of code as separate subs within the worksheet's code module.

BeforeDoubleClick will run on double clicking.

Worksheet_Change will run on pressing Enter.

 

[Jonmo1]

It will be 2 different codes.

KEEP the code you already have that you originally posted.

In ADDITION to that code, put in the code Vog posted.
replace the line
'do something
with whatever it is you want to do when Enter is pressed.

 

[Rocky0201]

Thanks to you both, VoG and jonmo1...

Works great!!