عادل حنفي

السلام عليكم اخي العزيز ahmedkano اخي لك ما طلبت و ان كنت ازدت عليه بانك لو حددت خلية واحد او مائة خلية ستجد ماتريده كما يمكن ان يكون التحديد راسيا او افقيا كيفما تشاء خالص تحياتي ___________________________________.rar

السلام عليكم اخي العزيز boss ما فعله الاخ العزيز مصطفي كمال كان بالفعل ما فهمته انا من طلبك و لكن بتمعن اكثر في ردك الاخير و النظر الي الملف اعتقد ان المرفق سيكون طلبك تحياتي boss.rar

السلام عليكم اخي مافهمته انك عندما تحدد خلية و تضغط علي الزو فان الكود يضع المعادله في الخلية المحددة دون ان تفعل خلية غير المحددة بعد اتمام عمل الكود اتمني ان اكون قد اجدت الفهم كل ما عليك ايقاف عمل جزء من الكود ليكون هكذا ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]" 'Range("C3").Select مرفق الملف macro1.rar

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

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

السلام عليكم اين المرفق اخي تحياتي

السلام عليكم اخي khhanna Application.ScreenUpdating = False Sheets("si").Range("E6:E165").ClearContents لافراغ المدي الذي ستنسخ اليه الاسماء For i = 3 To 165 من الصف رقم 3 الي الصف رقم 165 Cells(i, 2).Select يتم تحديد او الوقوف علي الخلية التي في العمود الثاني من الصف If Selection.Value > 0 Then اذا كانت قيمة الخلية المحددة اكبر من صفر With Sheets("si").Columns(5).Rows(165).End(xlUp) بالشيت si في العمود الخامس و الي اخر خلية مكتوب بها من الصف 165 الي اعلي .Offset(1, 0) = Cells(i, 2).Value يتم نسخ محتواها الي الشيت si في المكان المحدد سابقا End With End If Next Application.ScreenUpdating = True Sheets("si").Select Sheets("si").Range("E6").Select تم شرح الهام بالكود تحياتي

السلام عليكم اخي و هذا الملف مرة اخري لتحاشي تكرار الترحيل لصف مرحل سابقا حيث انه اثناء التعديل السابق غيرت ترتيب الخانة التي تدل علي ان الصف قد تم ترحيله من عدمه و سهوا لم يتم ارجاع الكود لما هو عليه لذا ارفق الملف بعد التصحيح تحياتي avogadrow4.rar

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

السلام عليكم اخي justice بارك الله فيك اخا عزيزا دائما مبادراتك للخير سباقة خالص تحياتي

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

السلام عليكم اخي alaamun مرفق نفس الملف و لكن بتغيير بسيط جدا حتي يكون العمل بشكل احترافي اكثر اخي abouelhssan تحياتي alaa113.rar

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

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

السلام عليكم بارك الله فيك اخي abuzzouz تحياتي

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

السلام عليكم اخي الفاضل وكانك تريد ان تنزل البحر و لا تتبلل كيف يكون زر و يكون دون ماكرو او كود ؟؟؟؟ تحياتي

السلام عليكم اخي نزار لك الشكر اخي اخي alaamun جرب المرفق تحياتي alaa11.rar

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

السلام عليكم بارك الله فيك اخي الساهر تحياتي

السلام عليكم اخي الفضل الجمع التراكمي هو ان تكون هناك خلية تجمع مايكتب في خليه او خلايا اخري و ان تم مسح بيانات الخلية الاخري لايتم مسح ما سجل بهذه الخلية و ان كتب في الخلية الاخري ارقام جديده فانه يضاف الي ما كان موجودا فيها مسبقا مرفق مثال تحياتي ______.rar

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

السلام عليكم اخي تم رفع ملف سابق بالمشاركة رقم 15 يشرح كامل الكود فلم يتم تغير الكثير فيه و ملفك شغال تمام و اي شئ تريد التحقق منه ارجو اخباري به تحياتي

السلام عليكم اخي المشكلة تكمن في المعادلات التي تنقل بها الاسماء من ورقة1 لذا تم التغلب علي ذلك بعمل زر بورقة1 يتم عن طريقه نقل الاسماء الي شيت si جرب و اخبرني النتيجة تحياتي _____1.rar

السلام عليكم اخي العزيز مدي الترتيب عند فتح الملف عند اخر خليه مكتوب بها وبهذا لا يقلك المدي فهو مفتوح ايضا ما كان يتبقي هو ضبط مدي اسماء النطاقات و لم الحظه سابقا فقد تم ضبطه الي 10000 ايضا مع ضبط اخر بسيط بالمعادلات تم اضافة عمود جديد يرشدك علي ما يجب فعله فهو يعطيك العدد الذي اذا اضفته من صنف واحد يضبط لك تقريبا الحجم مع اختلافات بسيطه يسهل تعديلها يدويا و هذا العمود قد يعطيك رقما امام كل صنف و ليس معني هذا اضافة الكل بل احدهما فقط والي الان تحت التجربه الي ان يتم التاكد من ان نتائج المعادلات مضبوطة تحياتي ___4_.rar