• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,503
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
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
 
Merhaba,

Aşağıdaki kodları inceleyebilirsiniz.

Private Sub UserForm_Initialize()
Kod:
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
 
Rica ederim, güle güle kullanınız.
 
Geri
Üst