kaydet ve kapat

[ariza285228]

excelde http://www.excel.web.tr/ den yaptığım araştırmalar ve bazı arkadaşların kişisel yardımı ile yapmış olduğum programda bi ilave yapmak istiyorum. bu ilave çok basit ama ben yapamadım. İlavem şu ki iki adet butun eklemek istiyorum 1.si açık prpgramı ( formu ve exceli ) kapatıp kaydetedek 2.si ise yedek alma işlemi gerçkleştirecek dosya tarihlerine göre yardımlarınız için şimdeden TEŞEKKUR EDERİM...

 

[aydın3838]

selam

formda arama yapsaydınız bulabilirdiniz
ben bu siteden buldum

kaydetme kapatma

Sub kaydet_kapat()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

yedekleme kodları

sub yedekle ()
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\YEDEKLER") = False Then
ds.CreateFolder "D:\YEDEKLER"
End If
If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then
yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If
end sub

saygılarımla