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:
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: