Farklı Kaydet

[aydogankemal]

Merhabalar,
Dosyada çalıştıktan sonra kaydettikten sonra belirtilen yola günün tarihi (ve olursa saati ile farklı olarak kaydedecek, sonra orjinal dosyayı tekrar açacak bir makroya ihtiyacım var)
Örnek verecek olursam,
D sürücüsünde 2013 klasöründe Rapor.xlsx diye bir dosyam var,
Bu dosyada çalıştıktan sonra dosyayı D sürücüsünde 2013 yedek klasörüne Rapor-05012013-1422 (Tarih ve saat) olarak kaydetmesini ve sonra orjinal dosyayı tekrar açmasını istiyorum

 

[mustafa1205]

Dosya eklerseniz daha iyi olur

 

[mustafa1205]

Sadece aktif sayfayımı yoksa bütün dosyayı mı kaydetmek istiyorsunuz.

 

[halit3]

kod:

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Dim Klasor As String, uzanti As String, dosya As String
Klasor = "D:\2013 yedek"
uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare) - 1)
ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = "Rapor" & Format(Now, " ddmmyyyy_hhnn") & "." & uzanti
Kayıt_Yeri = Klasor & "\" & Yedek_Dosya_Adı
If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then
MkDir Klasor
End If
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Chr(10) & Kayıt_Yeri, vbInformation, "U Y A R I "
Application.DisplayAlerts = True
End Sub