combobox a tekrarsız veri alma

[yanginci34]

Arkadaşlar iyi geceler; Aklımı kemiren bir türlü başaramadığım bir sorunumu size anlatmaya çalışacağım. Mesela 3. satırda E sütunundan sağa doğru en son dolu sütuna kadar ve tekrarsız bir şekilde combobox AddItem yapmak istiyorum. Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Buyurun.

Dim sonsut As Integer, i As Integer
ComboBox1.Clear
sonsut = Cells(2, Columns.Count).End(xlToLeft).Column
x = 5
For i = 5 To sonsut
    If WorksheetFunction.CountIf(Range(Cells(2, 5), Cells(2, i)), Cells(2, i)) = 1 Then
        ComboBox1.AddItem Cells(2, i).Value
        x = x + 1
    End If
Next

 

[Korhan Ayhan]

Alternatif;

ADO ile çözüm uygulanmıştır.

 

[Haluk]

"Dictionary" ile alternatif;

Private Sub UserForm_Initialize()
    Dim objDict As Object, myRng As Range, xRng As Range
    
    Set objDict = CreateObject("Scripting.Dictionary")
    Set myRng = Range("E3:" & Cells(3, Columns.Count).End(xlToLeft).Address)
    
    For Each xRng In myRng
       If xRng.Value <> "" Then objDict(xRng.Value) = 1
    Next
    
    ComboBox1.List = objDict.Keys
    
    Set objDict = Nothing
    Set myRng = Nothing
End Sub

.

 

[yanginci34]

Üstadlar cevaplarınız için hepinize çok teşekkürler. Ayrıca sizlere bu kadar geç dönüş yaptığım için hepinizden ayrı ayrı özür dilerim babam rahatsızlandı da onunla ilgilenmek zorunda kaldım.

 

[Korhan Ayhan]

Geçmiş olsun...

 

[Orion1]

Geçmiş olsun.