ONKey

Here was my solution, although I did not use the onkey I used key down. I also found out that excel is limited with creating shortcut keys due to some focus issues. There was a solution but I did not understand it fully to imlement it.


For each textbox I had to use this code

Private Sub TextBox601_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyF1 Then FM80F1
    If KeyCode = vbKeyF2 Then FM80F2
    If KeyCode = vbKeyF3 Then FM80F3
    If KeyCode = vbKeyF4 Then FM80F4
    If KeyCode = vbKeyF5 Then FM80F5
    If KeyCode = vbKeyF6 Then FM80F6
    If KeyCode = vbKeyF7 Then FM80F7
    If KeyCode = vbKeyF8 Then FM80F8
    If KeyCode = vbKeyF9 Then FM80F9
    If KeyCode = vbKeyF10 Then FM80F10
    If KeyCode = vbKeyF11 Then FM80F11
    If KeyCode = vbKeyF12 Then FM80F12
    
    If KeyCode = KeyANSI17 & vbKeyQ Then FM80C1
    If KeyCode = KeyANSI17 & vbKeyW Then FM80C2
    If KeyCode = KeyANSI17 & vbKeyE Then FM80C3
    If KeyCode = KeyANSI17 & vbKeyR Then FM80C4
    If KeyCode = KeyANSI17 & vbKeyT Then FM80C5
    If KeyCode = KeyANSI17 & vbKeyY Then FM80C6
    If KeyCode = KeyANSI17 & vbKeyU Then FM80C7
    If KeyCode = KeyANSI17 & vbKeyI Then FM80C8
    
End Sub

This was the procedure
Note that I have to use a different procedure for every frame I had

'############################ c codes Frame 80 ##################################
Sub FM80C1()
Dim Txtref As Variant
Dim txt As String
Txtref = Me.Frame80.ActiveControl.Name


txt = Me.Controls(Txtref).Value
With Me.Controls(Txtref)
    .Text = txt & vbNewLine & TextBox614.Value
End With
End Sub