Je možné použiť cyklus; do kódového okna formulára zadať niečo v tvare:Private Sub UserForm_Initialize()
Dim mySh As Worksheet, lastRw As Double, i As Byte
Set mySh = Sheet2
With mySh
lastRw = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
For i = 3 To lastRw Step 3
Me.ComboBox1.AddItem .Cells(i, 2)
Next i
End With
End Subcitovat
Dim mySh As Worksheet, lastRw As Double, i As Byte
Set mySh = Sheet2
With mySh
lastRw = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
For i = 3 To lastRw Step 3
Me.ComboBox1.AddItem .Cells(i, 2)
Next i
End With
End Subcitovat