Hi,
It's the VBA noob again
I have made a userform for data imput with a listbox (10 columns: A:H) showing all the data in sheet1, but i have tried to change this so the listbox only show the data matching the selected name in comboboxName (column A in sheet1). But now my listbox show all in one column. I guess i don't use .addItem rigth?
Can anyone help me on this issue?
Code
- Private Sub ComboBoxName_Change()
- Me.ListBoxDataDispl.Clear
- For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:H"))
- If Sheet1.Cells(i, "A").Value = Me.ComboBoxName.Value Then
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 1).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 2).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 3).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 4).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 5).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 6).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 7).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 8).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 9).Value
- Me.ListBoxDataDispl.AddItem Sheet1.Cells(i, 10).Value
- End If
- Next i
- End Sub