عمر ضاحى

السلام عليكم اساتذتى الكرام تحية طيبه للجميع وبعد؛ بعد اذن حضراتكم انا كنت عملت موضوع بعنوان (( إنشاء استعلام عن قيم ونصوص معينه تحت شرط معين )) ولله الحمد اجابنى استاذى الفاضل احمدزمان وكان لى استفسارات اخرى لكن للاسف لم يستطع احد ان يجيب عن استفساراتى فى الموضوع السابق وانا اليوم بعد اذنكم كنت محتاج اطور الكود ده بالاتى 1- كيف ادمج بين مفتاح الاستعلام بالشروط فى عمليت الفلتره 2- كيف عمل قائمة استطيع ان اختار منها اسم مخزن (المخزن هنا هو اسم الشيت) او عدة مخازن لتحقيق شرط معين يأتى تاليا 3- كيف استعلم بين تاريخين عن جميع الارصده بمعني ( عند وضع تاريخين يقوم البرنامج بالبحث لى عن جميع الفواتير فى جميع المخازن اذا لم اقوم بتحديد مخازن معينه ) 4- وعندما اريد ان اطبع النتائج اريد ان تظهر لى النتائج بصورة معينه دون طباعة صف الادوات ويظهر لى كتقرير ويتم وضع شعار وابيانات اريد وضعها فيما بعد اسف ان طلباتي كثير لكن هنا عمالقة الاكسيل لا يصعب عليهم شئ من هذا وشكرا للجميع مقدما TEST2.xlsm

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

up

UP

UP

هل ممكن تحديث البرنامج بحيث يعمل الكود على اوفيس 2016 لانه بيظهر لى خطأ عند تشغيله

up

up

up

up

ممكن استأذن حضرتك في مراجعة الملف مرة اخري لان فى شئ خطأ

up

up

انا وجدة كود لموضوع القائمة للفتلرة وعلى قدر استطاعتى عرفت ان لو عملت تسجيل للميكرو واخفيت صف عرفت انه هيظهرلى الكود الخاص بامر الفلتره وهو EntireRow.Hidden = True والكود كامل بعد التعديل هو Sub hiden_line() 'CODE FOR HIDE VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng ' D7 هى الخلية التى بها القائمة او القيمة المطلوب الفلتره عليها If cell.Value = Range("D7").Value Then cell.EntireRow.Hidden = True End If Next cell End Sub Sub show_line() 'CODE FOR SHOW VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng If cell.Value = Range("D7").Value Then cell.EntireRow.Hidden = False End If Next cell End Sub Sub show_lineALL() 'CODE FOR SHOW ALL VALUE Dim rng As Range Dim cell As Range Set rng = Range("A10:M25") For Each cell In rng If cell.Value = "وارد" Or cell.Value = "صرف" Then cell.EntireRow.Hidden = False End If Next cell End Sub @احمدزمان لو امكن حضرتك ممكن تساعدنى فى هذه النقطة بحيث ادمج هذا الكود مع كود حضرتك بحيث يكون هناك زرار واحد لعمل كل الخطوات بدل 4 مفاتيح يعنى انا محتاج من حضرتك تساعدنى فى دمج هذه الاكواد او كيف اخلى لما اختار شئ من القائمة المنسدلة يتم تطبيق الميكرو تلقائي دون ان يكون هناك مفتاح لتنفيذ المايكرو

انا لو حابب اني اقوم بعمل فلتره حسب قيمة خلية معينه ايه الكود المطلوب لعمل هذه الحركة ؟

#تذكير

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

مش عارف فى خطأ ما لا ادري السبب زر الحالة مش منه المفترض لما اختر مثلا المنصرف يظهر لى المنصرف فقط ؟ويخفى باقى النتائج لكن كل ال بيظهر لى قائمه بكل المكتب تحت الحالة وعامل التصفيه لا بعمل معها ام ان له عمل اخر غير هذا ؟

ما فى مشكله اى فكره من حضرتك وياريت لو تقدر تضيف مفتاحين تاني معاهم واحد عرض المنصرف فقط والاخر عرض الوارد فقط والاخير عرض الجميع وعلى الرغم اني مش فاهم الكود كيف حضرتك عملته لكن ربنا يجازيك كل خير ويبارك لك فى حياتك

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اساتذتى الكرام اخواني الاعزاء بعد اذن حضراتكم انا محتاج مساعدة فى عمل استعلام عن قيم ونصوص معينه تحت شرط معين وللمزيد من التفاصيل مرفق ملف للشرح عليه وشكرا جزيلا TEST.xlsx

الف شكر لك اخى الكريم شريف وايضا الخى الكريم علي ..على مساعدتكم لى ..ولكم جميعا جزيل الشكر

اولا الف الف شكر لك اخي العزيز على محمد على على تقديم مساعدتك لى ولجميع اعضاء المنتدي المبتدئين امثالى والحمد لله استطعت الوصول الى حلول اخري تعمل جيدا وبتناسق الى حدا ما (هذا قدر امكانياتي وخبرتي البسيطه ) ويوجد خطأ فى هذه المعادلة التى قمت بوضعها مع الاقامات المنتهيه حيث تظهر النتائج غير مظبوطه تماما لذا لا اعرف السبب او حتى دالة اخري تمكنني من عمل هذا مثل هذا الموقع https://ee3.us/teams.htm لكن مرفق اليكم ما استطعت انجازه حتى تاريخه لذا اذا امكن احدكم ايجاد هذه الدالة التى تظهر لى النتائج مثل الموقع المرفق سابقا لكم جزيل الشكر وشكرا للجميع مره اخري تجربه.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اخواني الاعزاء كنت فى حاجه ماسة الى مساعدتكم جميعا انا اعمل على اوفيس 2010 كنت محتاج معادلة لحساب المدة المتبقية بين تاريخين هجري (لاحتساب المدة المتبقيه على انتهاء الاقامة ) كمثال تاريخ انتهاء الاقامة 15 10 1439 تاريخ اليوم 27 8 1439 اريد المعادلة ان تظهر لى المدة المتبقية هي : 0 1 17 سنه شهر يوم هل يستطيع احد ان يفيدنى كيف اعمل هذه المعادلة فى نظام الجداول يعنى تصمصم الجدول عندي هكذا اسم الموظف تاريخ انتهاء الاقامة تاريخ اليوم المدة المتبقيه ( عمود سنه - عمود شهر - عمود يوم ) والف شكر لكم مقدما

up