اخى كيماس (ابوعمر)
اسمح لى يا استاذى ان اقدم لك شكرى واعتزازى
فهذا هو المطلوب بالضبط وشكرا لك وجزاك الله خيرا
ولكن هناك ملحوظة الكود لا يضيف بعد الورقة k8
اعلم ان i=8 تعن رقم صف بداية الاضافة
Cells(i, 3) = shn تعنى الصف الثامن والعمود الثالث
shn = Sheets(i - 3).Name هل تعنى عدد الورق الى لن يظهر
واذا اردت زيادة الورق المرغوب فى عدم ظهوره فاين اعدل وكيف تظهر كل الاوراق الباقية =250 ورقة
ارجو ان يتسع صدرك لى
اخوك فى الله
سعد عابد
الشكر موصول لاستاذى دغيدى واسف لانى كنت ضعيف فى توصيل المعلومة