Friday, February 10, 2017

Combobox Additem From worksheet Dynamic Range Excell VBA

Combobox Fill Dynamic Range

Private Sub UserForm_Initialize()

Dim i As Long
For i = 1 To Sheet1.Range("A1000000").End(xlUp).Offset(1, 0).Row
Me.ComboBox1.AddItem Sheet1.Cells(i, 1).Value
Next i
End Sub

No comments:

Post a Comment

Please do not enter any spam message in comment box

Subscribe to: Post Comments (Atom)