listbox1 deki çoklu verilerin bir kısmını listbox 2 ye aktarmak

[musculus]

iki adet listboxum var
listboxdaki çoklu verilerden(4000 adet) benim seçtiklerimin listbox2'ye aktarabilirmiyiz.
aktarma tek tek tıklayarak listbox2'ye aktarılacak
her seferinde kaç adet tıklama olacağı değişken
yani 1.ismi tıklayıp aktar butonuna bastıktan sonra isim listbox2'ye aktarılacak
daha sonra 5.(yada 10.cu) isme tıklayıp aktar dediğimizde listbox2'ye aktaracak.
ayrıca textbox1 de arama yapabilmekteyiz arama yaptıktan sonra yine listbox1 tıkladığımız herhangi bir ismi listbox2'ye aktarabilmeliyiz.

ben uğraştım ama listbox2.deki satır atlama olayını aşamadım.
s=s+1 diyorum ama comboboxa tıklayıp tekrar listboxu tıkladığmda s=0 olduğundan tüm veriyi sadece listbox2'nin 1 satırına yazıyor

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
If ListBox1.ListIndex < 0 Then Exit Sub
ListBox2.AddItem ListBox1.Value
End Sub

Private Sub CommandButton2_Click()
If ListBox2.ListIndex < 0 Then Exit Sub
ListBox1.AddItem ListBox2.Value
End Sub

 

[musculus]

bilgi için teşekkür ederim
yalnız listbox2'e aktarmada problem yok ama listbox2 deki veriyi listbox1'aktarma değil
sadece listbox2'den sadece o veriyi silecek çünkü o veri zaten listbox1 de var

 

[musculus]

Sayın Evren GİZLEN teşekkür ederim bilginize sağlık
ListBox2.RemoveItem ListBox2.ListIndex
bu şekilde sorunum çözüldü teşekkür ederim

 

[musculus]

listbox da3 sutun var.onu da
ListBox2.AddItem
ListBox2.List(ListBox2.ListCount - 2, 0) = ListBox1.List(ListBox1.ListIndex, 0)
ListBox2.List(ListBox2.ListCount - 2, 1) = ListBox1.List(ListBox1.ListIndex, 1)
ListBox2.List(ListBox2.ListCount - 2, 2) = ListBox1.List(ListBox1.ListIndex, 2)

şekilde aktardım

 

[musculus]

sorun çözülmemiş İDİ
her tıklamada listcount anlamadığım bir sebebden dolayı 2 şer 2 şer artıyor idi
msgbox listbox2.listcount her tıklamada sıra ile 2 4 6 8 10 diye gidiyor idi
sorunun kaynağını bulamadım ama matematiksel bir çözüm buldum
2 4 6 8 10 şeklinde giden bir diziyi 2'ye bölüp 1 çıkarırsam 0,1,2,3,4
olur dedim ve kodları
ListBox2.List(ListBox2.ListCount / 2 - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
ListBox2.List(ListBox2.ListCount / 2 - 1, 1) = ListBox1.List(ListBox1.ListIndex, 1)
ListBox2.List(ListBox2.ListCount / 2 - 1, 2) = ListBox1.List(ListBox1.ListIndex, 2)

yaptım sorunum çözüldü ama ileride hata veriri mi bilemiyorum
sorunun nedenini çözemedim hatasını yamadım sadece