silinen satırı otomatik olarak sayfa 2 ye kaydetme

[uurc1]

Arkadaşlar sayfa 1 de yer alan satırı sildiğim de otomatik olarak sayfa 2 ye aktarmak istiyorum yardımcı olabilirseniz sevinirim iyi çalışmalar.

 

[dEdE]

Merhaba,
Sayfa1'deki aktif hücrenin bulunduğu satırı Sayfa2 de A sütununda boş olan ilk satıra kopyalayıp, sonra da Sayfa1 deki satırı siler

Sub SatırKopyalaSil()
SSat = Sheets("Sayfa2").[A65536].End(3).Row + 1
Sat = ActiveCell.Row
    Rows(Sat & ":" & Sat).Copy Sheets("Sayfa2").Range("A" & SSat)
    Rows(Sat & ":" & Sat).Delete Shift:=xlUp
End Sub

.

 

[EKREM1661]

Sn.dEDE..! kullanışlı oldu.. Teşekkürler..

 

[uurc1]

çok teşekkür ederim