ÇÖZÜLDÜ : Listbox'tan Listbox'a Butonla Veri Eklemede Aynı Kayıtları Eklemesin ?

[CengizYurek]

Merhabalar
PersonelList'ten NobetList'e commandbuton ile tek tek veri eklemek istiyorum ancak ilk veriyi ekledikten sonra kod çalışmıyor. ikinci eklemek istediğim veriyi eklemiyor. Lütfen yardımcı olur musunuz ?
Aslında tek tek eklemekte problem yaşamamıştım. Ancak aynı verileri eklemesin diye if komutu ekledikten sonra maalesef kodum tek veriyi ekledikten sonra çalışmadı.

Private Sub TekEklebtn_Click()

Dim x As Integer

listesayisi = NobetList.ListCount
If listesayisi = 0 Then
For x = 0 To PersonelList.ListCount - 1
If PersonelList.Selected(x) = True Then
NobetList.AddItem (PersonelList.List(x))
For i = 1 To listesayisi
If PersonelList.List(x) = NobetList.List(i - 1) Then
MsgBox Title:="Hata", Prompt:="Bu personel daha önce listeye eklendi."
Exit Sub
End If
Next
End If
Next
End If
End Sub

Güncelleme:
Kodlarımı düzenleyip sadece removeitem ekledim ve çözüldü. İşine yarayacaklar için ekliyorum.

Private Sub TekEklebtn_Click()

Dim x As Integer
For x = 0 To PersonelList.ListCount - 1
If PersonelList.Selected(x) = True Then
NobetList.AddItem (PersonelList.List(x))
PersonelList.RemoveItem (x)
End If
Next x
End Sub