- Katılım
- 7 Aralık 2006
- Mesajlar
- 160
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 27-05-2023
Merhabalar,
forumda bulduğum bir kod ile farklı kaydet dosyası hazırladım, ancak dosya farklı kaydederken "25.11.2022_10.38.06_Farklı Kaydet.xlsm" olarak kaydediyor. Kodlarda nasıl bir değişiklik yaparsam dosyayı "Farklı Kaydet_25.11.2022_10.38.06.xlsm" olarak kaydedebilirim.
Mevcut kodlar aşağıdaki gibidir:
Sub kaydetyedek()
On Error GoTo hata1
ActiveWorkbook.Save
yolfarkli = "D:\EXCEL\" & ActiveWorkbook.Name
zamanstr = Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_") & "_"
yedekyol = "D:\EXCEL\" & zamanstr & ActiveWorkbook.Name
On Error GoTo hata2
CreateObject("Scripting.FileSystemObject").CopyFile ActiveWorkbook.FullName, yolfarkli, True
On Error GoTo hata3
CreateObject("Scripting.FileSystemObject").CopyFile ActiveWorkbook.FullName, yedekyol, True
On Error GoTo 0
Exit Sub
hata1:
MsgBox ("Kendi adı ile kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
hata2:
MsgBox ("Farklı klasöre kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
hata3:
MsgBox ("Yedek kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
End Sub
forumda bulduğum bir kod ile farklı kaydet dosyası hazırladım, ancak dosya farklı kaydederken "25.11.2022_10.38.06_Farklı Kaydet.xlsm" olarak kaydediyor. Kodlarda nasıl bir değişiklik yaparsam dosyayı "Farklı Kaydet_25.11.2022_10.38.06.xlsm" olarak kaydedebilirim.
Mevcut kodlar aşağıdaki gibidir:
Sub kaydetyedek()
On Error GoTo hata1
ActiveWorkbook.Save
yolfarkli = "D:\EXCEL\" & ActiveWorkbook.Name
zamanstr = Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_") & "_"
yedekyol = "D:\EXCEL\" & zamanstr & ActiveWorkbook.Name
On Error GoTo hata2
CreateObject("Scripting.FileSystemObject").CopyFile ActiveWorkbook.FullName, yolfarkli, True
On Error GoTo hata3
CreateObject("Scripting.FileSystemObject").CopyFile ActiveWorkbook.FullName, yedekyol, True
On Error GoTo 0
Exit Sub
hata1:
MsgBox ("Kendi adı ile kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
hata2:
MsgBox ("Farklı klasöre kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
hata3:
MsgBox ("Yedek kaydet işleminde hata oldu.")
On Error GoTo 0
Exit Sub
End Sub