Disable All Keyboard Keys Except Few

[DrGenetix]

Hi guys,

I am creating a monthly rota for a staff of 112. I want to place their duties as

M (morning)
E (evening)
N (night)

and so I do not want any other keys to work on the workbook so that I can enter data more fluently. Please tell me if it is possible. Secondly is it possible that after entering a value in the cell the next cell is selected automatically ?

Regards

Haider Ali

 

[doofusboy]

Here's one way to do it [without disabling any keys] and advance to same row next column [if you want to advance to next row in same column, adjust following code as needed]:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Asc(Target.Value) = 69 Or Asc(Target.Value) = 77 Or Asc(Target.Value) = 78 Then
        ' to go to next row
        'Target.Offset(1, 0).Select
        ' to go to next column
        Target.Offset(0, 1).Select
    Else
        Application.EnableEvents = False
        Target.Value = ""
        Application.EnableEvents = True
        MsgBox "You must enter either M, E, or N", vbCritical, "Invalid Entry"
        Target.Select
    End If
    
End Sub

This code will only accept the capital letters M, E, or N....lower case m,e, n are rejected.

 

[Jaafar Tribak]

How about using data validation ?