ارجو المساعدة بكود يقوم بنسخ البيانات المفلترة بين اوراق العمل

[رجب جاويش]

أخى الفاضل / أحمد البحيرى

هذا الجزء ( xxx ) هو اختصار لجزء كبير من المعادلة وهو

=IF(SUBTOTAL(103;OFFSET(Rng;ROW(Rng)-ROW(INDEX(Rng;1;1));0;1;))>0;ROW(Rng)-ROW(INDEX(Rng;1;1))+1)

أدخل على name manager وسوف تجد هذا الاسم ( xxx )

[أبو محمد عباس]

الاستاذ الفاضل رجب اعزك الله وحفظك

شكرا على الاجابة وبارك الله فيك

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

[Ahmed Elbhiry]

عندما دخلت على name manager لم ارى اللى rng مش عارف هل هذا ارهاق ام ماذا فتحت name manager من السهم

وانا مستعجل للذهاب اللى الورشة

[فضل حسين]

الاخ العزيز الفاضل / عباس السماوى

ارجوك اولا ان تسامحنى وتعذر جهلى وتتقبل اسفى لو قلت لك قمت بتحميل الملف الذى سيادتك ارسلته ولم تعمل المعادلات . اسمحلى اقولك اللى انا فهمه وشوف انا صح ولا لا

انا اللى فهمه هو ان اقوم بعمل فلتره للبيانا ت سواء للاسم او العنوان او المرتب فى الورقة رقم 1 وتظهر البيانات المفلترة فى الورقة رقم 1 وعندما اذهب الى الورقة رقم 2 سوف اجد هذه البيانات المفلترة الموجودة فى الورقة رقم 1 أصبحت موجودة فى ورقة رقم 2 اتوماتيكيا نتيجة للمعادلات الموجودة فى الورقة رقم 2 . هذا ماانا فهمه . جميل

انا بعمل هكذا وعندما ادخل على الورقة رقم 2 التى بها المعادلات اجدها خالية تماما من اى بيانات وحدث هذا حتى فى الملف الذى سيادتك ارسلته . اين دور المعادلات لاادرى وهل هذا اللى انا فهمه صح ام خطأ ......... محلوظة قد تكون مفيدة انا بعمل على اوفيس 2003

اكرر اسفى لسيادتك اذا كنت اثقلت عليك داعيا لك المولى ان يوفقك وان تحقق كل ماتتمناه .

وانا منتظر ردك سيادتك الكريم

تم تعديل أبريل 16, 2012 بواسطه فضل 1

[Ahmed Elbhiry]

اخى فضل

المعادلات شغالة تمام

جرب الملف المرفق ثانيا

نسخ البيانات المفلترة بالمعادلات.rar

[فضل حسين]

استاذى الفاضل / احمد البحيرى

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

جربت المرفق وللاسف لم تعمل المعادلات وظهر مكان المعادلات الاتى #VALUE!

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

واكرر اسفى لتعبك معى .

تم تعديل أبريل 16, 2012 بواسطه فضل 1

[Ahmed Elbhiry]

الصق المعادلة هذه وشوف الناتج اذا كان الناتج = 1

يبقى مفيش مشكلة

=IF(SUBTOTAL(103;OFFSET(Rng;ROW(Rng)-ROW(INDEX(Rng;1;1));0;1;))>0;ROW(Rng)-ROW(INDEX(Rng;1;1))+1)

المعادلة هذه = false

=ROW()-ROW(C$2)+1>COUNT(xxx)

والمعادلة هذه = 15

=INDEX(Rng;SMALL(xxx;ROW()-ROW(C$2)+1);3)

[أبو محمد عباس]

اخي العزيز فضل1

انا جربت الملف الذي بعثه الاستاذ احمد البحيري وكذلك يعمل بشكل جيد والمشكلة حتما في برنامج الاكسيل الذي لديك او في النظام والحل حتما عند الخبراء والاساتذة الكرام في هذا الصرح الكبير وانشاء ستجد الاجابة باقرب فرصة وانا متاكد لااحد يبخل عليك بالاجابة فالجميع يتسابقون من اجل مساعدة الاخرين ولو على حساب وقتهم وعملهم وهذا مايلاحظه الجميع بدون مجاملة او رياء وبارك الله في جميع اساتذة واعضاء المنتدى

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

[فضل حسين]

تم لصقها وظهر #VALUE!

=IF(SUBTOTAL(103;OFFSET(Rng;ROW(Rng)-ROW(INDEX(Rng;1;1));0;1;))>0;ROW(Rng)-ROW(INDEX(Rng;1;1))+1)

والمعادلة الثانية ظهرت true

والمعادلة الثالثة ظهرت #VALUE!

[Ahmed Elbhiry]

افتح دوال الاكسيل كلها وابحث عن subtotal

لو مش موجودة لن تعمل على 2003

[فضل حسين]

الدالة موجود subtotal

[فضل حسين]

الاستاذ الفاضل / احمد البحيرى

انا اسف تعبتك معاية وانا والله تعبت واصبحت مش قادر انا عندى اخر فكرة ارسل ملف به المعادلة تعمل فيه المعادلة بشكل ممتاز

وهاجرب وتكون اخر محاولة

اكرر اسفى ياحبيبى وسامحنى وانا والله محروج منك جدا وان شاء الله تكون دى اخر محاولة

فى انتظار الملف

[Ahmed Elbhiry]

تصبح على خير ولنا لقاء وانا كمان عندى مدرسة باكر اتركك برعاية الله

[فضل حسين]

تصبح على خير ياحبيبى وانا اسف وجزاك الله كل خير وبارك الله فيك

ولنا لقاء ان شاء الله

[احمد فضيله]

شكرا جزيلا لك يا لخي الحبيب وجزاك الله كل خير

عفوا اخي الفاضل

الله المستعان

[إبراهيم ابوليله]

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

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

ثم عند عمل فلتره اخرى ويت اضافه شيت اخر باسم جديد