roushdy

انى ادعو الله من كل قلبى ان يشملكم الله ببركاته رائع

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ استاذنا ابو اسامة انا فهمت من الكود 1 - ان الصف الأول يقوم بتحديد الصف الأخير فى الورقة الثانية باسم المتغير x لكن الى ماذا يشير المتغير y على العموم ولأهمية هذا الكود جدا ارجو التكرم بشرحه بالتفصيل كما تعودنا من سيادتكم اذادكم الله تعال علما

الأستاذ سالم الملف معطوب ارجو اعادة تحميله ولك جزيل الشكر

فكرة جميلة جدا

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

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

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

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

السلام عليكم ورحمة الله الملف المرفق _____2.rar

السلام عليكم صباح الخير في آخر الدالة السابقة تضيف +(الخانةالتي يوجد بها الرصيد السابق)

السلام عليكم صباح الخير في آخر الدالة السابقة تضيف +(الخانةالتي يوجد بها الرصيد السابق) استاذى احمد يعقوب انا فى غاية الحرج للعودة لنفس الموضوع ولكن عند تطبيق المعادلة + الخانة التى يوجد بها الرصيد السابق لاحظت انه عند كل صرف لجهة القاهرة يتم اضافة نفس الرصيد السابق فماذا يكون الحل فى هذه الحالة

عمل رائع ودائما فى التقدم

بارك الله فى حضرتك كدة كله تمام وكتر الله خيرك ولنا لقاء فى مشاركات اخرى

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

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

شكرا على هذا المجهود

عمل رائع ومفيد فى افكار مشابهة شكرا لسيادتكم

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

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

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

بحثت فى منتدانا عن الأجابة على سؤالى ولم اوفق لذا ارجو التكرم بموافاتى بالأجابة عندى جدول ووضعت بكل الصفوف بالعمود الثانى قائمة منسدلة باسماء الجهات المختلفة وعند محاولتى الترحيل لرقم بالعمود السادس لشيت اخر بشرط ان تكون الجهة المختارة من القائمة مثلا " القاهرة" وذلك بالكود التالى Dim i As Integer i = ActiveCell.Row For i = 8 To 202 If sheet2.Cells(i, 2).Value = "Cairo" Then sheet17.[b7] = sheet2.Cells(i, 6) End If If sheet2.Cells(i, 2).Value = "Helwan" Then sheet17.[b8] = sheet2.Cells(i, 6) End If If sheet2.Cells(i, 2).Value = "AlGeza" Then sheet17.[b9] = sheet2.Cells(i, 6) End If Next i Sheets("sheet17").Select End Sub ولكن لم يفلح الكود لذا قمت بتغير العمود الذى لا يوجد به قائمة منسدلة وكتبت اسم الجهة يدويا تم الترحيل بنجاح لذا ارجو التكرم من سيادتكم بالرد كيف اشير على محتوى موجود بالقائمة المنسدلة مثل "القاهرة" على سبيل المثال ليتحقق الشرط

عبقرية فى الشرح

ارجو التكرم بالإيضاح هل انتهت الدورة ام ماذا فنحن فى حاجة ملحة لأستكمال هذه الدورة رجاء محبة استكمال الشرح 0

موضوغ غاية فى الروعة 0000 ولكن لى طلب لو سمحت ممكن شرح الأكواد - وياليت كل من يضع موضوع يقوم بشرح الأكواد للمنفعة ولسيادتكم جزيل الشكر