Simulate F2 programmatically

[danitouffaha]

Hi,

I have a need to disable F2 for certain cells based on a specific condition.
I have added this below to call customF2Fct when F2 is pressed

Application.OnKey "{F2}", "customF2Fct"

Now in customF2Fct

Public Function customF2Fct()
    Selection.Activate
    'continue as F2 if the condition is met
    If Condition = True Then
        Application.SendKeys Keys:="{F2}"
    Else
        Application.SendKeys Keys:="{Esc}"
    End If
    DoEvents
End Function

The escape works and I avoid the cell being open for editing, but if the condition is true, the sendKeys F2 does not open the cell for editing.
Instead it toggles the numLock.
Can you please help with what I am missing?

Thanks
Dani

 

[Skyybot]

Can you not edit the cell if the condition is met?

 

[danitouffaha]

Can you not edit the cell if the condition is met?

I am not sure I understand!
I can edit the cell if I start typing, but the cursor is not inside the cell at the end as usual.
if the condition is met, then pressing F2 should act like pressing F2 originally before my code.
If the condition is not met, then you will not have the cursor in the cell.
Please let me know if it is clearer now
Thanks

 

[Skyybot]

Application.SendKeys ("{F2}{END}")

 

[danitouffaha]

Application.SendKeys ("{F2}{END}")

no that didnt work, it is still toggling the numLock, no idea why??

 

[Skyybot]

no that didnt work, it is still toggling the numLock, no idea why??

It's working for me...Have you tried removing the Parenthesis? Shooting in the dark here....

Application.SendKeys "{F2}{END}"

 

[danitouffaha]

It's working for me...Have you tried removing the Parenthesis? Shooting in the dark here....

Application.SendKeys "{F2}{END}"

I know it should work and its straight forward, there has to be something wrong with the workbook,
I tried if there is any other event triggered after but there is nothing
I will close it and reboot and will let you know if it will work.
Thanks!

 

[danitouffaha]

no its not working, do not bother with it anymore, I will live without it