Sayfayı Faklı Kaydetmek

[stirra_ej]

Exel çalışma dosyasında sadece 3 tane sayfayı bir butonla farklı kaydettirmeye çalışıyorum ama başaramadım.
Sayfaların hepsinde makro var ve sayfalar makrolu bir şekilde kaydediliyor. sonrada hata veriyorlar.
Exel sayfasını normal bir sayfaymış gibi göründüğü şekilde makrosuz kaydedebileceğim şekilde bir kod yardımında bulunabilirmisiniz.
Sayfa isimleri "Harcirah" " Görev Oluru" "Kaydet" 3 tane sayfa.

Bu 3 sayfayı farklı kaydet dediğimde bana kaydetme yeri sorar ve bir klasör seçme şansım olursa daha iyi olur.

 

[Haluk]

Kaydedilecek dosya yolunu kendinize göre düzenlersiniz...

Sub Test()
    Sheets(Array("Harcirah", "Görev Oluru", "Kaydet")).Copy
    ActiveWorkbook.SaveCopyAs "C:\Users\Haluk\Desktop\Test.xlsx"
    ActiveWorkbook.Close SaveChanges:=False
End Sub

.

 

[stirra_ej]

Kaydedilecek dosya yolunu kendinize göre düzenlersiniz...

Sub Test()
    Sheets(Array("Harcirah", "Görev Oluru", "Kaydet")).Copy
    ActiveWorkbook.SaveCopyAs "C:\Users\Haluk\Desktop\Test.xlsx"
    ActiveWorkbook.Close SaveChanges:=False
End Sub

.

Aynı dosyayı her ay bir defa kaydetmem gerekiyor.. yani üstüne yazmaması lazım ya kaydetmeden önce benim bir isim vermem lazım, nasıl yapabiliriz.

 

[stirra_ej]

Hocam Kopyalama yaptı ama yine vba kodlarıyla birlikte kopyaladı ve sayfalar kitaplıktan kodlarla birlikte kopyalandığı için kopyalana dosya hep kod hataları veriyor
Sayfanın vba kodlarını almaması lazım.