Listbox1'den Listbox2'ye benzersiz satır aktarmak.

[han_oguz]

Merhaba;

EKteki örnekte Listbox1'den Listbox2'ye çift tıklama ile satır aktarılıyor.
Fakat aynı satır birden fazla sefer aktarılabiliyor.

Olan satırı aktarmaması için yardımcı olabilir misiniz?
(Aktarılan satır Listbox1'den silinmesin.)

 

[ÖmerBey]

Merhaba,
ListBox2_Click kodlarınızın başına aşağıdaki satırları ilave edip deneyiniz...

If ListBox3.ListCount > 0 Then
    ReDim dz(0 To ListBox3.ListCount - 1)
    
    For a = 0 To UBound(dz)
        For b = LBound(ListBox3.Column) To UBound(ListBox3.Column)
            dz(a) = dz(a) & ListBox3.List(a, b)
        Next
    Next
    
    For a = LBound(ListBox2.Column) To UBound(ListBox2.Column)
        kntrl = kntrl & ListBox2.Column(a)
    Next
    
    dz1 = Filter(dz, kntrl)
    If UBound(dz1) >= 0 Then Exit Sub
End If

 

[han_oguz]

Yardımınız için çok teşekkür ederim. Sorun çözüldü.