Need help figuring this code out!

[jason77]

Hello I am trying to figure out how to make the following code work. I want to have users be able to create their own list to keep track of issues, and when they choose the issue it will auto fill the textboxs for them.

Sub OpenForm()
UserForm1.Show
UserForm1.ComboBox1.SetFocus
End Sub

Private Sub UserForm_Initialize()
Dim xRg As Range
    Set xRg = Worksheets("Sheet2").Range("A2:F1000")
    ComboBox1.List = xRg.Columns(1).Value
    ComboBox6.AddItem "Associate"
    ComboBox6.AddItem "Contactor"
    ComboBox6.AddItem "Vendor"
    ComboBox7.AddItem "EST"
    ComboBox7.AddItem "PST"
    ComboBox7.AddItem "CST"
    ComboBox7.AddItem "MST"
    ComboBox7.AddItem "AST"
    ComboBox7.AddItem "AKST"
    ComboBox7.AddItem "IST"
End Sub

Private Sub ComboBox1_Change()
    TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, [xRg], 2)
    TextBox20.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 4, False)
    TextBox21.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 3, False)
    TextBox22.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 5, False)
    TextBox23.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 6, False)
End Sub

[Paul_Hossler]

I added CODE tags to your macros to format and set them off -- you can use the [#] icon to insert a pair and paste your macro in between them the next time

You didn't say what is not working nor attach a sample workbook showing the issue, so this is just a guess

TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)

[Fluff]

Another guess move this line

Dim xRg As Range

to the very top of the module, before any code