• DİKKAT

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

comboboxta tekrarlı veriler

Katılım
17 Şubat 2010
Mesajlar
56
Excel Vers. ve Dili
excel 2007 Türkçe
İyi akşamlar

Benim sorunum, combobox'ta rowsource ayarlarken tekrarlı verilerle karşılaşıyorum. Şöyle açıklayayım;

01.10.2010
01.10.2010
02.10.2010
03.10.2010
03.10.2010
03.10.2010
05.10.2010


yukardaki kolonu rowsource olarak gösterdiğimde combobox hepsini alıyor. Benim istediğim ise aşağıdaki şekilde:

01.10.2010
02.10.2010
03.10.2010
05.10.2010

bunu nasıl yapabirim, sql'deki DISTINC benzeri bir şeyler var mı?

bilgilerinizi paylaşabilirseniz sevinirim

teşekkürler..
 
Ekli dosyayı inceleyiniz.:cool:
Kod:
Private Sub UserForm_Initialize()
Dim z As Object, sat As Long, i As Long
Me.Caption = "evrengizlen@hotmail.com"
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
Set z = CreateObject("Scripting.Dictionary")
For i = 2 To sat
    If Not z.exists(Sheets("Sayfa1").Cells(i, "A").Value) Then
        z.Add Sheets("Sayfa1").Cells(i, "A").Value, Nothing
    End If
Next i
If z.Count > 0 Then
    ComboBox1.List = Application.Transpose(Array(z.keys))
    ComboBox1.ListIndex = 0
End If
End Sub
 

Ekli dosyalar

Geri
Üst