Boa tarde!!
Tente
Private Sub UserForm_Initialize()
Dim Rng As Range
Dim Dn As Range
Dim Dic As Object
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Set Dic = CreateObject("scripting.dictionary")
Dic.CompareMode = vbTextCompare
For Each Dn In Rng
If Not Dn = vbNullString Then Dic(Dn.Value) = Empty
Next
With Me.ComboBox
.RowSource = ""
.List = Dic.Keys
.ListIndex = 0
End With
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/02/2014 1:58 pm