Seleccionar Items no repetidos !!!

Suponiendo que los nombres que tienen que aparecere en el cuadro combinado estuvieran a partir de A2 y que en A1 estuviera el título:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub

Dim rngR As Range, rngC As Range
Dim n As Integer

Application.ScreenUpdating = False

Range("A1:A" & Range("A1").End(xlDown).Row).AdvancedFilter action:=xlFilterInPlace, unique:=True
Set rngR = Range("A2:A" & Range("A1").End(xlDown).Row).SpecialCells(xlCellTypeVisible)

For n = 0 To ComboBox1.ListCount - 1
ComboBox1.RemoveItem 0
Next n

For Each rngC In rngR.Cells
ComboBox1.AddItem rngC
Next rngC

ShowAllData
Application.ScreenUpdating = True
Set rngR = Nothing
End Sub

El codigo anterior tendrías que ponerlo en el módulo de la hoja (click derecho sobre su etiqueta->Ver código).
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Daniel Sandoval" escribió en el mensaje news:

Saludos!!!!

Tengo una lista de Productos repetidos, quisiera agregarlos a la lista de un
ComboBox, sin que se repitan!!!

Existe una formula o procedimiento en Excel que solo agregue los Productos
que no se repiten al ComboBox, como en SQL el comando SELECT DISTINC
o en su defecto como puedo utilizar SQl en Excel o como puedo crear un macro
que realice esto.

Gracias de antemano!!!