Soru ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

[Hsn55]

Merhabalar;
Ekli dosyada Listbox1 de seçili satırı çift tıklayınca kayıtlar sayfasındaki veriyi silebilir miyiz?. Yardımcı olursanız sevinirim. Saygılarımla

https://dosyam.org/Xy0/Dava.xlsm

 

[ÖmerFaruk]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Aranan = ListBox1.List(ListBox1.ListIndex, 0)
    Satır = WorksheetFunction.Match(Aranan, Sheets("KAYITLAR").Range("B:B"), 0)
    Sheets("KAYITLAR").Rows(Satır).Delete
End Sub