Combobox sin duplicados con macro
Agradezco la ayuda que me puedan prestar con el siguiente problema, no se donde esta el error en mi código
Con el siguiente código se me elimina los datos duplicados pero necesito que el combobox aparezac una vez .
Private Sub UserForm_Initialize()
Dim Fila As Integer, Final As Long, Registro As Long
Final = Sheets("Dimensional").Range("c" & Rows.Count).End(xlUp).Row
With Hoja2
For Fila = 2 To Final
If Sheets("Dimensional").Cells(Fila, 3) <> "" Then
Registro = WorksheetFunction.CountIf(Range("C2:C" & Final), Range("C" & Fila))
If Registro = 1 Then
ComboBoxSerial.AddItem (Sheets("Dimensional").Cells(Fila, 3))
End If
End If
Next Fila
End With
End Sub
Ejemplo, el combobox no despliega el numero 5 porque esta duplicado
2 Respuestas
Prueba esta macro
Private Sub UserForm_Initialize()
Dim unicos As New Collection
Set datos = Range("a1").CurrentRegion
With datos
filas = .Rows.Count
For i = 2 To filas
On Error Resume Next
serial = .Cells(i, 3)
unicos.Add serial, CStr(serial)
If Err.Number = 0 Then ComboBox1.AddItem serial
On Error GoTo 0
Next i
End With
Set datos = Nothing
End Sub
[Hola, espero te sirva esta macro
