VBA code run when I presse Enter

[KlausW]

Hi, I found this VBA code here on MrExcel and it works really well. The only thing I could think of was that I should not enter any text in column D and press ENTER. If I stand in column D and do not type anything, the VBA code does not run. But if I write something in column D run the VBA code. Anyone who can help? Any help will be appreciated. Best Regards Klaus W

Private Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, Sheets("Prisliste").Range("d9:d4000")) Is Nothing Then

 Call Prisliste_Overfør_Varer_Klik
 
End If

End Sub

 

[KlausW]

If you want to run code when a cell is edited but only if the editing is followed by pressing the ENTER key, you can use try something like this:

In the worksheet module:

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If

Private Sub Worksheet_Change(ByVal Target As Range)
    If GetAsyncKeyState(VBA.vbKeyReturn) Then
        MsgBox Target.Address & " was edited and followed by pressing the ENTER key"
    End If
End Sub

Other navigation keys such as TAB, Arrow keys etc as well as the mouse won't run the code

Hi I can't get it to work but I have tried this. Can it work? KW