listedeki seçili olanları aktarmak

[metatak]

arkadaşlar. 2 listboxtan 1.sinde mesela 3-4 satırı seçiyorum. diğer listboxa sadece seçili olanların içinden 1 tanesi geliyor.

yine aynı şekilde sil'e tıklayınca seçili olanların 1 tanesini siliyor.

eklerken
Private Sub ListBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox5.ListIndex < 0 Then
Exit Sub
End If

Dim iL1, sut, iL1Sut As Integer
iL1 = ListBox5.ListIndex
iL1Sut = ListBox1.ColumnCount - 1
With ListBox5
ListBox1.AddItem .List(iL1, 0), 0
For sut = 1 To iL1Sut
ListBox1.List(0, sut) = .List(iL1, sut)
Next sut
End With
End Sub




silerken

Private Sub CommandButton22_Click()
If ListBox5.ListIndex < 0 Then
MsgBox ("Ã? N C E S İ L İ N M E S İ G E R E K E N S A T I R I S E Ç M E L İ S İ N İ Z !..")
Exit Sub
End If
ListBox5.RemoveItem ListBox5.ListIndex

End Sub

:hey: :hey: :hey:

 

[danersin]

Aşağıdaki kodları deneyin ama kullanacaksanız bence dblclicke değil bir butona yazın ..


[vb:1:cf9ec669e4]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim c, iL1, sut, iL1Sut As Integer
c = 0
For iL1 = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(iL1) = True Then
c = c + 1
iL1Sut = ListBox1.ColumnCount - 1
With ListBox1
ListBox5.AddItem .List(iL1, 0), 0
For sut = 1 To iL1Sut
ListBox5.List(0, sut) = .List(iL1, sut)
Next sut
End With
End If
Next iL1
End Sub[/vb:1:cf9ec669e4]

 

[metatak]

söylediğiniz gibi bir butona yapıştırdım fakat çalıştıramadım sayın danersin

 

[danersin]

MultiSelect Listbox transfer

Listbox1'den Listbox5'e çoklu aktarma

 

[metatak]

çok tesekkürler sayın danersin ellerinize saglik.