combobox da mükerrer kayıtlar görünmesin

[udentr2002]

Merhaba arkadaşlar combox a stünun 3. satırından itibaren verileri almaktadır. ancak bu sütunda aynı isim defalarca tekrarlanıyor.

Benim istediğim comboboxu açtığımda comboboxda o defalarca tekrarlanan kayıtlar 1 defa görünsün. Bunu nasıl yapabilirim. acaba.

Şimdiden yardımcı olacak arkadaşlarıma teşekkür ederim.

2007 excell kullanıyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyebilirsiniz.

Private Sub UserForm_Initialize()

Dim i As Long
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
For i = 3 To s1.[a65536].End(3).Row
    If Application.WorksheetFunction.CountIf(s1.Range("A3:A" & i), s1.Cells(i, "A")) = 1 Then
        ComboBox1.AddItem s1.Cells(i, "A")
    End If
Next i
End Sub

 

[udentr2002]

teşekkürler hocam elinize sağlık

 

[Necdet]

Rica ederim, güle güle kullanınız.