Listviewden seçili değeri silme

[seddur]

Merhaba Arkadaşlar.Listview'den seçili değere ait satırı Listview'den ve excel sayfasından silmek istiyorum.(Veriler 18.satırdan itibaren kayıt oluyor)İnternetde bulduğum örnekleri kendime uyarlayamadım.Verilerin bulunduğu sayfanın ismi "TAKİP".Listview'in ismi ise "DÖKÜM".Yalnız bir ricam var amatör arkadaşlar yazışma yapmasınlar soruya cevap verilmiş gibi algılanıyor ve yazışma çözümsüz kalıyor.Her neyse yardımcı olacak uzman arkadaşa Teşekkürlerimi iletiyorum.

 

[seddur]

Aşağıdaki kod ile listviewden ve excel sayfasından silme işlemini yaptım.İhtiyacı olan varsa diye yazıyorum.Yalnız önce listviewdeki değerlerin textboxlara alınması gerekiyor.Kodda textbox2 de isim,textbox3 de tarih var.Yine Excel sayfasında "A" sutununda isim,"B" sutununda tarih var.
Listviewden hangi satır seçildiyse o satırı siliyor.

Dim S1 As Worksheet, c As Range, Adr As String, k As Range
Set S2 = Sheets("Takip")
Set c = S2.[A:A].Find(TextBox2, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If S2.Cells(c.Row, "B") = CDbl(CDate(TextBox3)) Then
If k Is Nothing Then
Set k = S2.Rows(c.Row)
Else
Set k = Application.Union(k, S2.Rows(c.Row))
End If
End If
Set c = S2.[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
If UserForm2.Listview1.SelectedItem Is Nothing Then Exit Sub
UserForm2.Listview1.ListItems.Remove UserForm2.Listview1.SelectedItem.Index

 

[Cengizhantr06]

Aşağıdaki kod ile listviewden ve excel sayfasından silme işlemini yaptım.İhtiyacı olan varsa diye yazıyorum.Yalnız önce listviewdeki değerlerin textboxlara alınması gerekiyor.Kodda textbox2 de isim,textbox3 de tarih var.Yine Excel sayfasında "A" sutununda isim,"B" sutununda tarih var.
Listviewden hangi satır seçildiyse o satırı siliyor.

Dim S1 As Worksheet, c As Range, Adr As String, k As Range
Set S2 = Sheets("Takip")
Set c = S2.[A:A].Find(TextBox2, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If S2.Cells(c.Row, "B") = CDbl(CDate(TextBox3)) Then
If k Is Nothing Then
Set k = S2.Rows(c.Row)
Else
Set k = Application.Union(k, S2.Rows(c.Row))
End If
End If
Set c = S2.[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
If UserForm2.Listview1.SelectedItem Is Nothing Then Exit Sub
UserForm2.Listview1.ListItems.Remove UserForm2.Listview1.SelectedItem.Index

Örnek dosya yüklerseniz yardım ederim