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]
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
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]
arkadaslar sn.isakarakusun gonderdigi oluyor tesekkurler fakar soyle bir sorun var listboxtan siliyor fakat veritabanindan sadce sira numrasini sildigi icin toplam tutar degismiyor.
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.