Sayfayı arşivleme (yedek almak)

[Yüksel Varlı]

Merhaba arkadaşlar. Aşağıdaki kodlarla sayfayı yedeğe atıyorum. Ancak peş peşe ekteki resimlerde görülen hata uyarılarını veriyor. Daha sonra yedkliyor. Sebebi ne olabilir.

Sub ARŞİVLE()
'Sayfayı Farklı Kaydet
On Error Resume Next
Dim Dosya_Yolu As String, Dosya_Adı As String
    
Application.ScreenUpdating = True
    Sheets("puantaj").Select
    Sheets("puantaj").Copy
     
    Klasor = "C:\İŞÇİ PUANTAJ ÇİZELGELERİ"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor

    Dosya_Adı = Format(Now, "dd.mm.yyyy" & "_" & "puantaj") & ".xls"
    ActiveWorkbook.SaveCopyAs Filename:=Klasor & Application.PathSeparator & Dosya_Adı
    ActiveWorkbook.Close 0
    
   
    Sheets("puantaj").Select
    Application.ScreenUpdating = False
    MsgBox "İşçi Puantaj Dosyası C:\İŞÇİ PUANTAJ ÇİZELGELERİ Klasörüne Arşivlenmiştir.", vbInformation, "Alp Yazılım"
    Range("A1").Select

End Sub