Dosya Yedeklemesi hk.

[metin_0606]

Değerli üstatlar makro kullanarak çalışma kitabımı xlsm uzantılı olarak belirlediğim klasör içine yedekliyorum. Merak ettiğim yedekleme yaparken örneğin module 10 nu almadan yedekleme almasını sağlayabilir miyiz. Böyle bir şey mümkün mü

 

[Korhan Ayhan]

Forumda modül silen kodlamalar mevcut.

Arama yaparsanız ulaşabilirsiniz.

 

[metin_0606]

Forumda modül silen kodlamalar mevcut.

Arama yaparsanız ulaşabilirsiniz.

Korhan hocam module sildiği zaman Ana Dosyamdan da silmiş olmayacak mı. Eğer siliyorsa ben dosyamın en son halini çıkarken kaydetmek istediğimde o modüle silinmiş olarak kaydedecek sanırım. Bu şekilde olduğu zaman benim işimi görmüyor maalesef

 

[Korhan Ayhan]

Yedekleme kodlarına göre durum değişir.

Eğer farklı kaydet ile yedekleme yapıyorsanız asıl dosyanız bozulmadığından modül silmek dosyanızı etkilemeyecektir.

 

[metin_0606]

Yedekleme kodlarına göre durum değişir.

Eğer farklı kaydet ile yedekleme yapıyorsanız asıl dosyanız bozulmadığından modül silmek dosyanızı etkilemeyecektir.
[/QUOTE

Sub AKTIF_DOSYAYI_YEDEKLE()
    Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String
    Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
    
      
    Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
    Aktif_Dosya_Adı = ThisWorkbook.FullName
    Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, ".xlsm", "") & Format(Date, " dd_mm_yyyy") & "_" & Format(Now, "hh_mm") & ".xlsm"
 
    Kayıt_Yeri = "C:\YEDEK\" & Yedek_Dosya_Adı
    
    ThisWorkbook.Save
 
    On Error Resume Next
    If Dir("C:\YEDEK\") = "" Then MkDir "C:\YEDEK\"
    DosyaSistemi.copyFile Aktif_Dosya_Adı, Kayıt_Yeri
     MsgBox "Dosyanız yedeklenmiştir."
     End sub

Yedeklemeyi bu makro ile yapmaktayım Korhan hocam

 

[Korhan Ayhan]

Bu dosyayı kopyalayarak yedekleme yapıyor. Bu sebeple modülü silmek sorun çıkartır.

Şöyle yapılabilir;

Yedeklenen dosya açılarak bahsettiğiniz modül silinerek dosya kaydedilir ve kapatılır.