Application.OnKey "s"

[AlbyDangles]

I am running a macro by pressing the "s" key if the active cell is in column 3 and the row height is 31.5. That part is working OK.

My problem is I have to press the "s" key twice when a cell that is not in column 3 and the row height is 31.5 is selected.



Private Sub XL_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnKey "s", "Process_S_KeyEvent"
End Sub






Private Sub Process_S_KeyEvent()


If ActiveCell.Column = 3 And ActiveCell.RowHeight = 31.5 Then
MsgBox "Hello"

Exit Sub
Else
Application.OnKey "s" 'I think the problem is here
End If


End Sub

 

[diddi]

see if this works...

Private Sub Process_S_KeyEvent()
    If ActiveCell.Column = 3 And ActiveCell.RowHeight = 31.5 Then
        MsgBox "Hello"
    Else
        MsgBox "not correct height or column"
    End If
End Sub

 

[Jack in the UK]

Dont forget to assign it, try this codes

jiuk

Sub JACKS_Apps_KEY_MY_RUN_IT()

'Written by Jack in the UK : For http://www.mrexcel.com/
'// Feed - /forum/excel-questions/602726-application-onkey-not-working.html
'// 30 Jan  2014

'// jiuk to "RUN IT"
Application.OnKey "^s", "Jacks TEST"

'// jiuk - NOTE .....
'// jiuk - Jacks test is a seperate macro that is called by "s"

End Sub

Sub Jacks_TURN_IT_OFF()
    Application.OnKey "^e"
End Sub

Sub Jacks_TEST_IT_WORKS()
MsgBox "Jack says it  A works" & _
vbCrLf & _
"Application Key S activated"

End Sub

 

[AlbyDangles]

Thanks for your reply diddi.
I need to get the "s" key to return to normal when my if statement is false.


Private Sub Process_S_KeyEvent() If ActiveCell.Column = 3 And ActiveCell.RowHeight = 31.5 Then MsgBox "Hello" Else make the "s" key work as normal End IfEnd Sub</pre>

 

[shg]

To return a key combination to the default,

application.onkey, "keycombination"