Macro no Excel que captura a tecla DEL quando pressionada

[kaleo.rs]

Bom dia!

 

Preciso um comando que identifique a tecla pressionada, mais precisamente a tecla DEL.

 

Na PLAN1 inseri um sub que controla uma RANGE especifica para saber se houve digitação. Quando houve ela executa uma outra Macro que está no Módulo 1 e valida os dados digitados. Porém ao tecla DEL eu não consigo faz um teste. Abaixo um resumo

 

PLAN1

Private Sub Worksheet_Change(ByVal faixa As Range)

    Dim monitorar As Range

    Set monitorar = Range("A4:A2000")

    If Not Intersect(faixa, monitorar) Is Nothing Then

         Call Testa_Dia

    End If

End Sub

 

MÓDULO 1

Sub Testa_Dia()

 

'   Capturo a Linha e Coluna da célula selecionada após pressionar ENTER ou TAB 

 

    xLin = ActiveCell.Row

    xCol = ActiveCell.Column

 

' Quando pressionado DEL a Linha e Coluna não alteram

 

    If xCol > 1 Then

        xC = 1

    Else

        xL = 1

    End If

 

' Como a Linha e Coluna não foi trocada a Macro considera como se tivesse sido trocado a Linha ou Coluna

 

    If IsDate(Cells(xLin - xL, xCol - xC).Value) Then

        Data_Cel = Cells(xLin - xL, xCol - xC).Value

        xData_Valida = "S"

     End If

End Sub

 

[Basole]

Segue um ex. veja se consegue adpta a sua macro: 

....na sua plan:

Private Sub Worksheet_Change(ByVal Target As Range)  Application.OnKey Key:="{DEL}", Procedure:="SuaMacro"End Sub

...em um modulo: 

Sub SuaMacro() '...codigo aqui...End sub

[kaleo.rs]

Eu preciso atribuir a uma variável um valor para fazer um teste lógico.

 

Variável = foi pressionado DEL

 

IF variavel = foi pressionado DEL Then

      msgbox "Você teclou DEL"

else

      msgbox "prosiga"

end if