Como lleno una Combobox sin Campos duplicados?

Prueba con la siguiente rutina Agregar( ), lo que hace es comparar cada dato que se va a agregar al combo, si ya existe en el combo ya no lo agrega. También te lo ordena de forma ascendente.

Option Explicit
Dim rango1, celda1 As Range
Dim rango2, celda2 As Range
Dim rango3, celda3 As Range
'llena el combobox de market
Private Sub userform_initialize()
    Set rango1 = Range("TablaBase[[Purchasing org. '[Description']]]")
    For Each celda1 In rango1
        Call Agregar(ComboBox1, celda1.Value)
    Next celda1
    'llena el combobox de año
    Set rango2 = Range("TablaBase[Año]")
    For Each celda2 In rango2
        Call Agregar(ComboBox2, celda2.Value)
    Next celda2
    'llena el combobox de mes
    Set rango3 = Range("TablaBase[Mes]")
    For Each celda3 In rango3
        Call Agregar(ComboBox3, celda3.Value)
    Next celda3
    '
    'llena combobox de report type
    ComboBox4. AddItem "Categories lv1"
    ComboBox4. AddItem "Categories lv2"
    ComboBox4. AddItem "Company"
    ComboBox4. AddItem "Plants"
    ComboBox4. AddItem "Suppliers"
    ComboBox4. AddItem "Zone"
End Sub
'
Sub Agregar(combo As ComboBox, dato As String)
'Por.Dante Amor
    Dim i
    For i = 0 To combo.ListCount - 1
        Select Case StrComp(combo.List(i), dato, vbTextCompare)
            Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
            Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
        End Select
    Next
    combo.AddItem dato 'Es mayor lo agrega al final
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

hola, disculpa, si utilizo ese código me dice que no está definido, debe ser agregado al final como escribiste?

Sí, también tienes que poner la función Agregar( ) dentro dentro del userform

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Disculpa que te siga molestando, ¿cómo agrego la función "agregar"? No tengo mucha experiencia con VBA

Solamente borra tu macro y pon todo el código que yo te envié.

O envíame tu archivo para adaptar el código

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Erick Ravelo”

.

'S aludos. Dante Amor. Recuerda valorar la respuesta

Le hice unas leves modificaciones a tu macro, le puse tres colecciones con indice, si el dato es repetido no lo cargara en los comboboxs

Option Explicit
Dim unicos As New Collection
Dim unicos2 As New Collection
Dim unicos3 As New Collection
Dim rango1, celda1 As Range
Dim rango2, celda2 As Range
Dim rango3, celda3 As Range
'llena el combobox de market
Private Sub userform_initialize()
Set rango1 = Range("TablaBase[[Purchasing org. '[Description']]]")
For Each celda1 In rango1
celd1 = celda1
On Error Resume Next
unicos.Add celd1, CStr(celd1)
If Err.num = 0 Then ComboBox1.AddItem celd1
On Error GoTo 0
Next celda1
'llena el combobox de año
Set rango2 = Range("TablaBase[Año]")
For Each celda2 In rango2
celd2 = celda2
On Error Resume Next
unicos2.Add celd2, CStr(celd2)
If Err.num = 0 Then ComboBox2.AddItem celd2
On Error GoTo 0
Next celda2
'llena el combobox de mes
Set rango3 = Range("TablaBase[Mes]")
For Each celda3 In rango3
celd3 = celda3
On Error Resume Next
unicos3.Add celd3, CStr(celd3)
If Err.num = 0 Then ComboBox3.AddItem celd3
On Error GoTo 0
Next celda3
'llena combobox de report type
ComboBox4. AddItem "Categories lv1"
ComboBox4. AddItem "Categories lv2"
ComboBox4. AddItem "Company"
ComboBox4. AddItem "Plants"
ComboBox4. AddItem "Suppliers"
ComboBox4. AddItem "Zone"

Hola, el código me dice que no esta definido celd1, si corrijo eso me dice que falta el with, y luego me dice que falta el objeto... disculpa, no soy un experto en VBA por eso me cuesta un poco entender el código, ¿tienes alguna otra idea?