Farklı Kaydet

[aydogankemal]

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

 

[Muzaffer Ali]

Merhaba.
1-
Aşağıdaki satırı silin

zamanstr = Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_") & "_"

yerine aşağıdaki satırı kopyalayın

zamanstr ="_" &  Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_")

2-
Aşağıdaki satırı silin

yedekyol = "D:\EXCEL\" & zamanstr & ActiveWorkbook.Name

yerine aşağıdaki satırı kopyalayın

yedekyol = "D:\EXCEL\" & ActiveWorkbook.Name & zamanstr

 

[aydogankemal]

Teşekkür ederim, aslında oldu gibi amaufak bir değişiklik gerekiyor sanırım. Dosyayı aşağıdaki gibi kaydetti:
Farklı Kaydet.xlsm_25.11.2022_12.47.22 (uzantı 22 oldu)

 

[aydogankemal]

Merhaba.
1-
Aşağıdaki satırı silin

zamanstr = Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_") & "_"

yerine aşağıdaki satırı kopyalayın

zamanstr ="_" &  Replace(Replace(Replace(Now, ".", "."), ":", "."), " ", "_")

2-
Aşağıdaki satırı silin

yedekyol = "D:\EXCEL\" & zamanstr & ActiveWorkbook.Name

yerine aşağıdaki satırı kopyalayın

yedekyol = "D:\EXCEL\" & ActiveWorkbook.Name & zamanstr

Kodu böyle değiştirdim, sanırım oldu:
yedekyol = "D:\EXCEL\" & ActiveWorkbook.Name & zamanstr & ".xlsm"