Listview de çoklu veri silme

[aptillah]

Merhabalar ,

Listview de arama yaptırdıktan sonra aşağıdaki kod ile bulunanları başka sayfaya kopyalayabiliyorum. İstediğim kopyaladıktan sonrada o satırların sayfa üzerinde silinmesi.
Bir kaç kod denedim ama yapamadım yardımlarınız bekliyorum.

Private Sub CommandButton1_Click()
For k = 1 To ListView1.ListItems.Count
Son = Sheets("yapılanlar").Range("a65536").End(3).Row + 1
Sheets("yapılanlar").Cells(Son, 1).Value = ListView1.ListItems(k)
For df = 1 To 12
Sheets("yapılanlar").Cells(Son, df).Value = ListView1.ListItems(k).ListSubItems(df).Text
Next df
Next k
MsgBox "kayıt tamam."
End Sub

 

[PLİNT]

Merhaba
Örnek dosya veya
arama yapıp "listview1" e veri ekleyen kodlarıda eklerseniz daha çabuk cevap alırsınız

 

[aptillah]

Merhabalar,

Sorunumu şu kodla çözdüm. Lazım olan olur diye ekliyorum yardımlarınız için teşekkürler.

For k = 1 To ListView1.ListItems.Count
Son = Sheets("yapılanlar").Range("a65536").End(3).Row + 1
Sheets("yapılanlar").Cells(Son, 1).Value = ListView1.ListItems(k)
For df = 1 To 12
Sheets("yapılanlar").Cells(Son, df).Value = ListView1.ListItems(k).ListSubItems(df).text
Sheets("yapılanlar").Cells(Son, 13).Value = "YAPILDI"
Sheets("yapılanlar").Cells(Son, 14).Value = Now
Next df
Next k
For j = 1 To ListView1.ListItems.Count
Set a = Sheets("veri").Range("a3:a65000").Find(ListView1.SelectedItem, , xlValues, xlWhole)
    If Not a Is Nothing Then
    Rows(a + 2).Delete Shift:=xlDown
    End If
    Next j
    Call UserForm_Initialize


MsgBox "kayıt tamam."

End Sub