Listbox'tan satır silmek.

[tufan03]

Formda belkide onlarca örnek buldum,fakat kendi yaptığım userform üzerindeki listboklara uyguladığımda hepsinde de hata verdi.
İstediğim Listboxta bulunan istediğim satırı gerek üzerine çift tıklayarak, gerekse seçilip bir butona atanacak kod ile satırları nasıl silebilirim. Genel bir satır silme kodu istiyorum. Selamlar.

 

[mesuttasar]

Private Sub CommandButton2_Click()
cvp = MsgBox("İlgili satırı silmek istiyor musunuz?", vbYesNo)
If cvp = vbYes Then
Rows(ListBox1.ListIndex + 2).Delete
UserForm_Initialize
End If
End Sub

Bu kod işine yarayabilir.

 

[tufan03]

Evet aynı hatalardan birini verdi. Koddaki hata satırı;
Rows(ListBox1.ListIndex + 2).Delete

 

[mesuttasar]

Örnek dosya eklermisiniz?

 

[mesuttasar]

Olması gereken kod bu olacak.Özür dilerim.

Private Sub CommandButton1_Click()
cvp = MsgBox("İlgili satırı silmek istiyor musunuz?", vbYesNo)
If cvp = vbYes Then
Rows(ListBox1.ListIndex + 1).Delete
End If
End Sub

 

[tufan03]

Acaba listbokta yazılı listenin bulunduğu sayfanın o anda aktif olup olmaması etkilermi bilmiyorum.

 

[ECYavuz]

İşinize yarar sanırım..

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex
'Rows(ListBox1.ListIndex + 1).Delete ' Burasıda Excel sayfasındaki satırı siler
End Sub