دالة لإدراج عدد الصفحات في خلية

[ابو حمادة]

السلام عليكم ورحمة الله وبركاته

الاخوة الكرام

هل يوجد دالة لادراج عدد صفحات المستند بداخل خليه (A1)

 

[سليم حاصبيا]

ربما تقصد هذا الماكرو

Option Explicit
Sub insert_sheets()
  On Error GoTo Exit_Sub
  Worksheets.Add after:=Sheets(Sheets.Count), Count:=[a1].Value
Exit_Sub:
End Sub

 

[ابو حمادة]

2 دقائق مضت, سليم حاصبيا said:

ربما تقصد هذا الماكرو

Option Explicit
Sub insert_sheets()
  On Error GoTo Exit_Sub
  Worksheets.Add after:=Sheets(Sheets.Count), Count:=[a1].Value
Exit_Sub:
End Sub

 

شكرا اخي واستاذي الفاضل

على اهتمامك وتقديرك

ممكن تحدد في الكود اسم الصفحة ونطاق محدد

اسم لصفحة (كشف)

النطاق ال محتاجه يحسب عدد صفحاته هو من (A1:ET50000)

 

[سليم حاصبيا]

لم افهم ماذا تعني بهذا

النطاق ال محتاجه يحسب عدد صفحاته هو من (A1:ET50000)

و هل تريد ان تحذف الصفحات الموجودة (ما عذا الصفحة الاولى) قبل تنفيذ الكود

[ابو حمادة]

14 دقائق مضت, سليم حاصبيا said:

لم افهم ماذا تعني بهذا

النطاق ال محتاجه يحسب عدد صفحاته هو من (A1:ET50000)

و هل تريد ان تحذف الصفحات الموجودة (ما عذا الصفحة الاولى) قبل تنفيذ الكود

يوجد بعد الصفحات المساعدة بداخل الشيت مش محتاجها تتحسب ضمن عدد الصفحات

ال محتاجه يظهر عدد صفحاته هو النطاق من (A1:ET50000) يعني يتم عدد الصفحت الموجوده فى هذا النطاق ويترك الصفحات الموجوده في باقي الشيت 

[سليم حاصبيا]

لم افهم شيئاً 

الافضل (ارفاق جزء من الملف اذا كان كبيراً)

 

[ابو حمادة]

39 دقائق مضت, سليم حاصبيا said:

لم افهم شيئاً 

الافضل (ارفاق جزء من الملف اذا كان كبيراً)

 

هقول لحضرتك حاجه اسهل ممكن فقط تحدد الشيت الذي يعمل عليه الكود

ومش مهم النطاق