Este fórum está sendo desativado

[JapSmart]

Como faço para executar um bloco de comando se a tecla enter for pressionada no evento change da worksheet?

Neste exemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 and "tecla enter pressionada" Then
ActiveSheet.Range("$A$2:$F$" & UltimaLinha).AutoFilter Field:=3
ActiveSheet.Range("$A$2:$F$67").AutoFilter Field:=3, Criteria1:="=a", _
Operator:=xlOr, Criteria2:="=p"
Application.EnableEvents = True
ActiveWorkbook.Save
End If
end sub

[Basole]

Não tem o evento Enter No worksheet, mas pode-se capturar a tecla Enter com a função Onkey
colocando o metodo na abertura da pasta de trabalho, para ao digitar Enter, chama sua macro

Código: Selecionar todos

  Sub Auto_open()

Excel.Application.OnKey "{ENTER}", "Sua_Macro"
 
End Sub

... sua macro ....

Código: Selecionar todos

Sub Sua_Macro()
If Not Excel.Application.Intersect(Selection, Range("A1:Z1")) Is Nothing Then
   If ActiveCell.Row > 2 Then
    ActiveSheet.Range("$A$2:$F$" & UltimaLinha).AutoFilter Field:=3
    ActiveSheet.Range("$A$2:$F$67").AutoFilter Field:=3, Criteria1:="=a", _
    Operator:=xlOr, Criteria2:="=p"
    Application.EnableEvents = True
    ActiveWorkbook.Save
   End If
End If
End Sub