Conditional Combo Box Multiple Column - excel

Question

I have a problem where I want to make Combobox2's result dependent on Combobox1's result.
For example:
a 1 x
a 2 y
b 2 z
b 3 x
c 3 z
d 4 z
Here's the code:
Private Sub Combobox1_Change()
Dim wslk As Worksheet
Set wslk = Worksheets("Sheet1")
Dim i As Integer
Combobox2.Clear
For i = 2 To wslk.Range("B" & Application.Rows.Count).End(xlUp).row
If wslk.Range("B" & i).Value = Combobox1.Value Then
Combobox2.AddItem wslk.Range("A" & i).Value
'The problem starts here
Combobox2.Column(1, i - 2) = wslk.Range("C" & i).Value
Combobox2.ColumnCount = 2
End If
Next i
End Sub
So far it has been able to populate Combobox2 with result from Combobox1.
For instance, if in Combobox1 I choose "a", Combobox2 will show "1" & "2".
However, the moment I choose anything in Combobox1 other than "a" it will crash saying:
Combobox2.Column(1, i - 2) <Could not get the Column property. Invalid property...
Thanks in advance!

Answer 1

Try the next code, please:
Private Sub Combobox1_Change()
Dim wslk As Worksheet, cb2 As MSForms.ComboBox
Set wslk = Worksheets("Sheet1")
Set cb2 = Me.ComboBox2
Dim i As Long
cb2.Clear
For i = 2 To wslk.Range("B" & Application.Rows.count).End(xlUp).Row
If wslk.Range("B" & i).Value = ComboBox1.Value Then
With cb2
.ColumnCount = 2
.AddItem wslk.Range("A" & i).Value
'The problem starts here (not anymore...)
cb2.Column(1, cb2.ListCount - 1) = wslk.Range("C" & i).Value
End With
End If
Next i
End Sub
Your code should add the item after the last existing one (cb2.ListCount - 1)...