اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

لستة عملاء.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

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

  • 3 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information