Pookiemeister
Well-known Member
- Joined
- Jan 6, 2012
- Messages
- 563
- Office Version
- 365
- 2010
- Platform
- Windows
VBA Code:
Private Sub UserForm_Initialize()
Me.Caption = "Maintenance Requster"
'Me.cmbMaintPersonnel.List = Sheets("Maintenance Contact").Range("C2:C10001").Value
Dim listLength As Integer
Dim wks As Worksheet
Dim cmbMaintList As Range
Set wks = Worksheets("Maintenance Contact")
listLength = Worksheets("Maintenance Contact").Cells(Rows.Count, "A").End(xlUp).Row '<==== finds the length of the list
For x = 1 To listLength
If wks.Cells(x, 1) <> "" Then '<=== ignores the blank spaces
With cmbMaintPersonnel '<=== name of your comboBox
.AddItem (wks.Cells(x, 3).Value) '<==== adds it to the list
End With
End If
Next x
End Sub