Merhaba,
Kodlarınız;
Private Sub CommandButton1_Click()
If ListBox1.ListIndex > -1 Then
ListBox2.AddItem ListBox1
ListBox1.RemoveItem (ListBox1.ListIndex)
End If
End Sub
Private Sub CommandButton2_Click()
If ListBox2.ListIndex > -1 Then
ListBox1.AddItem ListBox2
ListBox2.RemoveItem (ListBox2.ListIndex)
End If
End Sub
Private Sub CommandButton3_Click()
[e:e] = ""
s = 1
For i = 0 To ListBox2.ListCount - 1
Cells(s, 5) = ListBox2.List(i, 0)
s = s + 1
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.