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

السيد ياسر خليل هو من عرفني بهدا المنتدى و طلب منى الانضمام اليه ... أعرفه من خلال منتدى Excel4us ... انه انسان نشيط و متحمس جدا يحب الاكسيل و ال VBA و شغوف بالتعلم ... كما أنه شخص مرح و عنده روح دعابة ادعو له بالشفاء العاجل ان شاء الله

تواصلت مع الاخ الحبيب ياسر خليل وعلمت انه مريض شويه وهذا سبب غيابه نسالكم الدعاء له بالشفاء

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

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

الله نسألك يا ذو الجلال والإكرام ان تشافي اخونا ياسر ، اللهم ارفع عنه البأس ، اللهم صل على محمد وعلى آله وصحبه وسلم تسليما

اللهم اشفه وعافه ! وماتشوف شر ان شاء الله الاستاذ ياسر خليل !

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

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

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

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

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

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

السلام عليكم أخي محمد عبد السلام بعد إذن السادة الكرام قمت بالتعديل ليناسب طلبك أخي الكريم..دعاءك بظهر الغيب أرجو والسلام عليكم محمد عبد السلام.rar

اللهم اشف أستاذنا ياسر وعافه من كل مرض ومكروه اللّهم اشفه شفاء عاجلاً شفاء لا يغادر سقماً ولا نصباً

الموضوع غير واضح ... هل تقصد شيئ من هدا القبيل هدا الكود في ال ThisWorkbook Module يطلب من المستخدم الباسوورد اللي هو "123" عندما يفتح الملف و الماكرو مفعل ... لو الباسوورد غلط الملف يغلق نفسه Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled If InputBox("Enter Password") <> "123" Then MsgBox "Wrong Password" & vbCr & vbCr & "Workbook Closing Now !", vbExclamation Application.EnableCancelKey = xlInterrupt Me.Close True End If End Sub

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

Uاخي واستاذي الحبيب الاستاذ القدير / ياسر خليل شفاك الله وعفاك وأزاح عنك كل ألم وتعود إلينا سالما إنشاء الله

اللهم اشفيه و عافيه .... أفتقدنه كثيرا في منتدانا الغالي

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " حسام عيسى " على الالتفاتة الطيّبة .. فعلا نحن بحاجة أكثر لمكتبة العلامة الراحل الأستاذ الحسامي وأعماله .. رحمه الله تعالى خالص احتراماتي

السلام عليكم و رحمة الله و بركاته نرحب بالعلامه القدير الاستاذ جعفر الطريبق .. أهلا و سهلا و مرحبا ..نوّرت المنتدى

السلام عليكم نرحب بالعلامه القدير الاستاذ جعفر الطريبق علم من اعلام البرمجه ونشكر الأستاذ الكريم ياسر أبو البراء الذي تواصل معه ليشاركنا في المنتدى العملاق أوفيسنا.

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

شفاك الله اخي ياسر ... فتقدناك كثيرا في المنتدى دائما كنت يد العون لي و لكل اعضاء منتدنا الغالي اتمنى لك الشفاء العاجل اخي ياسر

يعطيك العافية أخي الحبيب المتميز خالد الرشيدي جزيت خيراً على دعائك الطيب وشعورك الطيب تقبل وافر تقديري واحترامي

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

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

الأخ الحبيب حسام عيسى بارك الله فيك على هذه اللفتة الكريمة بالترحيب بأخونا ومعلمنا جعفر ونرحب به بيننا ونمتنى تواجده الدائم بيننا ، فالله وحده يعلم كم كنت أتمنى هذا الأمر بشدة ، فلله الحمد والمنة بالفعل أخي جعفر نورت المنتدى ، ليست مجرد كلمة تقال ، ولكنك بالفعل نوارة المنتدى أسأل الله العظيم أن يجمع بيننا في الفردوس الأعلى في مستقر رحمته

السلام عليكم...لفتة كريمة من أخ كريم لأخ كريم كان ينشر العلم النافع . جزاكم الله خيرا....

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

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

أخي محمد عبد السلام المحترم: السلام عليكم إذا اعتبرت أن الإجابة كاملة يرجى تحديد كأفضل إجابة لنختم الموضوع والسلام عليكم.

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

السلام عليكم و رحمة الله و بركاته اخي عبد العزيز البسكري ولااخ الغالي محمد حسن المحمد بارك الله فيكم جميعا وسدد خطاكم طلب اريد لما يتم ادخل الكمية يتم عمل enter مرة وحدةويتم الترحيل

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

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

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

السلام عليكم إخوتي الكرام أبشركم بعودة الأستاذ ياسر لمتابعة المنتدى في هذه اللحظات . عوداً حميداً وشفاءً عاجلاً..آمين

تفضل عزيزي وبحل مرن : حسب ماتفلتر موظف او عملاء. مثلا لا تريد اعادة جدول لعملاء: يمكن فلترة العملاء حسب القيم الخالية! ممكن عملاء محديين ! وكذلك الموظفين! جرب ان تفلتر 4 عملاء وتفلتر 2 موظفين ! Private Sub أمر2_Click() Set rs_cust = Me.frm_sub_العمظف.Form.RecordsetClone: rs_cust.MoveFirst Set rs_emp = Me.fsub_الموظفين.Form.RecordsetClone: rs_emp.MoveFirst Do While Not rs_cust.EOF rs_cust.Edit If rs_emp.EOF Then rs_emp.MoveFirst rs_cust!id_uder = rs_emp!id rs_cust.Update rs_cust.MoveNext: rs_emp.MoveNext Loop End Sub بالتوفيق واجمل تحية

الأن ادخل على أي صفحة باستثناء الأولى اكتب ما تريد البحث عنه في الخليه الصفراء في الأعلى واضغط بحث ولاحظ النتيجة بإمكانك التعديل على النتائج كل صفحة تبحث في عمود معين من الصفحة الرئيسية جرب المرفق 2 datamastar.rar

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

السلام عليكم ورحمة الله بعد إذن اخواني الافاضل هذا حل بطريقة أخرى مختصرة بسطر واحد Copy.rar

جزاكم الله خيرا جميعا ياغالين باذن الله ابشركم قريبا،،

اللهم امين

اخى الكريم اجد رد الا اللفاضل طارق محمود هو خير دليل رجاء مراجعة الروابط التالية http://www.officena.net/ib/index.php?showtopic=29748&st=0&p=148274&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry148274 أو http://www.officena.net/ib/index.php?showtopic=32704&st=0&p=168449&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry168449 أو http://www.officena.net/ib/index.php?showtopic=31030&st=0&p=156862&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry156862 أو http://www.officena.net/ib/index.php?showtopic=31030&st=0&p=156669&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry156669 وستجد فيها إن شاء الله ماتريد وأكثر

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

الاجمل من ذلك كله هو مرورك من هنا ومساعدتك للاخرين التي سوف اختصرها بكلمه شكر ودعوه بظهر الغيب

السلام عليكم جميل ورائع بل اكثر من رائع بارك الله بك وبجهودك والله ولي التوفيق

أخي الكريم أبو عبد الملك إليك الكود بالكامل ..تم إضافة ثلاثة أسطر لتؤدي الغرض في نهاية الكود قبل جملة End With Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else: End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value Call CalculateLinesOfRevision SH.PrintPreview End If Next I End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub Private Sub CalculateLinesOfRevision() Dim SH As Worksheet, wsMnhg As Worksheet Dim LRCur As Long, I As Long, N As Long, Counter As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range Dim X, Y, Z Set SH = Sheets("كشف متابعة"): Set wsMnhg = Sheets("المنهج") With wsMnhg LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) SH.Range("Q11:Q34").ClearContents X = ValueLookUp(rngB, SH.Cells(4, "R").Value, rngC, rngD, SH.Cells(4, "S").Value, rngA) If X <= 24 Then For I = 2 To X + 1 SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I, "B") & " " & .Cells(I, "D") N = N + 1 Next I Else Y = Application.WorksheetFunction.Ceiling(X / 24, 1) For I = 2 To X + 1 Step Y SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I + Y - 1, "B") & " " & .Cells(I + Y - 1, "D") N = N + 1 Counter = Counter + Y If Y >= X - I Then Exit For Next I If X - Counter > 0 Then SH.Cells(N + 11, "Q") = .Cells(I + Y, "B") & " " & .Cells(I + Y, "C") & " - " & .Cells(X + 1, "B") & " " & .Cells(X + 1, "D") End If SH.Range("O11:O34").ClearContents Z = X - 24 If Z > 0 Then SH.Range("O11:O34") = .Cells(Z, "B") & " " & .Cells(Z, "D") & " - " & SH.Range("R4") & " " & SH.Range("S4") End With End Sub

السلام عليكم مرفق مثال باستخدام التنسيق الشرطى لمجموعة من 5 اعمدة وبيتلون الصف لما تكتب فى الخمسة كلهم بالكامل .. باستخدام التنسيق الشرطى Select Color When Completed .rar