Soru Listboxta sütunda değer olanları gösterme

[sirkülasyon]

With Me.ListBox1
.ColumnCount = 14 ' Kaç Sütun Görünecek
.ColumnWidths = "25;290;200;190;190;190;50;70;70;70;70;70;70;70;100" ' Sütun Genişlikleri
.List = Sheets("ARA").Range("A2:O" & [ARA!A65536].End(3).Row).Value

For i = 2 To Sheets("ARA").Cells(65536, "A").End(xlUp).Row
    If Sheets("ARA").Cells(i, "O").Value = "Bağlandı" Then
        ListBox1.AddItem
        For k = 0 To 14
            ListBox1.List(X, k) = Cells(i, k + 14).Value
        Next
        X = X + 1
    End If
Next

End With

Ara sayfasının O sütununda "Bağlandı" ibaresi var ise listbox1' de o satırı göstermesin. Eğer O sütununda hiçbir ibare yoksa A:N aralığını listbox1' de göstersin.
Yukarıda ki kod ile Ara sayfasının O sütununda "Bağlandı" ibaresi olan satırın son 3 hanesini gösteriyor. İlgili satırı hiç göstermemesi için yardımcı olabilir misiniz?

 

[YUSUF44]

Bu kod "O sütunu bağlandı ise o satırdaki verileri Listbox'a aktar" şeklinde işlem yapıyor anladığım kadarıyla.

Bağlandı olmayan satırların listboxa eklenmesi için eşittir yerine eşit değildir şeklinde sorgulamanız yetmez mi?

[ICODEIf Sheets("ARA").Cells(i, "O").Value <> "Bağlandı" Then[/ICODE]