Populate controls based on selected multicolumn Listbox item

Hello. I've read many posts regarding populating userform controls from listboxes and the below code is about as generic as you can get. The example below is for a listbox that is rowsourced in the vb properties window. I've tried other code that uses vb to source the data. The multicolumn listbox populates correctly on initialization. However, when I run the click event on my form, it has a run-time errror (could not get the list property. Invalid argument) on line #3. The combo and textbox names are correct as is the listbox name.

Like I've said, I've tried a variety of other methods found in every forum I can find, and found that the syntax seems to be correct, but I continue more often than not to get the same run-time error. I can only assume this is a problem created by how the listbox was sourced when initialized, but that to me doesn't seem like it would matter. I have been beating my head on this for days and cannot seem to figure this out. It seems so simple by looking at other posts! If there is a caveat with initialization, I can post the code used for that procedure if needed.

Private Sub Listbox1_Click()
        
        cbTextBox1.Text = Me.Listbox1.List(Listbox1.ListIndex, 3)
        txtTextBox2.Text = Me.Listbox1.List(Listbox1.ListIndex, 4)
        txtTextBox3.Text = Me.Listbox1.List(Listbox1.ListIndex, 5)

End Sub

That code is populating the textboxes from columns 2, 3 and 4 of the listbox, what colums does your code use and how many columns does your listbox have?

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

Sorry for not getting back sooner - think I missed your last post.

Anyway, the listbox on your userform has 3 columns, in this code you are trying to refer to columns 4, 5 and 6 of the listbox.

Private Sub ListBox1_Click()
'populates combo and text box with index values to allow user to edit.
        cbTextBox1.Text = Me.ListBox1.List(ListBox1.ListIndex, 3)
        txtTextBox2.Text = Me.ListBox1.List(ListBox1.ListIndex, 4)
        txtTextBox3.Text = Me.ListBox1.List(ListBox1.ListIndex, 5)

End Sub

Try changing it to this.

Private Sub ListBox1_Click()
'populates combo and text box with index values to allow user to edit.
        cbTextBox1.Text = Me.ListBox1.List(ListBox1.ListIndex, 0)
        txtTextBox2.Text = Me.ListBox1.List(ListBox1.ListIndex, 1)
        txtTextBox3.Text = Me.ListBox1.List(ListBox1.ListIndex, 2)
End Sub

That will fix that error but unfortunately brings up another error here.

Private Sub cbTextBox1_Change()
Dim LastRow As Long
Dim LastCol As Long
Dim res As Variant
    On Error Resume Next

    'change MD and TVD values when user selects formation value from dropdown list
    With Sheets(msSHEET_NAME)
        res = Application.Index(Range(Cells(2, LastCol), Cells(LastRow, 1)), _
                                Application.Match(cbTextBox1.Value, Range("D:F"), 0), 2)
        txtTextBox2.Value = res
        txtTextBox3.Value = res
    End With

End Sub

In this code LastCol is never given a value so Cells(2,LastCol) will fail.

What is it you are trying to do here?

No problem - appreciate your response. Wow. I see my misunderstanding now. I thought the columns 3,4,5 we're referencing the worksheet columns (D,E,F), not the listbox. Thank you very much for making that clear.

The last line of code I have decided to omit from this particular form since I thought it more simple to let the listbox do the selecting for user to edit (therefore cbTextBox1 becomes txtTextBox1). I see the problem there with LastCol.

However, since I would like to use this in other aspects, what I am trying to do with this dropdown combo selection is something akin to vlookup? If user selects variable from dropdown combo, any associated data attributes in corresponding row would populate to textboxes to allow user to edit. Since the range is discreet, LastCol would not be needed. In this case would the code look like this?

Private Sub cbTextBox1_Change()
Dim LastRow As Long
Dim res1 As Variant
Dim res2 As Variant
   On Error Resume Next

    'change TextBox2 and TextBox3 values when user selects ComboBox1 value from dropdown combo
    With Sheets(msSHEET_NAME)
        res1 = Application.Index(Range(Cells(2, 5), Cells(LastRow, 5)) 'data source is Sheet column E to end of Row
        res2 = Application.Index(Range(Cells(2, 6), Cells(LastRow, 6)) 'data source is Sheet column F to end of Row
        
        Application.Match(cbComboBox1.Value, Range("D:F"), 0), 2) ' user selects main attribute from dropdown combo
        txtTextBox2.Value = res1 'populates TextBox2 with corresponding value to ComboBox1 from sheet column E 
        txtTextBox3.Value = res2 'populates TextBox3 with corresponding value to ComboBox1 from sheet column F 
    End With

End Sub

So you want to find which row the value selected in the combobox comes from and then use that to populate the textboxes?

Which column would you want to look for the value from the combobox?