comboBox içindeki aynı verilerin bir e indirilmesi

[ferhat73]

arkadaşlar
forumdan ojıbu arkadaşımızın sahahleyin sorduğu sorularan bir tanesi ile ilgili
yardımlarınızı rica ediyoruz.

ekdeki dosyada görüleceği üzere ComboBox içinde tekrarlayan satırlardan sadece 1 tanesinin gözükmesini hangi kod ile sağlayacağız.

yani
comboBox içinde 6 adet aynı tarih gözüküyor ise
15.01.2000
15.01.2000
15.01.2000
15.01.2000
15.01.2000
15.01.2000
bunu nasıl bir e düşüreceğiz


iyi çalışmalar

 

[BG]

Sayın ferhat73

Örnek dosyayı inceleyiniz.

 

[ferhat73]

gökhan bey
ilginizden dolayı teşekkürler.

çözüme nasıl ulaştınız.


iyi çalışmalar

 

[ferhat73]

teşekkürler

çözümünüzü gördüm herşey teşekkürler

Private Sub UserForm_Initialize()
For x = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, 1)) = 1 Then
ComboBox1.AddItem Cells(x, 1).Value
End If
Next
'ComboBox1.RowSource = "Sayfa1!a2:a16"
ComboBox2.RowSource = "Sayfa1!b2:b16"
ComboBox3.RowSource = "Sayfa1!c2:c16"
ComboBox4.RowSource = "Sayfa1!d2:d16"
ComboBox5.RowSource = "Sayfa1!e2:e16"
ComboBox6.RowSource = "Sayfa1!f2:f16"
End Sub