Hi,
- Remove "ticket" from Cbx_ticket -Properties -RowSource section
- Add this codes to Userform_Initialize procedure :
Dim a As Variant, hcr As Range, i As Long, j As Long, x As Variant
With CreateObject("Scripting.Dictionary")
For Each hcr In Sheets("DT").Range("I5:I" & Cells(Rows.Count, 9).End(3).Row).SpecialCells(xlCellTypeVisible)
If Not .exists(hcr.Value) Then
.Add hcr.Value, Nothing
End If
Next hcr
a = .keys
End With
For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If StrComp(a(i), a(j)) = 1 Then
x = a(j)
a(j) = a(i)
a(i) = x
End If
Next j
Next i
On Error Resume Next
Me.Cbx_ticket.List = a
The sorted unique values can be filled to combobox with this codes.
See you