Makro ile ; Aktar, Yazdır, Yedekle ve Sil

[1Al2Ver]

Merhabalar,

Dosya eklemedim, gerekir mi bilemedim,

Kod ;

Sub Çıkışa_Aktar()
Set s2 = Sheets("RAPOR"): Set s3 = Sheets("Malzeme_Çıkışı") 
ilksatır = 23: sonsatır = s2.[I42].End(3).Row: tarih = s2.[J1]
For satır = ilksatır To sonsatır
s3satır = s3.[A65536].End(3).Row + 1

    s3.Cells(s3satır, 1) = tarih: s3.Cells(s3satır, 2) = s2.Cells(satır, 2)
    
    s3.Cells(s3satır, 3) = s2.Cells(satır, 5): s3.Cells(s3satır, 4) = s2.Cells(satır, 4)
    
    s3.Cells(s3satır, 4) = s2.Cells(satır, 8): s3.Cells(s3satır, 5) = s2.Cells(satır, 10)
    
Next
s2.Range("A1:M55").PrintOut
s2.Range("B23:J41").ClearContents
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Bu kodla, bu işlemleri yaparken aynı zamanda ; C sürücüsünde "RAPOR_YEDEKLERİ" isimli klasöre, J1 deki tarihe göre, "RAPOR" sayfanın bire bir aynısı (A1:M55 aralığını), bir excel dosyası olarak (sonrasında, buradan başka bir excel dosyasına veri alınacak) yedeklemek istiyorum.

VEYA

Yedeklemeyi, yine aynı kriterler ile, ayrı bir kod ile de alabiliriz .

Teşekkür ederim.