نجوم المشاركات

السلام عليكم ورحمة الله وبركاته استكمالا لموضوع تحليل التعادل هام للمحاسبين ومديرى المبيعات والانتاج والعاملين بالمجال المالى ---------------------------------------------------------------- كيفة تحديد الربح المستهدف + وتحليل ماذا- لو؟ ------------------------------------------------------------ قد تحتاج ان تعرف ما قيمة المبيعات ؟ اذا ما اردت جنى ارباح مثلا 25000 ؟ وقد تحتاج الاختيار بين عدة بدائل وتحليل حساسية هذه البدائل واختيار البديل الافضل استخدمنا ادوات التحليل ماذا -لو ؟والرسوم البيانيه ومعادلات وصيغ ....الخ لاتنسونا بصالح دعاؤكم تقبلوا تحياتى تحليل التعادل3.rar

أخي الكريم أهلاً ومرحباً بك في المنتدى ونورت يا فورو يرجى الإطلاع على رابط التوجيهات لتتعلم كيفية التعامل مع المنتدى يرجى تغيير اسم الظهور للغة العربية يرجى في موضوعات أخرى أن ترفق ملف للعمل عليه إليك الملف التالي عله يكون المطلوب بإذن العلي الكبير لا تنسى أن تحدد أفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، وان تضغط كلمة "أعجبني هذا" إذا أعجبك الحل تقبل تحياتي Quantity & Priice.rar

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

السلام عليكم اخى الكريم اعددت لك هذا الحل REPORT.rar

السلام عليكم اعددت تقرير ب pivottable ان كان كما تريد نكمل بالمعادلات REPORT.rar

تفضل اخي الكريم اخر رقم SALIM.rar

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

أخي الكريم اضغط على هذا الرابط وتابع شرح فيدو ستجد ما تطلبه

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar

أتمنى أن يكون هذا هو المطلوب للعلم يجب تغيير الخلية B3 إلى تاريخ حتى يتم المطلوب وإلا سينتج أرقام عشرية mas_حساب الايام مابين تاريخيين.rar

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

بسم الله الرحمن الرحيم السادة / أعضاء المنتدى المحترمين سلام الله عليكم جميعا طرح بالمنتدى عده مواضيع لها علاقة بكيفية حماية ملف الأكسيل قمت بتجميعها من خلال عملية البحث بالمنتدى نسأل الله عز وجل أن يجزى كل من ساهم في تلك الأعمال القيمة خير الجزاء وأستسمحكم عذرا إن نسيت نموذج لأحد الأساتذة الأفاضل (( ملحوظه هامه جدا )) (( الغرض من الحماية فى نظرى قاصرة على ملفات العمل الخاصة بكل فرد _ مثل ملفات خاصة بالفرد _ أو ملفات العمل )) (( ولا أتحدث على حماية الملفات التعليمية التى تطرح بالمنتدى _ فهذه أعمال الغرض منها التعلم وإفاده الجميع _ فيجب عدم إغلاقها باى وسيلة حماية )) نسأل الله عز وجل فى أن ينتفع بها الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير وإليكم تلك النماذج نبدأ بأمر هام لتمكين الكواد من العمل من أجل الحماية يجب إجبار المستخدم على تخفيض مستوى الأمان لتفعيل عمل الأكواد بالملف هذا الرابط للأستاذ / محمد طاهر http://www.officena.net/ib/index.php?showtopic=25&st=0&p=46&fromsearch=1&#entry46 نموذج للأستاذ / أكرم الغامدى _ به كود لإجبار المستخدم لخفض مستور الأمان _ ومعه أمور اخرى لا علاقة لها بمضمون الموضوع http://www.officena.net/ib/index.php?showtopic=27032#entry129691 نموذج للأستاذ / أحمد زمان حماية الملف وصلاحيات للمستخدمين http://www.officena.net/ib/index.php?showtopic=30498#entry152813 كود للأستاذ / أبو حنين _ لحماية الملف بكلمة سر (( 123 )) http://www.officena.net/ib/index.php?showtopic=42963#entry247423 كود للأستاذ / عبد الله المجرب _ حماية الملف بربطه برقم القرص الصلب للجهاز http://www.officena.net/ib/index.php?showtopic=39789#entry222281 نموذج للأستاذ / أبو عبد الله _ لحماية الملف _ رابط خارجى http://www.officena.net/ib/index.php?showtopic=33292#entry172604 نموذج للأستاذ / ابراهيم ابو ليلة _ حماية أكثر من نطاق بالملف http://www.officena.net/ib/index.php?showtopic=49921#entry304804 نموذج للأستاذ / ابراهيم ابو ليلة _ لحماية شيت من الدخول له الا برقم سرى ( 123 ) http://www.officena.net/ib/index.php?showtopic=49921#entry304806 نموذج للأستاذ / ابراهيم ابو ليلة _ لحماية المعادلات من النسخ ومع اعطاء رساله ( ليس من حقك فعل ذلك ) http://www.officena.net/ib/index.php?showtopic=49921#entry304849 نموذج للأستاذ / ابراهيم ابو ليلة _ حماية جميع المعادلات بالشيت http://www.officena.net/ib/index.php?showtopic=49921#entry305002 نموذج للأستاذ / ابراهيم ابو ليلة _ شرح كيفية تطبيق حماية المعادلات بأى شيت أو بأى شيت بأى ملف آخر http://www.officena.net/ib/index.php?showtopic=49921#entry305004 نموذج للأستاذ / المايسترو _ حماية الملف بربطه بالجهاز http://www.officena.net/ib/index.php?showtopic=30927#entry156282 نموذج أرفقه الأستاذ / جمال دغيدى _ حماية فتح الملف إذا تم نقله لجهاز آخر أو تغيير أسمه http://www.officena.net/ib/index.php?showtopic=36483#entry193134 نموذج أرفقه الأستاذ / يوسف السيد _ حماية الملف برقم الهارد ديسك http://www.officena.net/ib/index.php?showtopic=36483#entry272286 نموذج للأستاذ / ريان أحمد _ حماية الملف من حذف اى شيت به او زياده اى شيت عليه http://www.officena.net/ib/index.php?showtopic=44527#entry259732 كود للأستاذ / العيدروس _ لحماية ورقتين من الملف ويمكنك ايضا التعديل عليه http://www.officena.net/ib/index.php?showtopic=44527#entry259806 نموذج للأستاذ / ابو محمد عباس _ لحماية الأوراق http://www.officena.net/ib/index.php?showtopic=44527#entry259909 نموذج للأستاذ / هشام شلبى _ لكسر الحماية http://www.officena.net/ib/index.php?showtopic=32477#entry166942 نموذج أكثر من رائع للأستاذ / أبو تامر _ تشفير الملفات (( ملحوظة )) يجب قراءة الشرح http://www.officena.net/ib/index.php?showtopic=25523#entry121162 أكواد للأستاذ / أحمد زمان _ توضع بزرين الغرض منها تعطيل الحماية _ أو تنشيط الحماية http://www.officena.net/ib/index.php?showtopic=40650#entry228283 نموذج للأستاذ / حماده عمر _ حماية خليه معينه وجعل الماوس أو امر انتر لا يتفاعل معها http://www.officena.net/ib/index.php?showtopic=49203#entry298923 نموذج للأستاذ / العيدروس _ حماية خلايا أو اعمده من التغيير مع السماح بتغيير حجمها فقط http://www.officena.net/ib/index.php?showtopic=49203#entry299273 شرح للكود السابق للأستاذ / العيدروس http://www.officena.net/ib/index.php?showtopic=49203#entry299286 كود للأستاذ / أبو حنين _ لحماية الخلايا التى بها معادلات فقط http://www.officena.net/ib/index.php?showtopic=43617#entry252521 كود أقوى من السابق للأستاذ / أبو حنين _ لحماية الخلايا التى بها معادلات فقط http://www.officena.net/ib/index.php?showtopic=43617#entry252619 نموذج للأستاذ / عبد الله المجرب _ حماية الخلايا التى بها معادلات بكلمه سر 123 http://www.officena.net/ib/index.php?showtopic=36304#entry191909 كود للأستاذ / يوسف عطا _ لحماية الخلايا التى بها معادلات داخل شيت معين http://www.officena.net/ib/index.php?showtopic=43514#entry251701 قام بتعديل الكود السابق الأستاذ / عبد الله المجرب _ لجعل الكود يشمل كامل الملف مع حماية الخلايا المدمجة سواء بها معادلات او لا http://www.officena.net/ib/index.php?showtopic=43514#entry251743 نموذج للأستاذ / أبو حنين تطوير الكود السابق حماية الخلايا التى بها معادلات و حماية الخلايا المدمجه فقط التى بها معادلات http://www.officena.net/ib/index.php?showtopic=43514#entry252395 نموذج للأستاذ / عبد الله المجرب _ لمنع النسخ واللصق ومنع الحفظ بأسم جديد عمل مشترك بين الأستاذين (( ابو تامر _ بن عليه )) http://www.officena.net/ib/index.php?showtopic=40743#entry229244 نموذج للأستاذ / halwim عبارة عن مجهود رائع بتجميع عده نماذج للأساتذة بالمنتدى http://www.officena.net/ib/index.php?showtopic=29796#entry157496 نموذج للأستاذ / هشام شلبى _ كود رائع يعمل على حماية اى خليه بها معادلات من تلقاء نفسه http://www.officena.net/ib/index.php?showtopic=29796#entry163041 نموذج للأستاذ / عبد الله المجرب _ منع النسخ أو اللصق _ منع حذف أو اضافة شيتات http://www.officena.net/ib/index.php?showtopic=47220#entry284613

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قدم الأخ الفاضل خالد الشاعر موضوع شيق وممتع وجديد على هذا الرابط .. http://www.officena.net/ib/index.php?showtopic=60175 وكنت قد وعدتكم أن أقوم بعمل شرح فيديو للموضوع نظراً لأهميته عند كثير من الأعضاء .. في الملف المرفق الأدوات المطلوبة لعمل تبويب مخصص أو ما يسمى Custom Ribbon وإضافة أزرار للأوامر التي ترغب في إضافتها أترككم مع رابط الفيدو وإن شاء الله يكون مفيد للجميع بالفيديو نسيت جزئية هامة .. وهي إظهار التبويب المخصص فقط وإخفاء كل التبويبات الأخرى .. بكل بساطة افتح الملف عن طريق البرنامج Custom UIE Editor وغير كلمة false إلى true في السطر الثاني <ribbon startFromScratch="false"> مع مراعاة أن تكون الحروف small اي حروف صغيرة .. ولا تنسى أن تنقر على أيقونة Validate ثم أيقونة الحفظ تقبلوا تحيات أخوكم أبو البراء Custom Ribbon.rar

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

جميل .. ياراعي الغنم ولا بد من التطبيق والتجربة سأرفق لك مثالا يتطلب وجود ملف معين في النظام واريد منك ان تتمكن من فتحه ما رأيك ؟

ا / ياسر كالعادة دائما فى العون و لكنى اشفق عليك من ملفى فهو كبير و الاعمدة التى بها معادلات كثيرة جدا حوالى 100 عمود او اكثر و لكن ممكن ( ممكن ) نبدأ بمعادلات الصفيف و على فكرة الملف فيه من كل واحد من الاساتذة الكرام فكرة و لولاهم بعد ربنا سبحانه و تعالى ما وصلت الى هذه النتيجة

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

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

حبيبي في الله أبو يوسف لم تبد لي أنها ابتسامة شعرت بها منذ الوهلة الأولى .. أن خلف هذا الشخص حزن عميق .. فرج الله همك وكربك وفرج هموم المسلمين وأكثر من قول : لا إله إلا أنت سبحانك إني كنت من الظالمين لك مني خالص الود والتقدير والاحترام

بعد اذن اخي الحبيب ياسر عندي هذا الملف Validation Sheet Name Salim.rar

أخي الكريم سمو الشرق إليك الكود التالي فيه المطلوب بإذن الله Sub CreateSheetAsCopyFromtemp() Dim WS As Worksheet: Set WS = Sheet1 Dim LR As Long: LR = WS.Cells(Rows.Count, "I").End(xlUp).Row + 1 Application.ScreenUpdating = False Application.DisplayAlerts = False If blnWorksheetExists(Format(Date, "yyyy-mm-dd")) Then MsgBox "ورقة العمل موجودة من قبل", vbInformation: Exit Sub Else With Sheets("Temp") .Visible = True .Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Date, "yyyy-mm-dd") With WS .Range("H" & LR).Value = .Range("H" & LR).Row - 4 .Range("I" & LR).Value = ActiveSheet.Name .Range("I" & LR).NumberFormat = "yyyy-mm-dd" .Hyperlinks.Add Anchor:=.Range("I" & LR), Address:="", SubAddress:="'" & Sheets(.Range("I" & LR).Text).Name & "'" & "!A1" End With .Visible = False End With End If WS.Activate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تم تعديل بسيط في ورقة العمل "الواجهة" لالغاء دمج الخلايا ، وتم إدراج صف مخفي ليناسب عمل الكود .. إذا أعجبتك الإجابة يرجى تحديد كأفضل إجابة ، ولا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي Create Sheet As Copy From Temp & Rename It By Date.rar

Private Sub TV_NodeClick(ByVal Node As Object) Dim nodSelected As MSComctlLib.Node Set nodSelected = Me.TV.SelectedItem Me.Text3 = nodSelected.Text End Sub تفضل اخى الكريم واعتذر فا انا فى العمل

السلام عليكم أخي وحبيبي في الله أبو البراء:لدي ثمانية من الأولاد والبنات ولي الشرف أن تكون أخاهم الأكبر وهذا الابن الغالي هوالابن الوحيد الذي حاز على مرتبة مرموقة من العلم أما أولئك فقد حرموه قسراً بعد أن كنت أرجو منهم خيراً كثيراً ألا تسترعي انتباهك ابتسامة بادية على محيّا أبيك الذي يحبك...هذا الظاهر للعيان أما القلب فقد ملئ حزناً وألماً ما لا يعلمه إلا الله تعالى. وعلى فكرة سأصبح جداً إن شاء الله تعالى خلال الأشهر القادمة. تقبل ودي واحترامي وحبي...

أخي الكريم أبو حنين إليك الملف التالي تم استخدام المعادلة التالية للإشارة إلى اسم الشيت الموجود في الخلية A1 =INDIRECT("'"&$A$1&"'!"&ADDRESS(1,1)&":"&ADDRESS(2,1)) أرجو أن يكون المطلوب لا تنسى التوجيهات .... تقبل تحياتي Validation List Based On Sheet Name.rar

استاذن اخى جعفر فلنسبقة الى الخير ولو مرة TreeView.rar

تسلم اخى الكريم محمد الريفى هذا هو المطلوب وبارك الله فيك اخى الكريم الاستاذ الحبيب ابوالبراء ( سيرفر الشركه من اسبانيا ).

الأخ الحبيب أبو يوسف الحمد لله أن تم المطلوب على خير وجزيت خيراً على تحديد أفضل إجابة وعلى الإعجاب عايز أقولك : ليس التسجيل كالفيديو وليس الفيديو كاالانترنت وليس الأيفون كموبايل نوكيا العادي .. أعتقد فهمتني .. صحيح تسجيل الماكرو مفيد في بعض الأحيان ، لكن مش بيحل كتير من المشكلات ..فقط للتوضيح تقبل تحياتي

انظر التعديل جعلت النموذج الفرعي مستمر حتى تطلع على النتيجة بكل دقة الآن : يمكنك ارجاع النموذج الفرعي وجعله مفردا ويمكنك ايضا جعل النموذج المفرد تحت الطلب اي لا يظهر الا عند الاستدعاء نموذج بحث 2.rar

أخي الكريم أبو يوسف النجار يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل مناسب جرب الكود التالي للذهاب إلى أول خلية في العمود بها بيانات Sub NavigateToFirstNonBlankCell() With Columns("A") .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues).Activate End With End Sub تقبل تحياتي

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

أخي الحبيب أبو يوسف بارك الله فيك وجزيت خير الجزاء على مرورك الكريم والعطر بالموضوع ، وتشجيعك الدائم لابن من أبناءك (اسمح لي أن أنال هذا الشرف) اللغة العربية لغة القرآن كما أخبرت ويجب التمسك بها والحفاظ على هويتنا .. لكن للأسف اتبعنا الغرب وأصبحنا نقلدهم ، ويا ليتنا نقلدهم فيما ينفعنا بل فيما يضرنا ويضر إسلامنا في غالب الأحيان تقبل ودي وحبي واحترامي

أخي الكريم أبو حنين قم بتعديل المعادلة في الخلية H5 لتكون بهذا الشكل =IF(AND(E5>$D$1-1,E5<$D$2+1),IF($G$1="",$C5,$C5&$F5),"") وفي الكود قم بإضافة السطر التالي If IsEmpty(Range("D3")) Then WS.AutoFilterMode = False: Exit Sub بعد السطر Application.ScreenUpdating = False جرب وشوف النتائج لاحظ أن غيرك عمل إعجاب في المشاركة رقم 2 رغم إنه مش صاحب الموضوع (يا أخي الكسل وحش أوي ,,,) تقبل تحياتي

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

تفضل أخي الكريم أتمنى أن يكون هذا هو المطلوب تم عمله بالكود مع ملاحظة عدم ترك بيانات فارغة في صفحة الإدخال كما هو موجود في الملف حيث يوجد الفرع والحركة والأصناف ولا يوجد التاريخ والكود يجلب البيانات الكاملة وكل عام أنتم جميعا بكل خير mas_Recipe YasserKhalil.rar

بالفعل كلامك صحيح بنسبة 100% أخي الحبيب أبو يوسف وخبرتك ليست بالضحلة وأنا أعلم ذلك .. المسألة مسألة وقت (كان من المفترض إنك تتابع من زمن .. بس يبدو إنك من أعداء الانترنت ، عشان كدا اتأخرت علينا) ، ولكن في وجهة نظري أنه سيكون لك باعاً كبيراً إن شاء الله

اخى الكريم انا صممت المرفق السابق على اساس شئ بديهى يمكنك ان تستخدمه وهو اذا كان رقم الاب هو 100 ثم انت تضيف على رقم الاب الشرطة المائلة / ورقم 1 مثلاا ليصبح هكذا 100/1 وهو رقم الزوجة فما المانع اذا جائتك السيدة خديجة برقمها الفرعى 100/1 فتاخذ انت فقط ال 100 لتبحث به وتترك الشرطة المائلة / والرقم 1 :wink2: اما اذا كان ما تريد فلسفة برمجيبه كما تقول فيمكننا استخدام الكثير منها ما قلت لك الاستدعائ ومنها اخذ الرقم فقط قبل الشرطة المائلة عن طريق دوال النصوص هناك الكثير

أشكر الاستاذ / محمد بن حسن المحمد على تعليقة الجميل واتمنى ان ينال البرنامج اعجابكم ويستفيد به كل مسلم واتمنى ان تساعدنى استاذ / محمد بن حسن المحمد فى نشر رابط البرنامج فى مختلف ادوات التواصل الاجتماعى المتاحه لك وأشكرك مره اخرى اخوك - محى الدين عنتر موقع الإمساكية الذكية صفحة الإمساكية الذكية جروب الإمساكية الذكية قناة الإمساكية الذكية

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

اي طريقة ؟؟؟ !! هل تقصد هكذا : SELECT LY.ID, LY.[PT-NAME], LY.DATEE, LY.datee1 FROM LY WHERE (((CDate(Format([datee],"d/m/yy"))) Between CDate(Format([ادخل تاريخ اليوم المطلوب],"d/m/yy")) And CDate(Format([ادخل تاريخ اليوم المطلوب2],"d/m/yy")))); تحياتي

أحب أن أنوه إليك أن المرفقات في غالب الأمر بتكون نماذج مصغرة للملف الأصلي والملف الأصلي ممكن يكون به بيانات كثيرة جداً .. مشكور على الكود الرائع والحل الجميل باستخدام الدالة Index (ننتظر منك شرح للدالة في الموضوع المخصص له ..لإثراء الموضوع ، ولعلمي المطلق أنك مجيد في استخدام المعادلات بشكل لا يقارن تقبل تحياتي وودي وحبي في الله

بارك الله بك اخي ياسر على هذه الاضافة لم اضعها صراحة لان الملف صغير جداً 15 كيلو

بارك الله فيك أخي سليم طالما أنك تتعامل مع الأكواد فيستحب تحويل المعادلة لقيمة إضافة بسيطة جداً لكودك الرائع للحصول على قيم فقط Sub montougat() [a5] = [b1] [b5:c5].Formula = "=INDEX(Sheet1!$B$2:$C$100,MATCH($A5,Sheet1!$A$2:$A$100,0),MATCH(B$4,Sheet1!$B$1:$C$1,0))" [b5:c5].Value = [b5:c5].Value [a10] = [b1] [b10:c10].Formula = "=INDEX(Sheet2!$B$2:$D$100,MATCH($A10,Sheet2!$A$2:$A$100,0),MATCH(B$9,Sheet2!$B$1:$D$1,0))" [b10:c10].Value = [b10:c10].Value End Sub وذلك تخفيفاً من حجم الملف في حالة التعامل مع بيانات كثيرة.. تقبل تحياتي

إنت تؤمر أخي وحبيبي صلاح إنت تسأل ونحن نجيب بإذن الله قل بفضل الله .. وقل الحمد لله تقبل تحياتي

تفضل بنفس الخيارات الثلاث (على فكرة ، انا عملت تغيير في آخر لحظة في مسمى الوحدة النمطية السابقة ، ونسيت اغير المسميات بها ، مما جعلها لا تعمل ) وهنا الخيارات السابقة بعد تعديل الوحدة النمطية ، بالاضافة الى الطلب بين تاريخين كذلك (واستعلامتها تحمل مسمى Two في نهاية الاستعلام) مثلا: الاستعلام الجديد الذي ينادي الوحدة النمطية: جعفر 91.Database1.accdb.zip

عن ابن عمر -رضي الله عنهما- عن النبي -صلى الله عليه وسلم- أنه قال: (من كان في حاجة أخيه كان الله في حاجته). أبي هريرة -رضي الله عنه- عن النبي -صلى الله عليه وسلم- أنه قال: (والله في عون العبد ما كان العبد في عون أخيه). عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم ارفقت هذه الاحاديث الثلاث لدلالة اجر من يعمل على مساعدة الناس واعطائهم من وقته وعلمه دون ابتغاء الاجر من الناس الهم بلغنا رمضان واعنا على صيامه وقيامه الهم فرج الفم والهم عنا وعن عبادك المستضعفين في سوريا وسائر بلاد المسليمن وأخبر النبي صلى الله عليه وسلم عن استجابته لدعاء من دعا لأخيه، فقال : دعوة المرء المسلم لأخيه بظهر الغيب مستجابة، عند رأسه ملك موكل به، كلما دعا لأخيه قال الملك الموكل به: آمين ولك بمثل . رواه مسلم جزاك الله الف خير اخ ياسر ورزقك من حيث لا تعلم ولا تدري رزق حلال بلا تعب او جهد

الأخ أحمد الرشيدي السلام عليكم ورحمة الله وبركاته لقد استغربت أمراً أصارحك به - المسلم للمسلم كالمرآة - كيف تسأل عن أمر لم تدركه ثم تكون أفضل إجابة هي إجابتك لنفسك ثم إنني اطلعت على الملف الثاني (طلب كود أو معادلة للربط بين الفهرس والفاتورة) الذي تطول أوراقه أكثر من 100 ورقة ولذلك رحمة بحالك ونصحاً لك فإنني أقترح عليك أن تعمل هذه الـ 100 ورقة ورقة واحدة تعمل بها من خلال التصفية حسب اسم العميل تستطيع من خلالها التصفية حسب العميل أو التاريخ ويمكنك وضع أرقام للفواتير وأخيراً أرجو أن تلتمس لي عذراً على صراحتي واقبل توجيه أخيك الأكبر منك سناً.. تقبل تحياتي .... السلام عليكم.

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

الأخ الفاضل خيماوي كوول خليك كوول يا مان ومتدخلش وايدك فاضية ..مش معنى إن عدد مشاركاتك قليل إنك متساهمش .. ساهم واتبرع ولو بكود .. فكرتني بمستشفى 5757 تعاطفك لوحده مش كفاية .. وانا بقول تشجيعك لوحده مش كفاية شارك ولو بكود شارك ولو بكود ..دا هيكون شعار المشروع الكبير .. شارك ولو بكود .. خلي المشروع مشهود