كود يمحو الارقام المتشابهه

[أبو قاسم]

السلام عليكم

يوجد لدينا عمال وكل عامل يستلم سيارة ويتوجة قطاع  المطلوب عند اسلام عامل اخر القطاع يمحو رقم القطاع السابق ويبقئ فقط عدد فريد مثال  استلم العامل 11 القطاع 1 وانتهى عملة واستبدلة العامل 7 القطاع 1  محتاج كود يمحو الرقم واحد من العامل 11  ويبقية للعامل 7

حديد 55.xlsm

[أبو قاسم]

منابع

متابع

[أحمد يوسف]

السلام عليكم اخى الكريم أبو قاسم

وعلى اى أساس يتم حذف الرقم 1 من العامل 11 ويبقيه على العامل 7 ولماذا لم يتم العكس ؟!!!!

[أبو قاسم]

انا عامل كود فلترة اذا تم طلوع عامل اخر في نفس القطاع اريد يمحو 1 من العامل 11 ويبقى القطاع باستلام الموظف 7

[أبوعيد]

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

جرب أن تغير الأرقام في الخلايا البرتقالية الثلاثة ثم اضغط زر نقل

جرب المرفق

 

تحياتي

حديد 56.xlsm

[أبو قاسم]

شكرا لك

لكن المطلوب كود ازالة التكرار في العمود d

[أبوعيد]

الكود بحسب ما ذكرت يقوم بالآتي

يمحو الرقم 1 من العامل 11  ويبقية للعامل 7

 

لو شرحت بالتفصيل لكان أفضل كلامك فيه غموض

 

تقبل تحياتي

 

[أبو قاسم]

اولا جزاك الله خير على جهودك

المطلوب : في العمود D  عندي مناوبين لكل قطاع فمثلا العامل 5 استلم مناوبتة الصباحية في القطاع 4 وحين انتهى من ساعات العمل طلع بدالة العامل 6 في القطاع4   محتاج عند تسليم القطاع للعامل 6 يقوم بمسح 4 من امام العامل 5 لكي ينزل من العمل لاني عامل كود فلترة

بشكل اوضح محتاج في العمود D عدم تكرار ارقام متشابهه . محتاج ارقام فريدة

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

جرب هذا الماكرو

Sub delete_values()
'Created by Salim Hasbaya 24/5/2019
Dim i%, lr%
lr = Cells(Rows.Count, "d").End(3).Row
  i = 3
  Do Until i = lr + 1
    If Application.CountIf(Range("d3:d" & i), _
     Range("d" & i)) > 1 Then _
     Range("d" & Range("d2:d" & lr). _
     Find(Range("d" & i)).Row) = vbNullString
    i = i + 1
  Loop
End Sub

الملف مرفق

 

 

_New55.xlsm

[Ali Mohamed Ali]

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

[أبو قاسم]

جزاك الله خير .....وشكرا لك ..... مبدع