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
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