Listview1 de filtrelenmiş verileri sayfadan silmek.

[udentr2002]

Merhaba arkadaşlar.
Userform üzerinde combobox3 te yazan veriye göre "Planlama" adlı sayfadan AC sütununda a6 satırından başlayarak, filtreleme yapıyorum.
Buraya kadar tamam.
Butona tıkladığımda, listview de süzülen verileri (bu veriler birden fazla satır olabiliyor) ilgili sayfadan ("Planlama" sayfasından) silmesi için nasıl bir kod yazabilirim.
Combobox3 change kodları aşağıdaki gibidir.

Private Sub ComboBox3_Change()

 ListView1.ListItems.Clear

For i = 1 To Sheets("Planlama").Cells(60000, "AC").End(xlUp).Row
If Sheets("Planlama").Cells(i, "ac").Value = Me.ComboBox3 Then
y = y + 1
ListView1.ListItems.Add , , i

ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 1)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 2)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 3)
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 4), "#,0")
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 5), "#,#####0.0000000")
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 6), "#,###0.00000")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 7)
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 8), "#,##0.000")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 9)

ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 10), "#,##0.00")
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 11), "#,##0.00000")


ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 12)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 13)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 14)
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 15), "#,##0.000")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 16)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 17)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 18)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 19)

ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 20), "#,##0.00")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 21)
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 22), "#,0")
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 23), "#,##0.00")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 24)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 25)
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 26), "#,##0.00")
ListView1.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 27), "#,##0.00")
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 28)
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 29)


End If

Next i
If ListView1.ListItems.Count = 0 Then
    MsgBox "Bu kayda rastlanmamıştır." & vbLf & vbLf & "İbrahim Özkarabulut", vbCritical, "UYARI"
 
Call listele
End If
If ComboBox3 = "" Then
Call listele
End If


End Sub