الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة
السلام عليكم ورحمة الله وبركاته
إخواني الكرام ..
ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف ..
في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result)
في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم
أخي الكريم أحمد حبيبة
جرب الكود التالي ..يمكنك تغيير اسم ورقة العمل في السطر المشار إليه في التعليق
Sub SplitSpecificSheet()
Dim xPath As String
Dim SH As Worksheet
xPath = Application.ActiveWorkbook.Path
Set SH = Sheets("Data") 'غير اسم ورقة العمل المراد تصديرها
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With SH
.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls