ListBox'tan Combobox'a Tekrarsız Veri Almak

[unfors]

Private Sub UserForm_Initialize()
ComboBox3.clear
For i = 0 To XED_FORM.ListBox2.ListCount - 1
ComboBox3.AddItem XED_FORM.ListBox2.Column(1, i)
ComboBox3.ListIndex = 0
Next
End Sub

Yukarıdaki kod ile Listbox'ın 2.sutunundaki verileri Combobox'a alıyorum. Sorun aynı verilerin gelmesi. Bu şekilde combobox'a tekrarsız veri nasıl alabilirim. (Not: Listbox verileri sayfadan Almıyor.) Sonrasında amacım Combobox'daki veriye göre Listbox'dan toplam alacam.

 

[veyselemre]

    ComboBox3.Clear
    For i = 0 To ListBox2.ListCount - 1
        ekle = ListBox2.List(i, 1)

        If ComboBox3.ListCount > 0 Then
            For ii = 0 To ComboBox3.ListCount - 1
                If ComboBox3.List(ii) = ekle Then GoTo atla
            Next ii
        End If
        ComboBox3.AddItem ekle
atla:
    Next
    ComboBox3.ListIndex = 0

 

[unfors]

sn. veyselemre

EKLE = XED_FORM.ListBox2.List(i, 1)

kod bu satırda hataya düşüyor

 

[unfors]

EKLE adında bir buton varmış sayfada Teşekkür ederim.