Use Up/Down Arrows as Tab/Shift+Tab in Userform

**lsteinbach** · 07-10-2013, 04:12 PM

Hello,

In my userform, I have about 20 textboxes that I need to rapidly cycle through to enter numbers then I press Enter to submit and cycle through the textboxes again (this repeats many, many times). This is most quickly done by using the up/down arrows and the keypad. But at the bottom of one column of textboxes, the down arrow will not carry to the next column of textboxes. I can tab to the next column since all the tab indexs are setup, but I will be able to move much faster if I can somehow set the down arrow key to be tab, then the up arrow key to be shift+tab.

Any suggestions are very appreciated.
Thank you!

**Leith Ross** · 07-10-2013, 04:24 PM

Hello lsteinbach,

It can be done by SubClassing the TextBoxes on the UserForm. This will allow them to share a common event like KeyPress to identify the key that was pressed. If You don't want to use this method then the alternative is writing 20 different code events.

To do the SubClassing, it would be helpful if can post your workbook.

**lsteinbach** · 07-10-2013, 04:54 PM

Thank you for that hint. I was able to find the code I need and I realized I only need to apply it to the last textbox and first textbox in each column.

 
Private Sub TextBox16_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 ' 37 = left arrow, 38 = up arrow, 39 = right arrow, 40 = down arrow
 If KeyCode = 40 Then 'down key pressed
    Application.SendKeys "{TAB}"
 ElseIf KeyCode = 38 Then 'up key pressed
    Application.SendKeys "+{TAB}"
 End If
 End Sub