Combobox'a Aynı Veririnin Birini Almak.

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile Combobox'a aynı verilerin bir tanesini alıyor. Fakat Veri birden fazla değilse yani 1 tane ise onu Combobox'a almıyor. 1 tane olan verileri de aldırmak istiyorum. Bu kod ile de tüm benzer verileri alıyor. ComboBox3.RowSource = "Gelir!b4:b" & Range("b65000").End(xlUp).Row
Yardımcı olabilir misiniz.


ComboBox3.Clear
Set s = Sheets("gelir")
For i = 4 To s.[B65536].End(3).Row - 1
If WorksheetFunction.CountIf(s.Range("B4:b" & i), s.Cells(i, "B")) = 1 Then
ComboBox3.AddItem s.Cells(i, "B").Value
End If
Next i

 

[Korhan Ayhan]

Bu komut;

If WorksheetFunction.CountIf(s.Range("B4:b" & i), s.Cells(i, "B")) = 1 Then

İlgili aralıkta ki 4 satırdan itibaren aramaya başlıyor. Bakılan değeri sayıyor. 1 adetse Combobox nesnesine yüklüyor.

Yani satır bazlı arama yaptığı için sizin bahsettiğiniz şekilde çalışmaması gerekir. Yani tüm benzersizleri ilgili nesneye yüklemesi gerekir.