الخي الفاضل اشكرك لاستجابتك و جهدك الرائع والكود يعمل بكفاءة لولا انه عند تشغيله اول مرة يقوم فعلا بانشاء الصفحات المطلوبة فقط ولكن في حال وجود شيتات ( صفحات سابقة ) و اريد اضافة الصفحة الناقصة فقط لا يعمل اطلاقا
توضيح حذفت صفحة من الصفحات التي انشاها وشغلت الكود فلم يحدث اي جديد هل يمكن ان يقوم بانشاء الصفحة الناقصة فقط
ومرة اخرى اشكرك اخي الكريم
ولو امكن تفضلا منك كتابة شرح لهذا الكود اكون شاكر خاصة بعض الاسطر المبهمة نسبيا بالنسبة لي مثل
Dim x%, y$, How_Many%, k%, i%
ReDim Preserve arr_sheet(1 To k)
arr_sheet(k) = Sheets("all").Range("b" & i)
For i = 1 To UBound(arr_sheet)
Erase arr_sheet