Soru Excel Çıkışta uyarı ile Farklı yere kaydetmek

[bulentkars]

Arkadaşlar Merhaba,

Excelden çıkış yaptığımda uyarı almak istiyor.

Açık olan dosyadan çıktığımda uyarı çıkacak, Bu çalışma kitabını yedeklemek istiyormusunuz. E/H
EVET tıklandığında mevcut dosyayı normal kaydet ve c:\yedek\ klasörü altına aynı isimle kaydedecek.
Hayır tıklandığında sadece mevcut yere kaydedecek.

Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[isaaceyhan]

Sub yedekle()
Application.DisplayAlerts = False
Dim yol As String
Dim ad As String
yol = ThisWorkbook.Path
zaman = Application.Text(Now(), "dd-mm-yyyy hh-mm")

ActiveWorkbook.SaveAs Filename:= _
yol & "\" & "YTBS_" & zaman _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub


Sorduğunuz gibi değil fakat! kaydedince kaydedilen dosya bilgisi veriyor! Banada bir excel sever abimiz yardımcı olmuştu. Gün Tarih Saat olarak yedekliyor!

 

[bulentkars]

Merhaba İsa Bey,

benim yazığım şekilde olursa işimi görecek. dosya adı aynı olacak. ve çıkış makrosunda olması iyi olacak. teşekkürler

 

[isaaceyhan]

Merhaba İsa Bey,

benim yazığım şekilde olursa işimi görecek. dosya adı aynı olacak. ve çıkış makrosunda olması iyi olacak. teşekkürler

Merhabalar Bulent bey Korhan beyın baska bir paylaşımında denk geldim birde bu makroyu denermisiniz?

Option Explicit

Sub ActiveSheet_SavaAs()
Dim File_Name As String, My_Folder As Variant

File_Name = InputBox("Dosya adını giriniz...", "DOSYA ADI")

If File_Name = "" Then
MsgBox "İşleme devam edebilmeniz için dosya adı girmelisiniz!", vbCritical
Exit Sub
End If

Set My_Folder = CreateObject("Shell.Application").BrowseForFolder(0, _
"Sayfayı kaydetmek istediğiniz klasörü seçiniz...", 50, &H0)

If Not My_Folder Is Nothing Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs My_Folder.Self.Path & "\" & File_Name & ".xlsx", xlOpenXMLWorkbook, Local:=True
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Aktif sayfanız seçtiğiniz klasöre aşağıdaki isimle excel dosyası olarak kayıt edilmiştir." & _
vbCrLf & vbCrLf & My_Folder.Self.Path & "\" & File_Name & ".xlsx", vbInformation
Set My_Folder = Nothing
Else
MsgBox "Klasör seçimi yapmadığınız için işleminiz iptal edilmiştir.", vbCritical
End If
End Sub

 

[bulentkars]

İsa Bey,
Dosya yolu kodun içinde olmasını istiyorum.