Soru Hücrede Şarta uyan kayıtların diğer sayfanın altına eklenmesi hk

[serkan guvenc]

Örnek dosyada deneme sayfasında e sütündaki değer iade yse kesip diğer iade sayfasının ilk boş satırına yazmasını nasıl yaptırabilirm
Şİmdiden çok teşekkür ederim

 

[veyselemre]

Sub test()

    Set s1 = Sheets("DENEME")
    Set s2 = Sheets("iade")
    son = s1.Cells(Rows.Count, 1).End(3).Row
    If son < 2 Then Exit Sub
    
    For i = 2 To son
        If s1.Cells(i, "E").Value = "iade" Then
            s1.Cells(i, "A").Resize(, 45).Cut s2.Cells(Rows.Count, 1).End(3).Offset(1)
            s1.Rows(i).Delete
            son = son - 1
        End If
    Next i
    
End Sub