تعديل زر الحذف ليتم الترقيم التسلسلي بشكل صحيح بعد الحذف

[عبد العزيز البسكري]

فضلاً أساتذتي الأكارم .. لو سمحتم و إذا كان بإمكانكم .. مساعدتي على ضبط و تعديل هذا الكود المرتبط بزر الحذف في الفورم المرفق ..لأتمكّن من عملية الحذف بطريقة تجعل الرقم التسلسلي يبقى موجودًا و ظاهرًا في الجدول داخل الشيت و بدون ترك الصفوف فارغة ..

مثلاً عندي في الملف المرفق قائمة من الأسماء أدخلتها عن طريق الفورم مرقمة من الاسم 1 إلى الاسم 4 :

1 - محمد

2 - إبراهيم

3 - خالد

4 - سمير

ما أريده مثلاً عند الضغط في الفورم على زر الحذف للإسم خالد و الذي هو رقم 3 لا يختفي الرقم 3 تمامًا من الجدول في الشيت و إنّما يصعد سمير للرقم 3 دون المساس بالترقيم التسلسلي أو ترك صفوف فارغة بين الأسماء .

إستعنت بالدالة SI(B10="";"";SOUS.TOTAL(3;$B$10:$B10 في الخلية المناسبة و قمت بسحبها للأسفل لكن لم تضبط معي ربما تعارضت مع الكود ..

بارك الله فيكم مسبّقًا ..جزاكم الله خيرًا و أحسن إليكم سادتي :

 

 

 

الملف.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

 

الملف.rar

[عبد العزيز البسكري]

السلام عليكم

تفضل أخى

ألف ألف شكرًا سيّدي رجب جاويش .. نعم هذا هو المطلوب أستاذي الكريم .. بارك الله فيك و جزاك الله خيرًا

[رجب جاويش]

أخى الفاضل / عبد العزيز

جزاك الله كل خير على هذه الكلمات الطيبة