پرسش کپی شیتی در فایل اکسل دیگر

[fimani119]

دوستان سلام
یک فایل صورتجلسه تنظیم کردم که در تاریخ های مختلف باید فیلدهاش پر بشن، میخوام هر سری که صورتجلسه جدیدی تنظیم میشه با زدن یک دکمه از صورتجلسه قبلی در یک فایل اکسل دیگه کپی ایجاد بشه مشکلم اینه که اندازه ستون ها و ردیف ها با دستور کپی و پیست انتقال داده نمیشن. ممنون میشم راهنمایی کنید.
با تشکر

[mrhartsclube]

سلام دوست عزیز
برای کپی کردن یک شیت (توی این مثال Sheet1) داخل همون فایل مثلا بعد از شیت 3 از کد زیر استفاده کنید:

Worksheets("Sheet1").Copy After:=Worksheets("Sheet3") 

برای کپی کردن Sheet1 توی یه فایل جدید و Save کردنش توی درایو C به اسم New1 از کد زیر استفاده کنید:

Worksheets("Sheet1").Copy
With ActiveWorkbook
      .SaveAs Filename:="C:\New1.xlsx", FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With 

برای کپی کردن چندتا شیت (مثلا شیت 1 و 2 و 4) توی یه فایل جدید فقط خط اول کد بالا رو به کد زیر تغییر بدین:

Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy 

امیدوارو جواب سوالتون رو گرفته باشین