Sub date_backup()
zaman = Application.Text(Now(), "dd.mm.yyyy")
isim = "yedek " & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub
Merhaba,
Bu macro ağda bulunan bir dosyada olacak.Çalışma kitabını kapatırken bulunduğu dosya içinde bir tane 'yedek' isimli bir dosyanın içine otomatik kaydetmesi için yukarıdaki macroya nasıl bir ek yapmam lazım?Birde o gün içinde 5-6 kez dosyaya veri girişi yapmışsam bile yalnızca dosyanın o gün için bir tane ve en son halini kaydetmesi gerekiyor.
Not:Macro; düğme ataması olmadan çalışma kitabından çıkarken kaydet veya kapat dediğimizde otomatik çalışacak.
Yardımlarınız için şimdiden teşekkür ederim.
zaman = Application.Text(Now(), "dd.mm.yyyy")
isim = "yedek " & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub
Merhaba,
Bu macro ağda bulunan bir dosyada olacak.Çalışma kitabını kapatırken bulunduğu dosya içinde bir tane 'yedek' isimli bir dosyanın içine otomatik kaydetmesi için yukarıdaki macroya nasıl bir ek yapmam lazım?Birde o gün içinde 5-6 kez dosyaya veri girişi yapmışsam bile yalnızca dosyanın o gün için bir tane ve en son halini kaydetmesi gerekiyor.
Not:Macro; düğme ataması olmadan çalışma kitabından çıkarken kaydet veya kapat dediğimizde otomatik çalışacak.
Yardımlarınız için şimdiden teşekkür ederim.