süzme yapıldıktan sonra silme işlemi.

[ahmetozbey]

süzme işlemi için aşağıdaki kodları kullanıyorum.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="1"
Range("a2:g" & Rows.Count).AutoFilter field:=2, Criteria1:=[h1] & "*", Operator:=xlAnd
Sheets("14").[a2].Select
End Sub

süzme işlemi bittikten sonra, sadece süzülen verileri bir butonla silinmesini istiyorum.
silme butonuna tıkladığımda gerçekten silmek istiyormusunuz şeklinde uyarı vererek silme işleminin gerçekleşmesini istiyorum.

yardımcı olursanız memnun olurum.

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub Suzulmus_Verileri_Sil()
    Dim i As Long
    i = Cells(Rows.Count, "A").End(3).Row
    Rows("2:" & i).Delete Shift:=xlUp
    ActiveSheet.ShowAllData
End Sub

 

[ahmetozbey]

çok teşekkür ederim.