listboxta çift tıklama ile hücreden silinmesi

[oornek1]

listbox ta olan verilerin çift tıklama ile silinmesi için ne yapmalıyım

 

[asi_kral]

Merhaba
Userformda oluğu düşünülmüştür.
A1:A10 arası çalışır.
Userformun kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim STR As Long, HATA
With WorksheetFunction
On Error GoTo HATA
STR = .Match(ListBox1, Range("A1:A10"), 0)
Cells(STR, "A").Delete
HATA:
End With
UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "A1:A10"
End Sub