Listboxda seçilen birden fazla satırı silmek veya aktarmak.

[acolkesen1]

Merhaba,
Listboxda Multiselect özelliği ile seçtiğim birden fazla satırla işlem yapmak istiyorum. Ekteki örnekte tek satır siliniyor. Birden fazla satırı seçerek silmek veya Sayfa2 ye kopyalamak için gerekli olan kod konusunda yardıma ihtiyacım var. ilgilenen arkadaşlara teşekkür ederim.

 

[halit3]

Bunu denermisiniz.

Private Sub CommandButton1_Click()
sil = ""
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
If sil = "" Then
sil = i + 1 & ":" & i + 1
Else
sil = i + 1 & ":" & i + 1 & "," & sil
End If
End If
Next
Range(sil).Delete Shift:=xlUp
End Sub

 

[acolkesen1]

Merhaba sayın halit3,
ilginize çok teşekkür ederim.Kodlarınız çok işime yaradı .Küçük değişikliklerle bir çok yerde kullanacağım. Esen kalın..