Datos Combobox repetidos

¿Con qué versión Excel estás trabajando?, porque las nuevas tienen una opción en menú Datos de copiar sin duplicados... pero aclarame antes de continuar.

hola elsa, el office que tengo es 2010...

Bien, entonces tenés la opción de remover duplicados.

Lo podes agregar a tu misma rutina de autofiltro (o en algún otro evento).

Te dejo una rutina solo de ejemplo... no tengo ninguna referencia de tus datos como para enviarte algo más preciso.

Sub Ejemplo_Alex()
'x Elsamatilde
'copia rango filtrado a otra hoja
Rows("2:22").Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
'selecciona col A para quitar duplicados
Range("A1:A4").Select
ActiveSheet.Range("$A$1:$A$4").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A1").Select

Hola, elsa, lo que pasa es que la información que filtro es de ventas, y como enteras hay nombres repetidos(Vendedores) que no se pueden borrar, lo que realmente me interesa es que cuando se cargue el combobox2, lo haga sin repetir estos vendedores, te pego lo que tengo de la rutina para que ´puedas entender mejor:

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim c As range, rng As range

With ActiveSheet.AutoFilter.range Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, Columns.Count) End With
For Each c In rng.Columns(4).Cells If c.Value <> "" And c.EntireRow.Hidden = False Then consulta_preno.ComboBox2.AddItem c.Value End If Next c
End Sub

Gracias