Move from one control to another in a form on worksheet

How to move from one control to another in a form on a worksheet using tab and shift keys coded with VBA.

Here’s the complete VBA code:
Private Sub cboItemName_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Me.cboMfg.Activate
End If

End Sub

Private Sub cboMfg_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 And KeyCode = vbKeyTab Then
Me.txtBatchNo.Activate

ElseIf Shift = 1 And KeyCode = vbKeyTab Then
Me.cboItemName.Activate
End If

End Sub

Private Sub txtBatchNo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 And KeyCode = vbKeyTab Then
Me.txtExpiryDate.Activate
ElseIf Shift = 1 And KeyCode = vbKeyTab Then
Me.cboMfg.Activate
End If
End Sub

Private Sub txtExpiryDate_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 And KeyCode = vbKeyTab Then
Me.txtMRP.Activate
ElseIf Shift = 1 And KeyCode = vbKeyTab Then
Me.txtBatchNo.Activate
End If
End Sub

Private Sub txtMRP_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 And KeyCode = vbKeyTab Then
Me.txtPurchaseDate.Activate
ElseIf Shift = 1 And KeyCode = vbKeyTab Then
Me.txtExpiryDate.Activate
End If
End Sub

Private Sub txtPurchaseDate_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 And KeyCode = vbKeyTab Then
Me.txtQty.Activate
ElseIf Shift = 1 And KeyCode = vbKeyTab Then
Me.txtMRP.Activate
End If
End Sub

Private Sub txtQty_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 1 And KeyCode = vbKeyTab Then
Me.txtPurchaseDate.Activate
End If
End Sub

Published by

Dinesh Kumar Takyar

Welcome to exceltrainingvideos.com! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: http://youtube.com/familycomputerclub For a structured Excel VBA training course online you can visit: https://www.youtube.com/excelvbaonline

One thought on “Move from one control to another in a form on worksheet”

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.