listboxdan hücreye veri aktarma

[microaim]

merhaba arkadaşlar...
problemimi ekteki örnekte anlatmaya çalıştım.
şimdiden teşekkür ederim...

 

[meslan]

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

Kolay Gelsin.

 

[microaim]

hocam çok teşekkür ederim.tam istediğim gibi olmuş.