Move between TEXTBOX USERFORM left and right using the arrows

[sofas]

Hello, I have a user form that contains several TEXTBOX. I want a code that enables you to move between them using the arrows left and right.

 

[DanteAmor]

Put the following code in your userform:

Dim TxtBx() As New Class1         'At the start of all code

Private Sub UserForm_Initialize()
  Dim i As Long, ctrl As MSForms.Control
  For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
      i = i + 1
      ReDim Preserve TxtBx(i)
      Set TxtBx(i).MultTextbox = ctrl
    End If
  Next
End Sub

In a class module put the following code:

Public WithEvents MultTextbox As MSForms.TextBox

Private Sub MultTextbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 39 Then SendKeys "{TAB}"
  If KeyCode = 37 Then SendKeys "+{TAB}"
End Sub

In the following link I explain how to create a class:

Reuse text box validation code for multiple text boxes

hi again... I have a userform...with multiple frames...each containing multiple text boxes. i am using this code to validate one text box in one part of my code Sub tbxEndGameNum_Change() Debug.Print "tbxEndGameNum_Change()" If Len(tbxEndGameNum) = 4 Then 'Application.ScreenUpdating = False...

www.mrexcel.com

Regards
Dante Amor

 

[sofas]

Thank you it works very well on 80 textbox, I have a simple question please. Is there a way to highlight the textbox when moving, meaning when moving the selected element will have a different background color and the rest will be white and so on

 

[DanteAmor]

Is there a way to highlight the textbox when moving

Update the class module with following:
Change UserForm1 to the name of your userform
Change this information: &HFF00& to the color you like.

Public WithEvents MultTextbox As MSForms.TextBox

Private Sub MultTextbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 39 Then SendKeys "{TAB}"
  If KeyCode = 37 Then SendKeys "+{TAB}"
End Sub

Private Sub MultTextbox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim xd, ctrl As MSForms.Control
  xd = MultTextbox.Name
  With UserForm1
    For Each ctrl In .Controls
      ctrl.BackColor = &H80000005
    Next
    .Controls(xd).BackColor = &HFF00&
  End With
End Sub