ایجاد یک فایل اکسل جداگانه با چند شیت خاص از فایل اصلی جهت گزارش گیری

[Ali Parsaei]

سلام آقا علی برای یه شیت میشه این کارو کرد ولی اگر بخوام 4 یا 6 شیت رو با هم انتخاب و اکستراکت کرد چکار باید بکنم ؟

خوب فايل را کلا" save as کنيد بعد شيت هاي اضافه را delete کنيد، کد delete کردن شيت را هم با ضبط يک ماکرو به سادگي مي توانيد بيابيد.

[ظهور 313]

سلام،
فرض کنيم فايلي داريد با دو شيت 1 و 2
ماکرو زير شيت دوم فايل را به نام چيزي که در خانه A1 شيت يک نوشته ايد در مسير همين فايل ذخيره مي کند (با فرمت XLSX):

Sub Macro1()
Dim c As String
c = Sheets("sheet1").Range("a1").Value
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:=Application.ThisWorkbook.Path & "\" & c & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

سلام و عرض ادب خدمت استاد پارسایی
بابت این فرمول نیاز به راهنمایی دارم
آیا امکانش هست که شیتی که با این فرمول ذخیره میشه بدون فرمول ها باشه و فقط مقادیرش منتقل بشه

[Amir Ghasemiyan]

سلام و عرض ادب خدمت استاد پارسایی
بابت این فرمول نیاز به راهنمایی دارم
آیا امکانش هست که شیتی که با این فرمول ذخیره میشه بدون فرمول ها باشه و فقط مقادیرش منتقل بشه

سلام دوست عزيز
كافيه اين چند خط كد رو به انتهاي كد اضافه كنيد

Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save