Private Sub UserForm_Initialize()
Dim ComboBox1 As Range
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
For Each ComboBox1 In ws.Range("Model")
With Me.ComboBox1
.AddItem ComboBox1.Value
.List(ListCount - 1, 2) = ComboBox1.Offset(0, 1).Value
End With
Next ComboBox1
For Each Label1 In ws.Range("part")
With Me.Label1
.AddItem Label1.Caption
End With
Next Label1
Me.ComboBox1.SetFocus
End Sub
when choose combobox1 value at sheets1 column A row 2
label 1 will follow get data with that same row 2 and capture column b text in sheets 1
then label 2 will follow get data at the same row 2 and capture column c text in sheets1
Dim ComboBox1 As Range
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
For Each ComboBox1 In ws.Range("Model")
With Me.ComboBox1
.AddItem ComboBox1.Value
.List(ListCount - 1, 2) = ComboBox1.Offset(0, 1).Value
End With
Next ComboBox1
For Each Label1 In ws.Range("part")
With Me.Label1
.AddItem Label1.Caption
End With
Next Label1
Me.ComboBox1.SetFocus
End Sub
when choose combobox1 value at sheets1 column A row 2
label 1 will follow get data with that same row 2 and capture column b text in sheets 1
then label 2 will follow get data at the same row 2 and capture column c text in sheets1