combobox a benzersiz verilerin alınması

[prodigy]

Aşağıdaki kodlarla c sutunundaki verileri combobox getirdiğimde en son kaydedileni almıyor.userform kapatıp açtığımda son veriyi alıyor. kodları başka bir tuşa atadığımda ise comboboxdaki verileri 2 defa gösteriyor.
c sutununa kaydedilen verileri benzerleri 1 defa alacak şekilde nasıl düzenleyebiliriz.


Private Sub UserForm_Initialize()
Set s1 = Sheets("giriş")
With ComboBox2
.AddItem ""
For i = 2 To s1.Cells(65536, 3).End(xlUp).Row
If Application.WorksheetFunction.CountIf(s1.Range("c2:c" & i), s1.Cells(i, 3)) = 1 Then
.AddItem s1.Cells(i, 3)
End If
Next i
.ListIndex = 0
End With
end sub

 

[hamitcan]

Kayıt ile ilgili kodunuzun sonuna UserForm_Initialize satırını ekleyin.

 

[prodigy]

teşekkkürler