Intersect also working with Delete key

[placasse]

Hi,
I have this macro that intersects any time a value is changed within a specific range. Everything works fine except it doesn't run when I hit the Del key on any of the cells of that range.

How do we make it work so it will Intersect on Del key too ?


Part of my code:

Dim keycells As Range
Set keycells = Worksheets("$can").Range("013:0312")
If Not Intersect(keycells, Range(Target.Address)) Is Nothing Then

Thank you for your help

Pierre

 

[Peter_SSs]

Works for me when part of a Worksheet_Change event code in sheet "$can" when I delete something in rows 13:312.

Can you confirm that
- this is part of Worksheet_Change event code?
- the code is in the "$can" sheet module?

I tested with this code (though the code could be simplified a little)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim keycells As Range
    
    Set keycells = Worksheets("$can").Range("013:0312")
    If Not Intersect(keycells, Range(Target.Address)) Is Nothing Then
        MsgBox "code fired"
    End If
End Sub

 

[placasse]

Hi,
thank you for the reply.

I tested it into a different worksheet and like you said, it is working

I found out that I had this line in $can sheet code:
Application.OnKey Key:="{DEL}", Procedure:="AlertUser"
Which I think disable the del key. If I remark the line, it works fine.

Now I will have to find a way to put it on or off depending where I am in the code.

Thank you

Pierre

 

[placasse]

Hi again,
I was able to enable the Delete key to work within my code.

Do you know a simple way of detecting within the Worksheet_Event when the Delete key is depressed so I could run other code when this happens ?

Thank you Pierre