ComboBox'ta Tek İsim Listeleme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar B Sütununda mükerrer verilerim var, bunları ComboBox'ta teke indirip o şekilde listelemek istiyorum, teşekkür ediyorum, Allah razı olsun.

 

[Orion1]

Seyit bey aşağıdaki kodlar işinizi görecektir.

Dim sat As Long, i As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To sat
    If WorksheetFunction.CountIf(Range("B1" & ":B" & i), Cells(i, "B").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "B").Value
    End If
Next i

 

[Seyit Tiken]

Teşekkür ediyorum, Allah razı olsun.