فرز بيانات

[Abuelkhasem]

السلام عليكم

لدي جدول يحتوي على معلومات عن ماكاينات عاطلة مع اسباب العطل و اريد  عند ادخال رقم اي ماكنة يقوم الكسل بفرز جميع الأعطال الموجودة بها.
يوجد مثال مرفق مع شرح المطلوب .

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

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

جرب هذا الملف

 

defect_mahine.rar

[Abuelkhasem]

بارك الله فيك استاذ سليم على الإجابة، لكن  فيه مشكلة فعند ادخال رقم 1، على سبيل المثال ، يقوم بعد جميع الأعداد التي تحتوي على القيمة 1 و فرزها او بالأحرى يقوم بعد عدد مرات تكرار الرقم 1 في جميع الخلايا ، و هذا سيسبب اشكالية في حال وجود ماكنة تحمل الرقم 1. و هذا الحال مع باقي الأرقام .

 

 

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

استبدل الكود بهذا

Function where_are(my_string As String, rg As Range) As String
where_are = ""
mY_text = ""
Application.Volatile
For Each cel In rg
If InStr(cel, my_string) > 0 And Len(my_string) >= 2 Then
 mY_text = mY_text & cel.Offset(0, -1) & ","
 End If
   Next
  where_are = Left(mY_text, Len(mY_text) - 1)
End Function

 

[Abuelkhasem]

المعدات التي مسجلة لدي يبدأ ترقيمها من خانة واحدة الي 3 خانات( من 1 الى 999 ) ، و بالكود الجديد لا يمكنني فرز المعدات ذات الأرقام من 1 الى 9

 

مع خالص الشكر

 

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

تم معاجة الأمر

 

defect_mahine advanced.rar

[Abuelkhasem]

بارك الله فيك و رَحِم الله والديك

و الشكر موصول لكل اعضاء و مشرفي هذا المنتدى على ما يقدمونه من مساعدات