listBoxtan veri silmek

[mraltin]

arkadaslar bir kac ornek arastirip inceledim ama beceremedim
ListBoxtaki veriyi dblclick ile silebilirmiyiz.
ornekteki gibi;

 

[Levent Menteşoğlu]

Listbox1'e aşağıdaki kodu yazın. Seçtiğiniz veriyi çift tıklattığınızda listeden silecektir.
[vb:1:6f90f4833e]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("DATA").Columns(1).Find(ListBox1.Value).Delete
End Sub
[/vb:1:6f90f4833e]

 

[mraltin]

sn.Leventm herzaman oldugu gibi yine sorunu acil olarak cozdunuz sagolun.ben bunu bir soru ile yapmak istedim hata aldim kodlari degistirdim.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Seçtiginiz Veri Silinecek,Eminmisiniz?",vbYesNo
If 6 Then
Sheets("DATA").Columns(1).Find(ListBox1.Value).Delete
else
End If
End Sub

 

[idogus]

Birde bunu deneyin
[vb:1:6912ba56d3]
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
mesaj = MsgBox "Seçtiginiz Veri Silinecek,Eminmisiniz?",vbYesNo
If mesaj = vbYes Then
Sheets("DATA").Columns(1).Find(ListBox1.Value).Delete
End If
End Sub
[/vb:1:6912ba56d3]

 

[isakarakus]

merhaba

If MsgBox("Seçtiginiz Veri Silinecek,Eminmisiniz?",vbYesNo) = vbYes Then Sheets("DATA").Columns(1).Find(ListBox1.Value).Delete

 

[mraltin]

arkadaslar sn.isakarakusun gonderdigi oluyor tesekkurler fakar soyle bir sorun var listboxtan siliyor fakat veritabanindan sadce sira numrasini sildigi icin toplam tutar degismiyor.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:632ca50ef6]Sheets("DATA").Rows(Sheets("DATA").Columns(1).Find(ListBox1.Value).Row).Delete
[/vb:1:632ca50ef6]

 

[idogus]

[vb:1:0813a8e230]
If MsgBox("Seçtiginiz Veri Silinecek,Eminmisiniz?",vbYesNo) = vbYes Then
sil = Sheets("DATA").Columns(1).Find(ListBox1.Value).Row
Sheets("DATA").Rows(sil).Delete
End If
[/vb:1:0813a8e230]