الترقيم كالتسلسل بشروط

[sabah2022]

السلام عليكم

حياكم الله

محتاج معادلة أو كود

للترقيم بشروط

وكما موضح بالمثال المرفق

جزيتم خيرا

ترقيم بشروط.xlsx

[ياسر خليل أبو البراء]

وعليكم السلام

في الخلية A2 جرب المعادلة التاليه 

=SUBTOTAL(103, $L$2:L2)

 

[sabah2022]

السلام عليكم

لا اخي الكريم

اريد تسلسل حسب الخلية u2 و v2

كل مخزن يبدأ بتسلسل معين

وينتهي بالتسلسل معين

 

 

 

[ياسر خليل أبو البراء]

وعليكم السلام

هل البيانات في العمود L ثابتة أم أنك تريد الترقيم والبيانات في العمود L  معاً كنتائج؟ وماذا لو كان العمود L ثابت وحذفت 10 صفوف على سبيل المثال؟

 

[sabah2022]

السلام عليكم

البيانات في العمود L ثابتة

وذا حذفت صفوف - يتم اعادة الترقيم تسلسل

وكما مبين بالمثال 

 

ترقيم بشروط1.xlsx

تم تعديل سبتمبر 15, 2023 بواسطه sabah2022

[ياسر خليل أبو البراء]

جرب الكود التالي عله يفي بالغرض بإذن الله

Sub Test()
    Dim x, ws As Worksheet, lr As Long, i As Long, j As Long, startSeq As Long, endSeq As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        lr = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
        ws.Range("A2:A" & lr).ClearContents
        For i = 2 To lr
            j = 0
            x = Application.Match(ws.Cells(i, "L").Value, ws.Columns("T"), 0)
            If Not IsError(x) Then
                startSeq = ws.Cells(x, "U").Value
                endSeq = ws.Cells(x, "V").Value
                Do
                    j = j + 1
                    ws.Cells(i + j - 1, "A").Value = startSeq
                    If startSeq > endSeq Then ws.Cells(i + j - 1, "A").Value = Empty
                    startSeq = startSeq + 1
                Loop Until ws.Cells(i, "L").Value <> ws.Cells(i + j, "L").Value
                i = i + j - 1
            End If
        Next i
    Application.ScreenUpdating = True
End Sub

إذا قمت بحذف صفوف من البيانات سيلزمك تنفيذ الكود من جديد لضبط التسلسل

[sabah2022]

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

تسلم

أما موضوع اذا حذفت ترقيم بعض الصفوف 

الفكرة هي

في بعض الاحيان نستثني بعض المخازن من الترقيم بسبب عدم وصول البيانات أو بها بعض المشاكل 

في هذه الحالة نريد ابقائها بالجدول فقط نحذف الترقيم وعدم جردها

في هذه الحالة شنو العمل أو الفكرة

لان التسلسل مهم لدينا ويعتبر مثابة الكود

الله يرضى عليك - اما الكود حيل اتنفعت به وسهل عملي 

 

تم تعديل سبتمبر 15, 2023 بواسطه sabah2022

[اكـــســـلاوي]

أتوقع الحل 

بدمج دالتي VLOOKUP COUNTIF بهذه الطريقة

=IFERROR(VLOOKUP(L2;$R$2:$T$13;2;FALSE)-1+COUNTIF($L2:$L$2;L2);"")

 

ترقيم بشروط1.xlsx

[sabah2022]

تمام  100 %

اشكرك