Vba İle Yeni Kitap Açıp Kaydetme

[Taha ell]

Merhaba;
Birkaç kod denedim fakat başarılı olamadım yardımcı olursanız sevinirim.

AnaKitap isimli çalışma kitabında Anasayfa isimli çalışma sayfasına eklediğim butona basıldığında aşağıdaki işlemlerin yapılmasını istiyorum.

Butona basıldığında AnaKitap İçerisinde bulunan GunSonu çalışma sayfasında A, B ve C sütunları kopyalanarak yeni açılacak çalışma kitabında sayfa 1'e sadece değerler olarak yapıştıracak.
Daha sonra yeni açılan çalışma sayfasını GünSonu adı ile belirlenen dosya yoluna kaydedecek.

Bu işlem mümkün ise desteklerinizi rica ederim.

Kolaylıklar.

 

[alicimri]

Sayın Taha ell
makroyu her çalıştırdığınızda D sürücüsünde dosya oluşturur varsa üstüne yazar.

Sub kopya()
Application.DisplayAlerts = False
Sheets("GunSonu").Copy
 ActiveWorkbook.SaveAs "D:\GunSonu.xls"
      ActiveWorkbook.Sheets(1).Cells.Copy
     ActiveWorkbook.Sheets(1).Cells.PasteSpecial Paste:=xlPasteValues
  ActiveWorkbook.Sheets(1).Columns("D:IV").Delete Shift:=xlToLeft
   ActiveWorkbook.Save
 ActiveWorkbook.Close
 Application.DisplayAlerts = True
End Sub