Kaydet & farklı kaydet ve kapat

[ariza285228]

EXCEL VE VİSUAL BASİCTE HAZIRLAMIŞ OLDUĞUM PROGRAMADA COMANN BUTONU EKLMEK İSTİYORUM. bU BUTONA TIKLADIĞIM ZAMAN PROGRAM KAPANACAK KAYDEDECEK VE AYNI ZAMANDA AYNI DOSYAYI FARKLI YERE KAYDEDETECEK YANI YEDEK ALACAK ŞİMDİDEMN TEŞEKKUR EDERİM.....

 

[ariza285228]

Kaydet ve kapat ve farklı kaydet

EXCEL VE VİSUAL BASİCTE HAZIRLAMIŞ OLDUĞUM PROGRAMADA COMANN BUTONU EKLMEK İSTİYORUM. bU BUTONA TIKLADIĞIM ZAMAN PROGRAM KAPANACAK KAYDEDECEK VE AYNI ZAMANDA AYNI DOSYAYI FARKLI YERE KAYDEDETECEK YANI YEDEK ALACAK ŞİMDİDEMN TEŞEKKUR EDERİM.....

 

[musculus]

Herhangi bir cmd ekleyip bu kodu yapıştırın

Dim dzn As String
Dim dosyayolu As String
Dim shl As Object
cevap = MsgBox("Bilgilerinizin son hali " & _
"bugunku tarihle farklı " & _
"kayıt edilerek yedeklenecektir. " & "Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")

If cevap = vbYes Then

Set shl = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)

If shl Is Nothing Then
MsgBox "Herhangi bir klasör seçmediniz", vbCritical, "UYARI"
Exit Sub
Else
dzn = shl.Items.Item.Path
End If
dosyayolu = dzn & Application.PathSeparator & "YEDEK-" & Format(Date, "ddmmmmyyyy") & ".xls"

Application.StatusBar = " Belgeniz: " & dosyayolu & " olarak kaydediliyor... Lutfen Bekleyiniz..!"

ActiveWorkbook.SaveCopyAs dosyayolu

Application.StatusBar = ""

Set shl = Nothing
End If
Unload Me
ActiveWorkbook.Save
Excel.Application.Quit

 

[ariza285228]

Teşekkur ederim çok sağolun