• DİKKAT

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

ComboBox'ta Tek İsim Listeleme

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,657
Excel Vers. ve Dili
Excel : 2010
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.
 
Seyit bey aşağıdaki kodlar işinizi görecektir.
Kod:
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
 
Teşekkür ediyorum, Allah razı olsun.
 
Geri
Üst