عبد العزيز كمال قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 السلام عليكم ورحمة الله وبركاته الملف عبارة عن قائمة كبيرة بالعملاء مبوبة علي اساس ابجدي وكل عميل امامة رقم سجلة واريد صفحة بحث بمجرد وضع الاسم ثنائي او ثلاثي او رباعي يظهرلي العميل ورقم سجلة //////////////الملف مرفق لستة عملاء.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 تفضل المرفق تم استخدام التصفية المتقدمة في استخلاص نتائج البحث جرب المرفق ابواحمد لستة عملاء.rar رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 اخي الكريم ، وصديقي الحبيب : ابو احمد كنت انقب عن بحث باسم ، أيا كان كلمة البحث في اول او وسط او اخر العبارة ووجد ضالتي مع كودك الرائع ولكن هل من الممكن زيادة المدى (Rang ) عن طرق الكود وليس من اضافة او تعريف الاسم _ اعني من قوائم الاكسيل عن نفسي افضل ذلك ، ولا افرضه على غيري وارجو اضافة اخرى ، هي ان يبحث في عدة اوراق عمل وليس في ورقة الداتا فقط .. تبقى كده كفيت ووفيت اشكرك سلفاً وبارك الله فيك أخوك : حسن ( أبو احمد أيضاً ) رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 أخى عبد الله أشكركم على الروائع والدرر رابط هذا التعليق شارك More sharing options...
عبد العزيز كمال قام بنشر أكتوبر 1, 2011 الكاتب مشاركة قام بنشر أكتوبر 1, 2011 الله ينور عليك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 ولكن هل من الممكن زيادة المدى (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 رابط هذا التعليق شارك More sharing options...
ابو نبأ قام بنشر فبراير 12, 2015 مشاركة قام بنشر فبراير 12, 2015 عمل رائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.