• DİKKAT

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

Çözüldü Listboxta oluşan listeyi Comboboxa benzersiz alma

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,543
Excel Vers. ve Dili
2021 LTSC TR
Userform1 de yer alan listboxta oluşan listeyi benzersiz olarak buton yardımı ile combobox1' e almak için yardımcı olabilir misiniz?
 
Private Sub CommandButton1_Click()
Dim dict As Object
Dim i As Long

Set dict = CreateObject("Scripting.Dictionary")
For i = 0 To ListBox1.ListCount - 1
dict.Item(ListBox1.List(i)) = vbNullString
Next i
ComboBox1.List = dict.keys
Set dict = Nothing
End Sub

kodu ile çözüme ulaştım. Teşekkür ederim.
 
Geri
Üst