اذهب الي المحتوي
أوفيسنا

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


so00os

الردود الموصى بها

لا أفهم ما لزوم هذه التكسيوكسات الكثيرة (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

  • Like 2
رابط هذا التعليق
شارك

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

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

وشكراً لك 

رابط هذا التعليق
شارك

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

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

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

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

 

Sooos_1.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information