ComboBox da Listelemek

[yavuz829]

Merhaba Arkadaşlar
Eklediği kod ile D sütundaki verileri ComboBox3 listeliyorum. Listede ayni kelimeden 1 Fazla gösteriyor. ComboBox3 listeleme yaptığı zaman ani kelimeden bir tane gösterse çok iyi olur. Bu konuda yardımlarınıza ihtiyacım var.

ComboBox3.MatchEntry = fmMatchEntryComplete
    For i = 7 To [d65536].End(3).Row
        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
          ComboBox3.AddItem CStr(Cells(i, 4))

 

[hmtstc]

yan sütununa çekip yinelenenleri kaldır dedikten sorna listeleyebilirsiniz

 

[yavuz829]

ComboBox3 UserFormda kullanıyorum Hocam Hangi kodları kaldıracağı bilmiyorum. Kod üzerinde değişiklik yapabilirmisin.

 

[Korhan Ayhan]

Kullandığınız koda göre saydırma işlemi yapılıyor ve 1 adet olanlar nesneye yükleniyor. Yani mükerrer veri olmaması gerekir.

Sorun devam ediyorsa örnek dosya paylaşınız.

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık. Altın üyeliğim yok üye olup dosyayı ekleyecem. Saygılar.

 

[Hakan ERDOST]

Merhaba Arkadaşlar
Eklediği kod ile D sütundaki verileri ComboBox3 listeliyorum. Listede ayni kelimeden 1 Fazla gösteriyor. ComboBox3 listeleme yaptığı zaman ani kelimeden bir tane gösterse çok iyi olur. Bu konuda yardımlarınıza ihtiyacım var.

ComboBox3.MatchEntry = fmMatchEntryComplete
    For i = 7 To [d65536].End(3).Row
        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
          ComboBox3.AddItem CStr(Cells(i, 4))

Kodunuzun (For i = 7 To [d65536].End(3).Row)
belirttiğim bölümünü aşağıdaki kod ile değiştirip dener misiniz?

For x = 7 To Cells(65536, 4).End(xlUp).Row

 

[hmtstc]

Üye olmadan dosya.tc yi kullanarak da yapabilirsiniz.