Soru Sayfanın Yedeğini Almak

[massgrave]

Merhaba..
Bir buton aracılığı ile Sayfa1'in yedeğini almak istiyorum.
Butona tıklandığında Sayfa1'i C:\Yedek\ Konumuna yedeğin alındığı (adı) (tarih) ve (saati) yedeğin ismine vererek bu konuma farklı kaydetmeli ve uyarmalı.
Teşekkür ederim.

 

[hamitcan]

Arama yaparsanız forumda daha çok sonuca ulaşabilirsiniz.
https://www.excel.web.tr/threads/calisma-sayfasinin-formuelsuez-kopyasini-alma.136847/

 

[emre67z]

Sub saveasdosya()
Dim dosyam As String, evn As Object, i As Byte
Set evn = CreateObject("scripting.filesystemobject")
With Sheets("performans")
dosyam = "c:\klasor\" & .Range("B3").Value & "" & .Range("O1").Value & "" & .Range("P1").Value & ".xls"
10 If evn.fileexists(dosyam) Then
i = i + 1
dosyam = "c:\klasor\" & .Range("A9").Value & "" & .Range("P1").Value & "" & .Range("O1").Value & i & ".xls"
GoTo 10
End If
End With
ActiveWorkbook.SaveCopyAs Filename:=dosyam
MsgBox "Farklı kayıt işlemi bitmiştir", vbInformation, "Farklı Kaydet"
dosyam = vbNullString: Set evn = Nothing: i = Empty
End Sub

Kendine göre düzenleyebilir misin?