ترقيم حسب الصنف

[hussam031]

السلام عليكم

السادة الاعضاء مرفق ملف اكسل يوجد فيه ثلاثة اعمدة في العامودين B & C يوجد شرح للسلعة و تصنيفها ، و في العامود A مطلوب وضع رقم خاص لكل سجل بناء على C

فإذا كان السجل مقابل ل Garments اعطي رقم 110001 و من ثم بالتسلسل 110002 و هكذا

و اذا كان السجل مقابل ل Accessries اعطي رقم 220001 و من ثم باتلسلسل 220002 و هكذا..

المشكلة هي بأن Garments و Accessories متداخلين في العامود C ويجب ان يكون الترتيب كما هو بحيث الا يتغير اماكن العامود لارتباطه بعدة اعمدة اخرى..

لقد قمت بفلترة العامود C و لكن لم استطع ان ارقم بالتسلسل فهل يمكن حل هذه المشكلة و شكرا

حسام.

Coding.rar

[بن علية حاجي]

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

أخي الكريم هذه محاولة في الملف المرفق أرجو أن تكون بعضا من الحل...

أخوك بن علية

Coding.rar

[أبو حنــــين]

بعد إذن أخي بن علية الذي قام بالمطلوب بالدوال

هذا المثال بالكود

ترقيم.rar

[عبدالله المجرب]

الاستاذ الفاضل حاجي بن عليه

حل ولا اروع بالمعادلات

===

الاخ الفاضل ابو حنين حل ممتاز بالاكواد

وفيه ملاحظة ان يتم تعديل هذا السطر

من

Cells(i + 1, 1).Value = 110000 + m

ليكون

Cells(i + 1, 1).Value = 220000 + m

ويمكن بعد اذنك يمكن اختصار الكود ليكون

Private Sub CommandButton1_Click()

s = 0: m = 0

For t = 1 To 1000

If Cells(t + 1, 3).Text = "Garmets" Then

s = s + 1

Cells(t + 1, 1).Value = 110000 + s

Cells(t + 1, 1).Interior.ColorIndex = 3

End If

If Cells(t + 1, 3).Text = "Accessories" Then

m = m + 1

Cells(t + 1, 1).Value = 220000 + m

Cells(t + 1, 1).Interior.ColorIndex = 4

End If

Next

End Sub

[جمال عبد السميع]

أستاذي بن علية حاجي حل حضرتك بالمعادلة في منتهي الذكاء وأستخدامك للمعادلة رائع ماشاء الله

أستاذي أبو حنين أكوادك متميزة وأستخدامك لها في منتهي الروعة بارك الله فيك

أستاذي أبو عبد الله دائما متميز بارك الله في أساتذه هذا الصرح

[أبو حنــــين]

بالفعل أخي عبد الله

شكرا على مروركم و تصحيحكم للخطأ الذي لم انتبه له

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

المرفق بعد التصحيح

ترقيم.rar

[رجب جاويش]

الشكر لكل إخوانى المشاركين فى الموضوع

على الابداع والتميز

وهذه معادلة أخرى تحقق المطلوب

=IF(C2="";"";IF(C2="garmets";COUNTIF($C$2:$C2;C2)+110000;COUNTIF($C$2:$C2;C2)+220000))

ترقيم.rar

[أبو حنــــين]

كود رائع اخي رجب

و كما يقول الصحفي الرياضي اثناء المبارات : يا سلام خطيرة في الزاوية 90°

بارك الله فيكم

[رجب جاويش]

شكرا جزيلا أخى الحبيب / أبو حنين

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

[أبو ردينة]

في كل تميز و لمسات رائعة

أفادتنا كثيرا

الإخوة الأحباب جزاكم الله عنا كل خير