Soru Listeye tek alma

[sirkülasyon]

  Dim a As Long
    Dim i As Long
    ReDim dizial(1 To 12, 1 To 1)

    If ComboBox2.Text = "" Then Exit Sub

    ListBox1.Clear
    For i = 2 To [C65536].End(3).Row
        If ComboBox1.Text = Cells(i, "D") And ComboBox2.Text = Cells(i, "E") Then
            a = a + 1
            ReDim Preserve dizial(1 To 12, 1 To a)
            dizial(1, a) = Cells(i, "A")
            dizial(2, a) = Cells(i, "B")
            dizial(3, a) = Cells(i, "C")
            dizial(4, a) = Cells(i, "D")
            dizial(5, a) = Cells(i, "E")
            dizial(6, a) = Cells(i, "F")
            dizial(7, a) = Cells(i, "G")
            dizial(8, a) = Cells(i, "H")
            dizial(9, a) = Cells(i, "I")
            dizial(10, a) = Cells(i, "J")
        End If
    Next i

    If a = 0 Then
        MsgBox ComboBox1.Text & " Veri Tablosunda Yok! ", vbCritical
    Else
        ListBox1.Column = dizial
    End If

    Erase dizial
    a = Empty
    i = Empty
    Set SV = Nothing

yukarıdaki kod çalışıyor. Sadece E sütununda aynı isimli olanları tek almıyor. Benzersiz olarak alabilmesi için düzeltme yapılması için yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Yukarıdaki kod E sütunundaki değerin ComboBox2 ye eşit olanlarını alıyor.
Haliyle dizial dizinize her aldığınız öğenin 5.elamanı yani E sütunundan gelen değer birbirinin aynısıdır.

Sanırım bir şeyleri eksik ifade ediyorsunuz.