(تمت الإجابة) طريقة للبحث عن بيانات الاسم بمجرد وضع الاسم ثنائي او ثلاثي او رباعي

[عبد العزيز كمال]

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

الملف عبارة عن قائمة كبيرة بالعملاء مبوبة علي اساس ابجدي وكل عميل امامة رقم سجلة واريد صفحة بحث بمجرد وضع الاسم ثنائي او ثلاثي او رباعي يظهرلي العميل ورقم سجلة //////////////الملف مرفق

لستة عملاء.rar

[عبدالله المجرب]

تفضل المرفق

تم استخدام التصفية المتقدمة في استخلاص نتائج البحث

جرب المرفق

ابواحمد

لستة عملاء.rar

[ابو القبطان]

اخي الكريم ، وصديقي الحبيب : ابو احمد

كنت انقب عن بحث باسم ، أيا كان كلمة البحث في اول او وسط او اخر العبارة

ووجد ضالتي مع كودك الرائع

ولكن هل من الممكن زيادة المدى (Rang ) عن طرق الكود وليس من اضافة او تعريف الاسم _ اعني من قوائم الاكسيل

عن نفسي افضل ذلك ، ولا افرضه على غيري

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

اشكرك سلفاً وبارك الله فيك

أخوك : حسن ( أبو احمد أيضاً )

[دغيدى]

أخى عبد الله

أشكركم على الروائع والدرر

[عبد العزيز كمال]

الله ينور عليك

[عبدالله المجرب]

ولكن هل من الممكن زيادة المدى (Rang ) عن طرق الكود وليس من اضافة او تعريف الاسم _ اعني من قوائم الاكسيل

عن نفسي افضل ذلك ، ولا افرضه على غيري

اخي حسن علي ابواحمد

ضع هذا الجزء من الكود

LastRow = Sheets("data").Range("a" & Rows.Count).End(xlUp).Row

Sheets("data").Range("A1:C" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

		"Z1:Z2"), CopyToRange:=Range("A5:C5"), Unique:=False

بدلاً عن هذا الجزء وسيصبح المدى مرن ولا حاجة الى تعريفه

Sheets("data").Range("Rng").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

		"Z1:Z2"), CopyToRange:=Range("A5:C5"), Unique:=False

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

اخي حسن هذا ليس كود بحث وانما تصفية متقدمة

لكن راجع رابط هذه المشاركة لعل فيه ما تريد

http://www.officena.net/ib/index.php?showtopic=38530

[ابو نبأ]

عمل رائع