Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 04 Mayıs 2010, 19:57:48

Başlık: [Çözüldü] Yedek alma
Gönderen: yesilyurtlu - 04 Mayıs 2010, 19:57:48

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

Başlık: Ynt: yedek alma
Gönderen: Orion1 - 04 Mayıs 2010, 20:52:57

Ö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. 8)

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

Başlık: Ynt: yedek alma
Gönderen: yesilyurtlu - 04 Mayıs 2010, 21:03:08

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

Başlık: Ynt: yedek alma
Gönderen: Orion1 - 04 Mayıs 2010, 21:07:16

Rica ederim.
İyi çalışmalar. 8)