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

مساعدة باستدعاء بيانات حسب معايير


abed ahmed

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

اخى عبدالله المجرب

اولا وحشنا ووحشتنا ابداعاتك

عمل كبير بكود وفكره بسيطة بارك الله فيك

فلتره باربع متغيرات نتيجة ممتازة

السؤال

نقل التقرير فى صفحة منفصلة التغيير فى الكود هكذا ام توجد اضافات اخرى

تحياتى سعد عابد

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

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

"O1:R2"), CopyToRange:=sheet2.Range("G1:K1"), Unique:=False

ActiveWindow.SmallScroll Down:=-3

Range("K2").Select

Application.ScreenUpdating = True

End Sub

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

أخي سعد

بالغت في المدح فاحرجتنا ياراجل (هذا نقطة في بحر علمكم) شكراً على المجاملة

* ملاحظة مهمة

الشروط تكتب في الخانات الصفراء (لان هناك شروط في القائمة المنسدلة لخانة Cash )

في حال الرغبة لنقل البيانات الى شيت أخر

فسيكون التغيير في بداية الكود فقط (مع العلم بأن خانة الشروط بنفس الترتيب)


Sheets("Sheet1").Range("rng")

والله أعلم

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

شكرا اخي الكريم ابو احمد

لكن للاسف ليس هذا ما اريد هذه الطريقة اعرفها ولا تلبي ما اريد لان بها سلبيات كثيرة حيث انها تقوم بقص البيانات ولصقها وتقوم باجبار الالتزام بنفس تنسيقات الجدول الرئيسي

كذلك تجبرني على اختيار المعايير الثلاث معا وهذا ما لا اريده وانا اريد مثلا اختيار معيار واحد فقط او اثنين

بالاضافة انها لا تقوم بفلترة المبلغ بين رقمين (من الى)

ارجو ان تساعدوني في ايجاد الحل اكون لكم مشكورا

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

كذلك تجبرني على اختيار المعايير الثلاث معا وهذا ما لا اريده وانا اريد مثلا اختيار معيار واحد فقط او اثنين

اخي اليس هذا ما طلبته في ملفك المرفق ؟؟؟؟

المطلوب : استدعاء البيانات من الجدول الرئيسي حسب المعايير الثلاث الموجودة في الخانات الصفراء بواسطة الكود

ابوحمد

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

شكرا اخي الكريم ابو احمد

لكن للاسف ليس هذا ما اريد هذه الطريقة اعرفها ولا تلبي ما اريد لان بها سلبيات كثيرة حيث انها تقوم بقص البيانات ولصقها وتقوم باجبار الالتزام بنفس تنسيقات الجدول الرئيسي

كذلك تجبرني على اختيار المعايير الثلاث معا وهذا ما لا اريده وانا اريد مثلا اختيار معيار واحد فقط او اثنين

بالاضافة انها لا تقوم بفلترة المبلغ بين رقمين (من الى)

ارجو ان تساعدوني في ايجاد الحل اكون لكم مشكورا

بعد التحية للأستاذ ابو احمد و الأخ السائل

1- هي تقوم بالنسخ و اللصق و ليس القص و اللصق

2- لا يشترط اختيار المعايير الثلاثة ممكن معيار واحد او اثنين

3- ممكن فلترة المبلغ بين رقمين كما فعلنا في التاريخ بالظبط

4- بما ان هذه الطريقة لم تعجبك لذلك امامنا حل من اثنين

أ- استخدام التصفية التلقائية مباشرة في نفس الجدول الذي تعمل علية بطريقة الشروط التي وضعتها

ب- استخدام الدوال او المعادلات وهو سوف يكون (حل مطول قليلا) ولكن ممكن

اختار ماتريد

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

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

أخي الكريم،

أولا أستسمح أخي الكريم عبد الله في القيام ببعض التغييرات على ملفه وكوده الجميل ليعمل بالطريقة التي تريدها (اختيار المعايير بما يحلو لك بتفريغ خانات المعايير الملونة بالأخضر في الملف المرفق الأول حتى وإن تم تفريغ كل المعايير) وتم تشغيل خاصية From .. To بالنسبة للمعيار Cash وإضافة بعض التنسيقات الشرطية...

استدعاء بالمعايير2.rar

وثانيا أقدم لك أيضا الملف نفسه في المرفق الثاني وذلك باستعمال المعادلات (لكن باختيار كل المعايير وخاصية From ... to غير مفعلة)... وأفضل العمل الذي قدمه أخي الكريم عبد الله حفظه الله ورعاه...

استدعاء بالمعايير2.rar

أخوكم بن علية

استدعاء بالمعايير3.rar

تم تعديل بواسطه hben
رابط هذا التعليق
شارك

السلام عليكم

مبدع اخي بن علية

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

بس الدوال لم تعمل عندي على اكسل 2003 بسبب الدالة EVAL الغير موجودة

ولكن نفس الفكرة وصلت لدي جزاك الله كل خير

وتبقى الطريقة الأخيرة وهي باستخدام التصفية التلقائية مع كود

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information