[Çözüldü] Yedek alma

[yesilyurtlu]

Hayırlı Akşamlar;
Üstadım sadece aktif sayfayı tarihli ve formülleride değer olarak E\ ya da D\ sürücüsüne yedek alabilir miyiz?

Teşekkür Ederim

[Orion1]

Önce boş bir sayfayı aktif edip oraya verilerinizi değerler ve formatlar şeklinde özel yapıştırınız sonrada aşağıdaki kodu çalıştırınız.

Kod: [Seç]

Sub aktifsayfa()
    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\" & Format(Now, "dd__mm_yyyy_hh_mm_ss") & "_YEDEK.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
    MsgBox "aktif sayfa D sürücüsüne kopyalandı.", vbInformation

End Sub

[yesilyurtlu]

Üstadım;
Ellerine Sağlık Sağolasın. "ÇÖZÜLDÜ"

[Orion1]

Rica ederim.
İyi çalışmalar.