Önemli Excel dosyaları - Yedekli Çalışma.

quote:

Orijinalden alıntı: TheMuyu

flashdisk olayı çok sıkıntı

cloud servisinden birini tercih edip kuracaksınız makinaya
sonrasında o klasörde yaptığınız tüm değişiklikler sunucuda tutulacak
başka pc den veya browser uzerinden erişebilirsiniz

Google Drive, Yandex Disk, OneDrive, Dropbox vs vs

quote:

Orijinalden alıntı: cdemir

Anlık olarak değişiklik yapmak, sıkıntılı olur.
Dosyalarınız büyükse. Excel'e A yazdığınızda bile kaydetme işlemi yapacağı için;
her işlem yaptığınızda kayıt işlemi yapacağınız için işlemleriniz yavaşlar.

Aşağıdaki makroyu kendinize göre düzenleyin personal.xls dosyanıza ekleyin. Sonra hızlı araç çubuğuna makroyu ekleyin. Bu düğmeye bastığınızda hem çalıştığınız dosya kayıt edilir hemde o dosya belirttiğiniz yere yedek alınır.

Hedef = "C:\Yedek\" & Dosya
Satırındaki C:\Yedek\ tanımlamasını yedek almak istediğiniz yere göre düzenleyin.


------------------------

Dim Dosya, Yol, Hedef
Dim FS As Object

Sub ozel_kaydet()
ActiveWorkbook.Save
Dosya = ActiveWorkbook.Name
Yol = ActiveWorkbook.Path
Hedef = "C:\Yedek\" & Dosya
Dosya = Yol & "\" & Dosya
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFile Dosya, Hedef, True
Set FS = Nothing
End Sub

quote:

Orijinalden alıntı: cdemir

Zamanlama yapılır 5 dakika sonra kayıt edilebilir. Ama bu da sakıncalı olur.
Olur da 5 dakika geçmeden önce exceli kapatırsanız. Dosyanız yedeklenmez.

Yukarıda belirttiğim yöntem işizini görür sanırım.
Tek dezavantajı dosyanızı kayıt etmek istediğinizde, hızlı araç çubuğundaki, düğmeye basmak zorunda olmanız.
Bunu unutur da, normal kaydederseniz. Dosyanız yedeklenmemiş olur.

Ek:

Eğer her çalıştığınız dosyanın "BuÇalışmaKitabı" Modülüne bu kodları eklerseniz.
Her kayıt işleminizden sonra belirlediğiniz yere dosyanız yedeklenir.

Bunun da dezavantajı her dosyanıza uygulamanız gerekir ve excel sürümünüze göre, dosyaları xlsm olarak kaydetmeniz gerekebilir.

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Dosya, Yol, Hedef
Dim FS As Object
Dosya = ActiveWorkbook.Name
Yol = ActiveWorkbook.Path
Hedef = "C:\Yedek\" & Dosya
Dosya = Yol & "\" & Dosya
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFile Dosya, Hedef, True
Set FS = Nothing
End Sub


Alt+F11 e tıklayıp VBA editörü açıyorsunuz. Projet explorerden (sol tarafta) ilgili dosyanın BuÇalışmaKitabı modülüne çift tıklayıp sağ tarafa kodları kopyalıyorsunuz.