Encounter typing problem with userform

You can set the order the controls are tabbed through by right clicking the form and selecting Tab Order.

Don't change the TabIndex property of individual controls as that can affect other controls.

Use the Tab Order dialog I mentioned.

As for the VLookup, just put code in the click event of the OK button.

Strange I can find it no problem, make sure you are clicking on the actual form itself and don't have any controls selected.

What is it you want to lookup?

You can get the corresponding FS/His accounts for the selected customer from 'BatTab' like this.

Dim idx As Long
Dim strFSAC As String
Dim strHisAC As String

   idx = cboPart.ListIndex

   If idx = -1 Then
       MsgBox "No customer selected."
       Exit Sub
   End if

   With Worksheets("List")
       strHisAC = .Range("C" & idx+2).Value
       strFSAC = .Range("D" & idx+2).Value
    End With

The code would go in the OK button's click event.

It only gets the account numbers for the selected customer and puts them in variables, nothing else

What happens next is up to you, and it's not something I know about.

If they are supposed to go in C3 and C4 on 'BAT'.

Private Sub OKButton_Click()

Dim emptyRow As Long
Dim cPart As Range
Dim ws As Worksheet
Dim idx As Long
Dim strFSAC As String
Dim strHisAC As String

    idx = cboPart.ListIndex

    If idx = -1 Then
        MsgBox "No customer selected."
        Exit Sub
    End If

    With Worksheets("list")
        strHisAC = .Range("C" & idx + 2).Value
        strFSAC = .Range("D" & idx + 2).Value
    End With

    With Sheets("BAT")

        .Cells(2, 3).Value = cboPart.Value
        .Cells(3, 3).Value = strFSAC
        .Cells(4, 3).Value = strHisAC
        .Cells(3, 6).Value = TextBox9.Value
        .Cells(2, 6).Value = TextBox8.Value
        .Cells(5, 6).Value = EffectiveDateTextBox7.Value
        .Cells(6, 6).Value = RevCommentTextBox.Value
        .Cells(11, 7).Value = ProgramTextBox.Value


        If OptionButton4.Value = True Then
            .Cells(5, 3).Value = "TTM"
        Else
            .Cells(5, 3).Value = "YTD"
        End If

        .Cells(5, 6).Value = EffectiveDateTextBox7.Value
        .Cells(6, 6).Value = RevCommentTextBox.Value
        .Cells(11, 7).Value = ProgramTextBox.Value
    End With


End Sub