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

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

قام بنشر (معدل)

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

احبابي اسرة اوفيسنا المحترمين

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

اثناء بحثي بالمنتدى وجدت ملف يتناسب مع ما احتاجه في عمل استدعاء بيانات من عدة صفحات

من عمل استاذنا و حبيبنا الاخ الكريم خبور خير

لكن المشكلة بقيت في ان يتقيد الكود بالتاريخ المدخل

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

ارجو التعديل على الكود وجزاكم الله خير

_____.rar

تم تعديل بواسطه الســـــــاهر
قام بنشر (معدل)

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

طبعا مش اي حد يستطيع التعديل على كود عملاق من العمالقة الكبار مثل الأستاذ خبور

ولكن عند مراجعة الملف وجدت لك حل مؤقة

وهو

استخدام التصفية الموجودة في الصفحة لإختيار الصفوف المحددة للتاريخ

وتم اضافة ذلك للكود مع تعديل معادلة المجموع لكي يكون الناتج صحيح

If [G4] <> "" And [H4] <> "" Then
Selection.AutoFilter Field:=1, Criteria1:=">=" & [N1], Operator:=xlAnd _
, Criteria2:="<=" & [N2]
Else
ActiveSheet.ShowAllData
End If

من ناحية اخرى

بالنسبة للعمل

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

آمل مراسلتي على

AYMZ077@YAHOO.COM

مع التحية

أخوك

احمديعقوب

_____.rar

تم تعديل بواسطه احمد يعقوب
قام بنشر (معدل)

السلام عليكم

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

لكن ما اريده هو ان يعمل الكود بالتقيد بالتاريخ

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

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

اشكر لك اضافتك الجميلة و يسعدني التواصل معك

تحياتي

____________________________.rar

تم تعديل بواسطه الســـــــاهر
قام بنشر

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

اخي القدير الفاضل

شكرا على اتصالك الذي اسعدني

اما بالنسبة للملف فلقد اجريت تجربة و الحمد لله نجحت

حيث قمت بعمل شرط IFللتاريخ مستقل بعد شرط الأول

والنتيجة تمام و الحمد لله

جرب المرفق

مع التحية و التقدير

_____.rar

قام بنشر

السلام عليكم

اشكرك جزيل الشكر اخي الفاضل / احمد يعقوب

هذا هو المطلوب بالظبط رغم انه بطريقة مختلفة عن طريقة الاستاذ خبور خير

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

اتمنى ان نكون على اتصال دائم

تقبل فائق شكري و تقديري و احترامي

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