عمل خلية بحث عن الاسم

[Khalid Jnb]

السلام عليكم

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

وشكرا

1.rar

[ابراهيم الحداد]

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

خصص الخلية "I4" لكتابة الاسم المطلوب البحث عنه

وانسخ هذا الكود والصقه فى موديول جديد وخصص له زر

 

Sub Selecting_Name()
For R = 5 To 100
If Cells(R, "B") = Range("I4") Then
Cells(R, "B").Select
End If
Next
End Sub

تم تعديل نوفمبر 5, 2016 بواسطه زيزو العجوز

[Khalid Jnb]

شكرا جزيلا لك

لكن عملت هذا ولم ينفع

رجاء عدل لي الملف المرفق

1.rar

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

جرب هذا الملف

دون الحاجة الى الضفط على زر بحث 

يكفي ان تكتب الاسم في الخلية E1 ليقوم اكسل بتحديده(اذا كان الاسم صحيحاً)

Private Sub Worksheet_Change(ByVal Target As Range)
Range("a5:f100").Interior.ColorIndex = xlNone
If Target.Address(0, 0) <> "E1" Then Exit Sub
On Error GoTo 1
Range("z1").FormulaArray = "=MATCH(TRIM(E1),TRIM(B5:B100),0)+4"
t = Range("z1").Value
Range("z1").Clear
 Cells(t, 1).Resize(1, 6).Interior.ColorIndex = 6
 Exit Sub
1:
 MsgBox "This Name Doesn't Exits"
Range("z1").Clear
End Sub

 

[Khalid Jnb]

السلام عليكم

اخي لايعمل الملف

رجاء عدل لي الملف المرفق

انا تعبت جدا

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

اليك الملف جاهز للعمل

 

(القائمة المنسدلة مطاطة (اي انها تستجيب لاي تغييرات في البيانات و لا تذكر المكرر الا مرة واحدة

selaect by name.rar

[Khalid Jnb]

اخي العزيز سليم

انا لدي ورقة اسماء تحتوي على 700 اسم   ولا اريد عمل قائمة منسدله لصعوبة البحث فيها

اريد خلية بحث  مثل امر find  تضع الاسم في الخليه ويذهب المؤشر للاسم بسرعة

مع التقدير 

2.rar

تم تعديل نوفمبر 6, 2016 بواسطه خالد سيسكو

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

في هذا الملف يمنكك عمل الاثنين معاً

اما الكتابة مباشرة في الخلية او البحث من القائمة المنسدلة

 

 

selaect by name1.rar

[Khalid Jnb]

اخي سليم شكرا لك

انها تعمل بصورة جيده

واجهتني مشكلة واحده فقط وهي:

س/ على سبيل المثال يوجد اكثر من اسم خالد هو يجد  خالد واحد فقط   ولا يجد الباقين 

مع التقدير

تم تعديل نوفمبر 6, 2016 بواسطه خالد سيسكو

[ابراهيم الحداد]

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

ارجو ان يكون هذا هو طلبك

1.rar

[Khalid Jnb]

اخي زيزو

شكرا لك

لكن البحث في الملف الذي ارسلته يجب ان يكون الاسم كاملا

وليس الاسم الاول مثلا مع التقدير

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

1 ساعه مضت, خالد سيسكو said:

اخي سليم شكرا لك

انها تعمل بصورة جيده

واجهتني مشكلة واحده فقط وهي:

س/ على سبيل المثال يوجد اكثر من اسم خالد هو يجد  خالد واحد فقط   ولا يجد الباقين 

مع التقدير

يجب ان تكتب الاسم كاملاً (هذا ما طلبته انت بنفسك)

او في حال انك تريد الاسم الأول او (عدة حروف الاوائل من الاسم عندها يجب اعادة البرمجة)

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

جرب هذا الملف ايضاً ربما يكون ما تطلبه

 

SEARCH_BY LETTERS.rar

[Khalid Jnb]

شكرا لكم اساتذتي الافاضل 

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