الترقيم التلقائي اعتمادا على الخلايا

[khalidmoh]

كيف نعمل ترقيم تلقائي في حال حذف سطر لا يتغير و لكن تبعا لقيمة خلية معينة حيث إذا كانت فارغة لا يرقم و يقفز الترقيم للسطر الذي يليه 

و المثال يوضح مشكلتي 

جزاكم الله خيرا

ترقيم تلقائي مع شرط.rar

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

اكتب هذه المعادلة في A2 و اسحب نزولاً

=IF(C2="","",MAX($A$1:A1)+1)

 

[khalidmoh]

جزاك الله خيرا أخي الكريم 

و لكن أريد مساعدة أخرى في هذا الملف 

إذا أردنا أن نضيف مجموعات أخرى  من الطلاب و إعادة الترقيم التلقائي من الواحد في كل مجموعة  مرة أخرى كيف أعمل حيث يظل الترقيم التلقائي في حال حذفت صفوف و تظل المعادلة فعالة في حال الرقم غير موجود لا يعمل الترقيم 

لاحظ الملف لو سمحت و شكرا لك مسبقا

ترقيم تلقائي مع شرط.rar

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

اكتب هذه المعادلة في A2 و اسحب نزولاً

=IF(C2="","",MAX($A$1:A1)+1)

يمنكنك استعمال هذا الماكرو

Sub colorize()
r = 2: t = 1
1:
 Do Until Cells(r, 2) = ""
        If Cells(r, 2).Interior.ColorIndex = 6 Then t = 1
            If Cells(r, 3) = "" Then
                r = r + 1
                GoTo 1
            End If
              Cells(r, 1) = t
              r = r + 1
               t = t + 1
   Loop
End Sub

لاحظ المرفق

 

 

ترقيم تلقائي مع شرط salim.rar

[أبو أنس80]

جزاك الله خير استاذ ياسر