Kaydet yaparken, numaralı yedek kayıt

[OKUROGLU3375]

Selamlar;
Ana dosyayı kaydederken yedek klasörü içerisine aynı isimle kayıt alabiliyorum.
Benim yapmak istediğim ana dosyamın aynı isimle kalması,
Ana Dosya İsmi = kayıt deneme (değişmeyecek)
Yedek klasörü içerisine = kayıt deneme001 - kayıt deneme002 - kayıt deneme003 diyerek gitmesi
Yardımlarınız için teşekkürler.

 

[OKUROGLU3375]

.

 

[OKUROGLU3375]

.

 

[OKUROGLU3375]

Çözülmedi

 

[Cengiz Demir]

Yedekli dosyalarda en son numarayı bulmak biraz uğraştıracağı için;
yol değişkenini aşağıdaki şekilde ayarladım. Dosya adının sonuna tarih ve saat ekliyor.
Sıralama açısından düzgün olsun diye yıl ay gün olarak ayarladım tarihi.
2023.11.20-11-23
İsterseniz Format(Date, "yyyy.mm.dd") yi isteğinize göre ayarlayabilirsiniz.

yol = "C:\DENEME\YEDEK\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & "-" & Format(Date, "yyyy.mm.dd") & "-" & Format(Time, "hh-mm") & ".xlsm"

 

[OKUROGLU3375]

Yedekli dosyalarda en son numarayı bulmak biraz uğraştıracağı için;
yol değişkenini aşağıdaki şekilde ayarladım. Dosya adının sonuna tarih ve saat ekliyor.
Sıralama açısından düzgün olsun diye yıl ay gün olarak ayarladım tarihi.
2023.11.20-11-23
İsterseniz Format(Date, "yyyy.mm.dd") yi isteğinize göre ayarlayabilirsiniz.

yol = "C:\DENEME\YEDEK\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & "-" & Format(Date, "yyyy.mm.dd") & "-" & Format(Time, "hh-mm") & ".xlsm"

Teşekkür Ederim. Hayırlı günler olsun.

 

[Cengiz Demir]

Rica ederim. Hayırlı günler

Yedekli dosyalarda en son numarayı bulmak biraz uğraştıracağı için;
yol değişkenini aşağıdaki şekilde ayarladım. Dosya adının sonuna tarih ve saat ekliyor.
Sıralama açısından düzgün olsun diye yıl ay gün olarak ayarladım tarihi.
2023.11.20-11-23
İsterseniz Format(Date, "yyyy.mm.dd") yi isteğinize göre ayarlayabilirsiniz.

yol = "C:\DENEME\YEDEK\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & "-" & Format(Date, "yyyy.mm.dd") & "-" & Format(Time, "hh-mm") & ".xlsm"