dosya yedeklemek

[dennisf06]

merhaba;

farkli excel dosyalari üzerinde calisma yapip excel in kendi menüsündeki kaydet tusuna basip ciktigimda farkli bir yerde dosyanin yedeklenmesini istiyorum. eger ikinci bir sefer dosyayi acip degisiklik yaptigimda bir öncekinin üzerine kayit yapsin. linkleri incelememe ragmen böyle bir seye rastlayamadim veya bunun icin gözden kacirdigim bir link varsa yardimci olursaniz sevinirim. simdiden tesekkür ederim. saygilar.

 

[uzmanamele]

merhaba
farklı kaydet / araçlar / genel seçenekler / herzamana yedekle
bu onay kutusunu işaretlemeniz yeterli olur mu?

 

[dennisf06]

öncelikle tesekkür ederim ilginize. söylediginiz onay kutusunu isaretledim, ama dosyayi nereye kayit ettigini bulamadim. dosya kaydetme yerini nasil kendim belirleyebilirim.

 

[uzmanamele]

merhaba
dosya adı "Kitap1.xls" ise, "Kitap1.xls" nın içinde bulunduğu klasöre "Yedek Kitap1.xlk" diye kaydeder.
"Kitap1.xls" keydettikden sonraki halidir, "Yedek Kitap1.xlk" kaydetmeden önceki halidir.

 

[dennisf06]

evet tamam. klasörüm büyük oldugu icin en altta görememisim. ama benim icin önemli olan dosya adi degismeden kaydetmesi bir de belirleyecegim klasöre kaydetmesi. bunun icin bir yol var mi acaba buna benzer. Saygilar.

 

[uzmanamele]

merhaba
ThisWorkbook bölümüne yazarak denermisiniz
kodlar (&#231alıntıdır

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub

 

[dennisf06]

tamam deneyeyim ama dosya yolunu nereye yazmam gerekiyor. C:/Program/Yedek.. gibi

 

[uzmanamele]

merhaba
aşağıdaki linkleri inceleyin

http://www.excel.web.tr/showthread.php?t=7285
http://www.excel.web.tr/showthread.php?t=48308
http://www.excel.web.tr/showthread.php?t=17337
http://www.excel.web.tr/showthread.php?t=15158

 

[dennisf06]

linkleri inceliyorum. hala sorumun yanitini bulamadim. bir de linklerin icinde verilen linkler hatali cikiyor. yine de yardimlariniz icin tesekkür ediyorum. saygilarimla...

 

[Ayhan Ercan]

Merhaba, @dennisf06

Aşağıdaki kodu kendi dosya yolunuz belirleyerek deneyiniz...

ActiveWorkbook.SaveAs Filename:="C:\Program\Yedek.xls"

 

[dennisf06]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs Filename:="C:\Program\IFS\Yedek.xls"
End Sub

yukardaki kodlari yazdigim zaman IFS adli dosyanin altina dosyami Yedek adinda yedekliyor. IFS adli dosyanin altinda dosyamin orjinal adiyla yedeklenmesi icin kodu nasil degistirmem lazim acaba. yardimci olursaniz cok sevinirim. saygilarimla...

 

[Ayhan Ercan]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs Filename:="C:\Program\IFS\Yedek.xls"
End Sub

yukardaki kodlari yazdigim zaman IFS adli dosyanin altina dosyami Yedek adinda yedekliyor. IFS adli dosyanin altinda dosyamin orjinal adiyla yedeklenmesi icin kodu nasil degistirmem lazim acaba. yardimci olursaniz cok sevinirim. saygilarimla...

Merhaba Sn dennisf06


Aşağıdaki gibi denermisiniz.. ?

[B]ActiveWorkbook.SaveCopyAs Filename:="C:\Program\IFS\" & ThisWorkbook.Name[/B]

 

[dennisf06]

merhaba

Ayhan bey tesekkür ederim, ThisWorkbook bölümüne verdiginiz kod u yazdim ama olmadi yanlis yere mi yaziyorum acaba kod bilgim yeterli olmadigi icin bilemiyorum.

 

[Ayhan Ercan]

ThisWorkbook bölümüne verdiginiz kod u yazdim

Merhaba,
ThisWorkbook bölümüne değil...

Aşağıda sizin verdiğiniz kodlar üzerinde değişikliği (kırmızı yazılı satırda)yaptım. Bu şekilde denermisiniz?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
[COLOR=red][B]ActiveWorkbook.SaveCopyAs Filename:="C:\Program\IFS\" & ThisWorkbook.Name[/B][/COLOR]
[COLOR=black]End Sub[/COLOR]

 

[dennisf06]

Ayhan bey nasil tesekkür edecegimi bilemiyorum. büyük bir problemimi cözdünüz. elleriniz dert görmesin. Saygilarimla...

 

[Ayhan Ercan]

Ayhan bey nasil tesekkür edecegimi bilemiyorum. büyük bir problemimi cözdünüz. elleriniz dert görmesin. Saygilarimla...

Rica ederim.
İyi Çalışmalar k::