Herkese merhaba forumdan bulup kendim revize ettiğim bir kodda ne kadar değişiklik yaparsam yapayım belirtiğim yola değil masaüstüne kayıt ediyor. Bir türlü çözemedim.
Yorum satırı olarak ayarladığım kodun dosyanın bulunduğu yola kaydettiğini biliyorum. Onu kapatıp kendim yol yazdığımda ise yine masaütüne fakat dosya adının başına Posta12-04-2023 yazıyor
Kod:
Sub yedek()
Option Explicit
Sub Yedekle()
Dim Yol As String, Sayfa As Worksheet
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
MsgBox "İşlemi iptal ettiniz!", vbExclamation
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Yol = ThisWorkbook.Path & Application.PathSeparator
Yol = "C:\Users\***\Desktop\Posta "
ThisWorkbook.Save
ThisWorkbook.Sheets.Copy
For Each Sayfa In ActiveWorkbook.Worksheets
If Sayfa.DrawingObjects.Count > 0 Then
Sayfa.DrawingObjects.Visible = True
Sayfa.DrawingObjects.Delete
End If
Next
ActiveWorkbook.SaveAs Yol & Format(Now, "dd.mm.yyyy hh_nn_ss") & " " & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Dosya aşağıdaki klasöre yedeklendi." & vbCrLf & vbCrLf & Yol, vbInformation
End Sub