aynı anda farklı yere farklı adla kaydetmek

[azure_tr]

arkadaşlar merhaba

daha önce arkadaşın biri sormuş aynı anda farklı yere farklı kaydet ile dosya kaydetmeyi bu kod işime yaradı. benim istediğim farklı yere kaydedilen dosyanın adının kaydettiği andaki saat ve dakika olması.

yardımlarınız için şimdiden teşekkürler


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim path As String
On Error Resume Next
path = "D:\" 'isteğe göre değiştiriniz.
ThisWorkbook.SaveCopyAs path & "\" & "Kopya" & ThisWorkbook.Name
End Sub

 

[Muzaffer Ali]

Merhaba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim path As String
    On Error Resume Next
    path = "D:\" 'isteğe göre değiştiriniz.
    ThisWorkbook.SaveCopyAs path & "\" & Replace(Time, ":", ".") & ".xlsx"
End Sub

 

[azure_tr]

çok teşekkür ederim istediğim gibi oldu. sizden özür dileyerek son bir şey daha rica ediyorum. saat önüne tarihi de ekleyebilir miyiz?

tekraradan çok teşekkür ederim

 

[Muzaffer Ali]

çok teşekkür ederim istediğim gibi oldu. sizden özür dileyerek son bir şey daha rica ediyorum. saat önüne tarihi de ekleyebilir miyiz?

tekraradan çok teşekkür ederim

Time yerine Now yazın.

 

[azure_tr]

çok teşekkürler tam istediğim gibi oldu

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.