sayfadan yedek alma

[onurdogan]

Formdan bulduğum kodu kullandım yedek alma işlemi başarılı ancak tüm excel sayfalarının yedeğini alıyor. istediğim şekilde kullanamadım. KASA ve GİDERLER sayfalarındaki toplamları alıp başka bir excel dosyasının sayfasına yedeklemek istiyorum. gerekli kodları yazamadım.

ekteki dosyada şu an kullandığım kod var.

 

[halit3]

Formdan bulduğum kodu kullandım yedek alma işlemi başarılı ancak tüm excel sayfalarının yedeğini alıyor. istediğim şekilde kullanamadım. KASA ve GİDERLER sayfalarındaki toplamları alıp başka bir excel dosyasının sayfasına yedeklemek istiyorum. gerekli kodları yazamadım.

ekteki dosyada şu an kullandığım kod var.

Masa üstünde deneme adı altında bir klasör oluşturuyor ve deneme adı ve günün tarih ve saatini gösteren bir dosya oluşturuyor.
dosyanın içinde kasa ve giderler sayfası var.

Sub çalışmakitabıyap()
Dosya = "deneme"
Kaynak = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & Dosya
Sayfa_Adı = ActiveSheet.Name
On Error Resume Next
If Dir(Kaynak) = "" Then MkDir Kaynak
For i = Len(ThisWorkbook.Name) To 1 Step -1
If Mid(ThisWorkbook.Name, i, 1) = "." Then
Uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
Exit For
End If
Next
Sheets(Array("KASA", "GİDERLER")).Select
Sheets("KASA").Activate
Sheets(Array("KASA", "GİDERLER")).Copy
Range("a1").Select
ActiveSheet.DrawingObjects.Delete
Sheets(Worksheets(2).Name).Activate
ActiveSheet.DrawingObjects.Delete
Sheets(Worksheets(1).Name).Activate
ActiveWorkbook.SaveAs Kaynak & "\" & Dosya & Format(Now, "dd-mm-yyyy  hh-nn-ss") & Uzanti
ActiveWorkbook.Close False
Sheets("GİDERLER").Select
MsgBox "işlem tamam !", vbInformation, "DİKKAT"
End Sub