البحث بالاسم وظهور الرقم الذي يساوي الاسم فى خلية منفصلة

[مسلـم]

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

لو سمحتوا يا أخوة

عند البحث في خانة (I1) عن مصطفي أريد أن يسجل رقمه في خانة (O1) رقم 1
الملف بالمرفقات .. بارك الله فيكم

Dewon.xlsm

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

لا أفهم ما لزوم هذه التكسيوكسات الكثيرة (12) في حين  نحن لسنا بحاجة الى اي منها

جرب هذا الكود الذي يقوم بانشاء قائمة منسدلة مطاطة  (بدون تكرار)  كلما عدلت في الأسماء او اضفت اسماء جديدة وعلى اساسها تجد ماتريد

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Not Intersect(Target, Range("I4:I100")) Is Nothing _
   And Target.Count = 1 Then
   data_VAL
  End If
   Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++++++++++++++++++
Sub data_VAL()
Dim RO%, i%, Obj As Object
Set Obj = CreateObject("Scripting.Dictionary")

With Me
RO = .Cells(Rows.Count, "I").End(3).Row
If RO < 4 Then RO = 4
For i = 4 To RO
    If .Cells(i, "I") <> vbNullString Then
     Obj(.Cells(i, "I").Value) = vbNullString
    End If
Next
If Obj.Count Then
  With .Cells(2, "I").Validation
   .Delete
   .Add 3, Formula1:=Join(Obj.keys, ",")
  End With
 End If
End With
End Sub

 

Sooos.xlsm

[مسلـم]

جزاك الله خيراً أخي الكريم سليم حاصبيا 

ولكن لا أريدها بقائمة منسدلة أريدها عن طريق البحث وما أريد إلا تكسيو واحد فقط لذلك أخفيت الأعمدة ولأن النموذج الاصلي فيه مئات الاسامي وانا ارفقت الملف هذا كمثال مصغر

وشكراً لك 

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

اليس من الأفضل والاسهل الكتابة في خلية بدلاً من الــــ TextBox

على كل حال لك ما طلبت

بعد تعيئةالـــ  TextBox بالاسم الصحيح دون زيادة مسافات أو نقصانها و التقيد بحرف الالف (مع همزة او بدونها ) و حرف الياء  في اخر الكلمة (مع نقاط او بدونها)

اضغط على الخلية I1

 

Sooos_1.xlsm

[مسلـم]

للأسف لم أقدر أعبئ ال TextBox

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

كبسة يمين عليه ثم Edit Text

[مسلـم]

تعبتك معي أنا آسف بس الطريقة هذة صعبه خصوصاً عندي النموذج الأساسي به مئات الأسامي 

كنت أريد عند كتابة الأسم بطريقة البحث العادية يظهر رقم الشخص بخلية أخري

عامة شكرا لك انت ما قصرت معي ولكن للاسف هذه الطريقة التي أريدها لأنها سريعة

[مسلـم]

أرسلت نموذج لتقريب وجهة النظر 

سليم حاصبيا

so00os.xlsm