Listbox

[semih4]

İyi akşamlar arkadaşlar;
benim bir sorunum var yardımcı olabilecek varsa sevinirim;

Şimdi benim userformda iki tane listboxum var;1. List boxda bazı kodlar var; bu list boxun üstündeki kodlardan hangisine tıkalrsam diğer listboxa gececek ; bunun kodunu nasil yazabilirim?

Örnek dosya ile daha iyi anlayacagınızda bir örnek dosya ekliyorum ilginize teşekkür ederim.

 

[semih4]

Dosya ekte ekleyememişim az önce özürdilerim.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox2.AddItem ListBox1.Value
End Sub

 

[semih4]

Diğer tarafdakininde silinmesini istiyorum ama ugrastırdığım için özür dilerim ; ilginiz için teşekkür ederim.

 

[Orion1]

Diğer tarafdakininde silinmesini istiyorum ama ugrastırdığım için özür dilerim ; ilginiz için teşekkür ederim.

İlgili kodu aşağıdaki ile değiştiriniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox2.AddItem ListBox1.Value
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

 

[semih4]

Çok teşekkür ederim;
İyi akşamlar kolay gelsin.