Listview'den satır silme

[fehdur]

Aşağıdaki kod ile comboboxdan seçilen isme ve "E" sütunundaki değere göre excel sayfasından veriyi siliyorum.Şimdi yapmak istediğim Combobox'dan değilde Listview1'den seçilen veriyi silsin.Yalnız listview'de satır seçilemiyor.Listbox gibi değil önce onu yazmak gerekiyor.Aşağıdaki kodun ilgili yerinde değişikli yapmak yeterli olacaktır.Teşekkür ederim.


Dim S1 As Worksheet, c As Range, Adr As String, k As Range

Set S1 = Sheets("Sayfa1")

Set c = S1.[A:A].Find(ComboBox1, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If S1.Cells(c.Row, "E") = "SATIŞ" Then
If k Is Nothing Then
Set k = S1.Rows(c.Row)
Else
Set k = Application.Union(k, S1.Rows(c.Row))
End If
End If
Set c = S1.[A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If

If Not k Is Nothing Then
Application.ScreenUpdating = False
k.Delete
Application.ScreenUpdating = True
MsgBox "Silme Tamamladı."
End If

 

[fehdur]

Aşağıdaki kodun yukarıdaki koda uyarlanması yeterli olacaktır.

if ListView1.SelectedItem is nothing then exit sub

if MsgBox("Kayıtı silmek İstiyormusunuz", "Question", vbYesNo) = vbYes then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
end if

 

[fehdur]

Aşağıdaki kodu yazdım ama anasayfadan silme işlemi yapmıyor.Acaba hata nerede?

If listview1.SelectedItem Is Nothing Then Exit Sub
listview1.ListItems.Remove listview1.SelectedItem.Index
Set BUL = Sheets("Anasayfa").Range("a15:a500").Find(listview1.SelectedItem, lookat:=xlWhole)
If Not BUL Is Nothing Then
Sheets("Anasayfa").Rows(BUL.Row).Delete
End If