Yeni çalışma kitabı yaratmak, isim vermek, değerleri kopyalamak

[hopeful]

Merhaba,

Veriler.xlsx dosyasında çalışırken;

-"Yeni bir çalışma kitabı" açmak, bu yeni yaratılan çalışma kitabının adının "Book1" olmasını sağlamak,

- Veriler.xlsx çalışma kitabının "Data" sayfasındaki C4:F4 alanındaki değerleri yeni oluşturulan "Book1" çalışma kitabının "Sheet1" sayfasındaki C4:F4 alanına yapıştırmak

için makro yazılması konusunda yardımınızı rica ederim.

 

[Orion1]

kaynak dosyasınızı xlsx değlilde xlsm uzantılı oarak kaydedin.xlsx uzantılı dosyalarda vba kod yazamazsınız.
Kodlar veriler dosyasında.
Buyurun.

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Book1.xlsx"
ThisWorkbook.Sheets("Data").Range("C4:F4").Copy Sheets(1).Range("C4")