طلب عمل ماكرو استدعاء بيانات

[gadelrab]

الاخوة الاعزاء

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

لدى ملف يومية لشركة مقاولات

الملف به ورقتان ورقة لقيود اليومية وورقة للمصروفات

اريد عمل ماكرو جلب للبيانات الموجودة باليومية طبقا للبيانات بالخليتين e2 و f2

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

ثم عمل تصفية ثانية طبقا للدليل الموجود بالخلية f2

ولصق هذه البانات بورقة المصروفات بدء من الخلية a5

وربط هذا الماكرو بزر الاستدعاء

وعمل ماكرو اخر لازالة البيانات من ورقة المصروفات مع ترك صف العنواين

وربط هذا الماكرو بزر الازالة

وذلك دون التأثير البيانات الموجودة بورقة اليومية

ولكم جزيل الشكر

__________________________________2.rar

[احمدزمان]

اخي الفاضل

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

ارفقت لك في الملف كود جميل كنت قد تعلمته من الأستاذ ابو تامر جزاه الله كل خير

وهو يعمل على استدعاء اي بيانات وذلك عن طريق تسمية النطاقات

حيث يمكنك الإستعلام عن عدة بيانات و ليس اثنان فقط

وقد وضعته في حدث تغيير الصفحة

بحيث بمجرد ادخال ماتبحث عنه يظهر فورا وبدون الحاجة الى زر

Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"output"), CopyToRange:=Range("order"), Unique:=False

مع التحية

احمدزمان

ay__________________________________2.rar

[gadelrab]

الاخ العزيز

احمد يعقوب

اشكرك شكرا جزيلا على اهتمامك وسرعة استجابتك

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

فعند ادخال اسم العملية والدليل فى الخليتين f2 , g2 على التوالى فى ورقة المصروفات

لاتظهر البيانات فى الجدول

ارجو توضيح الخلل

وجزاك الله خير الجزاء

[احمدزمان]

آسف

تم التعديل

كلمة دليل في الخلية الخضراء كانت بها مسافة زائدة

تم توسيع المدى للإستخراج

والكود صحيح من الأول

ay__________________________________2.rar

[gadelrab]

الاخ العزيز

احمد يعقوب

جزاك الله خير الجزاء

وجعل ما تقوم به من علم نافع فى ميزان حسناتك يوم القيامة