Dosyayı İstenilen Klasöre Yedekleme

Sub DosyayiYedekle()
    Dim kaynakKitap As Workbook
    Dim hedefKlasor As String
    Dim dosyaAdi As String
    Dim tamYol As String
    
    ' Aktif kitabı kaynak olarak ayarla
    Set kaynakKitap = ThisWorkbook
    
    ' Hedef klasörü kullanıcıdan al (örnek olarak belirlenmiş bir klasör yolu)
    hedefKlasor = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xls), *.xls", _
 Title:="Yedeklemek için klasör ve dosya adı seçin")
    
    ' Eğer kullanıcı iptal ederse çık
    If hedefKlasor = "False" Then Exit Sub
    
    ' Dosya adını ve yolunu belirle
    dosyaAdi = Dir(hedefKlasor)
    tamYol = hedefKlasor
    
    ' Dosyayı yeni konuma kaydet
    kaynakKitap.SaveCopyAs tamYol
    
    ' İşlem tamamlandı mesajı
    MsgBox "Dosya başarıyla yedeklendi: " & tamYol, vbInformation
End Sub