Leave out blank items in combobox

[enfantter]

Hi!!
Does anybody know if there is a procedure that will help me leave out blank items in a combobox.

The items in the combobox comes from a range in another sheet where there are some blanks.

thnx alot!

/Jack

[lucas]

combobox from the forms toolbar on the sheet?
combobox from the control toolbox on the sheet?
combobox on a userform?
data validation drop down on a sheet?

[enfantter]

i get blank cells in a combobox in a userform.
those are the ones that i would like to get rid of.

[lucas]

Hi Jack,
This will return a list of unique items from the column with no blanks.
[vba]Option Explicit
Private Sub UserForm_Initialize()
Dim UniqueList() As String
Dim x As Long
Dim Rng1 As Range
Dim c As Range
Dim Unique As Boolean
Dim y As Long

Set Rng1 = Sheets("Sheet1").Range("A3:A1103")
y = 1

ReDim UniqueList(1 To Rng1.Rows.Count)

For Each c In Rng1
If Not c.Value = vbNullString Then
Unique = True
For x = 1 To y
If UniqueList(x) = c.Text Then
Unique = False
End If
Next
If Unique Then
y = y + 1
Me.ComboBox1.AddItem (c.Text)
UniqueList(y) = c.Text
End If
End If
Next

End Sub[/vba]

[enfantter]

Perfect - works fine.
Just what I needed!!

[lucas]

And if you don't want a unique list of items from the column but you want no blank spaces just change it like this:
[vba]Option Explicit
Private Sub UserForm_Initialize()
Dim Rng1 As Range
Dim c As Range
Set Rng1 = Sheets("Sheet1").Range("A3:A1103")
For Each c In Rng1
If Not c.Value = vbNullString Then
Me.ComboBox1.AddItem (c.Text)
End If
Next
End Sub
[/vba]