اريد كود يقوم بعمل تسلسل

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

اريد كود يقوم باعطاء المتشابهات نفس التسلسل

مع اعاده عمليه التسلسل فى حالة وجود الخليه فارغه

تسلسل.rar

[رجب جاويش]

أخى ابراهيم

جرب هذا الكود

Sub ragab()

LR = [G10000].End(xlUp).Row

Set Rng = Range("G2:G" & LR)

Range("H2:H1000") = ""

x = 2

For Each cl In Range("G2:G" & LR)

If cl = "" Then x = cl.Row

    If WorksheetFunction.CountIf(Range("G2:G" & cl.Row), cl) = 1 Then

    cl.Offset(0, 1) = WorksheetFunction.Max(Range(Cells(x, "H"), Cells(cl.Row, "H"))) + 1

    End If

    If WorksheetFunction.CountIf(Rng, cl) > 1 Then

	    For i = 3 To LR

		    If Cells(i, 7) = cl Then

		    Cells(i, 8) = cl.Offset(0, 1)

		    End If

	    Next

    End If

Next

Set Rng = Nothing

End Sub

كود تسلسل.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

وفعلا الكود جميل وشغال تمام

ولكنى اريد ان اعرف اهميه ومعنى

If Cells(i, 7) = cl Then

Cells(i, 8) = cl.Offset(0, 1)

[إبراهيم ابوليله]

اخى الفاضل

رجب

عزرا فانا اريد ايضا

ان يتم عمل تسلسل فى العمود التاسع

بالاضافه الى التسلسل الذى تفضلت به

ويكون التسلسل الذى سيظهر بالعمود التاسع 1-2-3-4-5-6

اى انه تسلسل طبيعى جدا

[رجب جاويش]

أخى ابراهيم

الجزء

If Cells(i, 7) = cl Then

		    Cells(i, 8) = cl.Offset(0, 1)

يعمل على إعطاء الأرقام المتشابهة نفس التسلسل

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

أريد أن أستفسر عن وضع الارقام المتشابهة هل تاخذ نفس الرقم أم لا

[إبراهيم ابوليله]

الاخ رجب

لا فهو تسلسل تلقائى للارقام

بمعنى انه فى حاله وجود اى شئ بالعمود السابع يتم اعطاء رقم فى العمود التاسع

وهكذا

دون النظر الى المتشابهات

[رجب جاويش]

تفضل أخى ابراهيم

تم عمل التسلسل الجديد ضمن الكود السابق

كود تسلسل.rar

[إبراهيم ابوليله]

الاخ رجب

وبعد المحاوله البسيطه منى

اعتقد ان الحل سيكون

بالشكل الاتى

مع اننى اصر على ان ارى الحل من وجهه نظرك

انت اخى الحبييب

كود تسلسل(1).rar

[رجب جاويش]

أخى ابراهيم

لا داعى لتكرار أجزاء الكود كاملة ولكن يكفى فقط هذا الجزء

For Each cl In Range("G2:G" & LR)

If cl <> "" Then

    cl.Offset(0, 2) = WorksheetFunction.Max(Range("I2:I" &amp;amp; cl.Row)) + 1

End If

Next

كما يتضح لك من المرفق الموجود فى المشاركة السابقة

مع مرعاة عدم الترقيم فى الخلايا المقابلة للخلايا الفارغة من العمود G حسب طلبك

[إبراهيم ابوليله]

اخى الحبيب

رجب

ارجو ارفاق شيت به الكود

بارك الله فيك

[رجب جاويش]

أخى ابراهيم

تفضل الملف وبه الكود

والملف موجود أيضا فى المشاركة رقم 7

كود تسلسل.rar

[إبراهيم ابوليله]

الاخ الفاضل

رجب

عزرا فلم ارى المشاركه رقم 7

وفعلا الكود يفى بالغرض واسرع بكثير

بارك الله فيك

[إبراهيم ابوليله]

الاخ رجب

ارجو التعديل على الملف المرفقكود تسلسل.rar

[رجب جاويش]

أخى ابراهيم

أرجو التوضيح أكثر بالنسبة للتسلسل

[إبراهيم ابوليله]

الاخ الفاضل

رجب

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

عند الظغط على الزر يظهر الترقيم

فى العمود H والعمود I

وانا اريد ظهور الترقيم

فى العمود A العمود B

بدلا من العمود H و I

[رجب جاويش]

أخى ابراهيم

بعد التحية

هل تقصد هكذا

كود تسلسل.rar

[إبراهيم ابوليله]

الاخ رجب

فعلا هذا ما كنت اريده

بارك الله فيك