Kaydet butonuda bastıımda dosya adına tarih saat eklesin

[ASMET67]

Merhabalar.

Excel de tüm dosyalarda çalışacak şekilde kaydet butonuna veya CRTL+S tusuna basıldığında dosya adının sonuna günün tarihini ve saatini ekleyen makroyu nasıl yapabilirim.
Örneğinin : Çalışma.xls adında bir dosya ile çalışıyorum kaydet dedğimide dosyayı Çalışma_210316_1151 şeeklinde dosyayı bulundu klasorun içersine kaydedebilir.

 

[asi_kral]

Merhaba
Bu kodu istediğiniz işlemin bir kısmı olan tarih ve saati ekliyor.
Her dosyada çalışması için bu kodu boş bir dosyaya ekleyin. Bu koda kısayol atayın ve eklenti olarak kayıt yapın. Sonra boş bir excel dosyasından bu eklentiyi aktif hale getirdiğinizde istediğiniz olacaktır.

Sub kayıt()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xlsm", "") _
& "_" & Format(Now, "ddmmyy") & "_" & Format(Now, "hhmm") & ".xlsm"
End Sub

 

[ASMET67]

Cebanınz için teşekkür ederim.
Bukodun tetiklenmesini dosyan kaydet veya CRTL+S tuslarına atayabilirmiyiz