طارق محمود

السلام عليكم تم انشاء 3 جداول في الورقة الأخيرة لمتابعة حالة القروض طويله الاجل والمرابحات بالورقتين الأوليين الجدول الأول : مضي وقت الإستحقاق الجدول الثاني : إقترب وقته (7 أيام) الجدول الثالث : لم يحن وقته بالضغط علي الزر (إضغط هنا) ذو اللون التركواز -أزرق فاتح يبدأ الكود بعمل التالي يمسح بيانات الورقة الأخيرة ثم يمر بالورقتين الأوليين ، وفي كل ورقة يقارن تاريخ الاستحقاق "VALUE DATE" بتاريخ اليوم (الذي نقرت فيه الزر ويأخذ تاريخ اليوم من جهاز الكمبيوتر) أول احتمال إذا كان تاريخ الاستحقاق أقل من تاريخ اليوم يضعه في الجدول الأول ثاني احتمال إذا كان تاريخ الاستحقاق أكبر من تاريخ اليوم بمدة قليلة (7 أيام أو أقل) يضعه في الجدول الثاني ثالث احتمال إذا كان تاريخ الاستحقاق أكبر من تاريخ اليوم بمدة تزيد عن 7 أيام يضعه في الجدول الثالث تم تعديل طفيف بالكود ليضع كذلك بكل جدول عمود إضافي به إسم الورقة التي بها البيان تفضل الملف بعد التعديل قروض2.rar

السلام عليكم أخي الكريم أرجو أن يكون المرفق ماتريد قروض .rar

جزاك الله خيراً وبارك الله لك

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

السلام عليكم تفضل المرفق Grater_Smaller.rar

السلام عليكم لاأدري هل هذا ماتريد أم لا تفضل المرفق zmzm2.rar

السلام عليكم مرفق الملف مرة أخري وبه ورقة خاصة لشرح الكود a.rar

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

السلام عليكم أخي الكريم جرب المعادلة التالية بفرض البيانات في العمود A ="L"&VALUE(MID(A2,3,6)) أو أنظر المرفق إستخلاص معلومات من الخلية.rar

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

السلام عليكم تفضلي أختي الحل بالأكواد معذرة لإنشغالي في الفترة السابقة يمكنك الحصول علي التقرير بالضغط علي أي من الزرين بالورقتين الكود المستخدم Sub countt() LR = [B9999].End(xlUp).Row Sheets("Report").[A2:D99].ClearContents For r = 2 To LR nr = Sheets("Report").[B99].End(xlUp).Row + 1 If Cells(r, 2) = Cells(r - 1, 2) Then GoTo 10 cc = 1 For i = 1 To 9 If Cells(r, 2) <> Cells(r + i, 2) Then GoTo 5 cc = cc + 1 Next i 5 If cc = 1 Then kh = 0.75: txt = "يوم واحد": GoTo 8 txt = cc & " ايام متتالية" If cc < 5 Then kh = 0.4 Else kh = 0.2 8 Range("B" & r & ":C" & r).Copy Sheets("Report").Cells(nr, 1) Sheets("Report").Cells(nr, 3) = txt Sheets("Report").Cells(nr, 4) = kh 10 Next r Sheets("Report").Activate End Sub شرح سريع للكود يمر في جميع صفوف الورقة الأولي ويقارن الخلية التي بها رقم الصنف بالتي تعلوها ، إن كانت تساويها يعني الصنف متكرر فلن يفعل شيئا ويتجاوزها للتي تليها Next r فإذا لم تكن تساويها يعطي التكرار رقم 1 ثم يبدأ في عدد التكرارات cc للأسطر التسعة التالية وبناءا علي عدد التكرارات يغير الجملة txt التي ستوضع في سطر التقرير وكذلك نسبة الخصم kh والباقي سهل إن شاء الله الاصناف ونسبة الخصم2.rar

السلام عليكم إضافة إلي الحل الجميل (بالمعادلات) الذي قدمه أخونا الفاضل / احمد النجار للسؤال الأول من المطلوب مرفق حل للسؤالين بالأكواد تفضل المرفق a.rar

الأخ الفاضل والاستاذ العلامة / أبا آدم السلام عليكم ورحمة الله وبركاته أحسن الله اليك ، وجزاك خيراً =================== اللَّهُمَّ رَبَّ النَّاسِ أَذْهِبِ الْبَاسَ, اشْفِهِ وَأَنْتَ الشَّافِي, لا شِفَاءَ إِلا شِفَاؤُكَ, شِفَاءً لا يُغَادِرُ سَقَمًا أسأل الله العظيم رب العرش العظيم أن تشفي أستاذنا الكبير عاجلاً غير آجل.

مرفق الملف وبه شرح الكود لم أضف شيئا غير الشرح من الشرح يمكنك التعديل عليه الملف المطلوب التعديل عليه.rar

هذا الملف لايحتوي علي شيء لامكونات ولا أكواد ولا معادلات ...........؟؟؟؟؟

أنظري المرفق بداية من العمود G ستجدي معادلات قد تفيدك فيما تريدين الوصول إليه الاصناف ونسبة الخصم.rar

السلام عليكم أولا أهلا ومرحبا بك الأخت الكريمة بين إخوانك وأخواتك ثانيا السؤال غير واضح مثلا ، الصنف 101 موجود بالجدول بالتواريخ : 01/06/2014 ، 02/06/2014 ، 08/06/2014 ، 09/06/2014 ، 12/06/2014 وأنت كتبتي "نسبة الخصم ستكون 75% لان المنتج نزل ليوم واحد فقط" هل هذا خطأ أم أنني لم أفهم المطلوب

السلام عليكم أخي العزيز أنت لم تقرأ الشرح في مشاركتي السابقة (بالورقة المسماة CODE بالملف السابق) قلت لك أن "هذه الأكواد الأربعة متماثلة وكلها عبارة عن أمرين 1- وضع رقم الزر في الخلية q1 ثم 2- إستدعاء وتشغيل الكود nn" ============== أي أن الكود "nn" هو محور العملية فهو ببساطة ينقل جميع الشارتات بالورقة الأولي للورقة الثانية (فتختفي ظاهريا) ثم يعيد نقل الشارت المطلوب حسب قيمة الزر المضغوط للورقة الأولي ============ ثم أنك لم توضح ماذا تريد عمله بالزر (5)

إن كنت بدأت كود إكتبه حتي يراه الإخوة معك ويساعدوك وإن كنت تريد الحل بالأكواد ولم تبدأ فيلزمك شرح أكثر ، ماهي المحددات التي لديك لعملية إختيار الخلايا مثلا فكرة الكود ممكن تكون كاالتالي زر-A بالضغط عليه يفتح الصفحة من الحماية زر-B بالضغط عليه يفعٍل حماية الصفحة بنفس الترتيب السابق شرحه مع إلغاء الحماية من الخلايا التي تقف عليها وقت الضغط علي زر-B

أخي العزيز أنظر المرفق باستخدام معادلة الصفيف لفصل محتويات الرقم المعادلة طويلة شوية لكنها مفيدة and-or.rar

السلام عليكم الأخ الكريم / محمد لطفي الفكرة ببساطة كالتالي 1- تظلل (أو تعلم) الخلايا التي تريد التحرك خلالها فقط مع استخدام زر الـ Ctrl لو كانت الخلايا متفرقة 2- ثم كليك يمين الماوس وأنت علي إحدي هذه الخلايا أثناء إختيارها (أنظر الصورة) 3- إختر Format Cells ثم أزل علامة إختيار قفل الخلية Locked 4- إختر قائمة Review ثم Protect Sheet ثم أزل علامة إختيار Select locked cells وممكن تضع كلمة سر أو لاتضع بهذا أنت منعت الإختيار لكل خلايا الشييت إلا ماتم إختياره بالمرفق تجد هذا الذي طلبت وكلمة سر الحماية 11 مع صور توضيحية في شييت الشرح Book10-تحديد نطاق الحركة.rar

السلام عليكم تفضل أخي المرفق لاحظ المطلوب في العمود M باللون الأحمر توزيع الاعداد حسب جدول البيانات.rar

السلام عليكم أخي فراسكو تفضل الملف به طلبك الأخير =================== أخي الفاضل / محمود_الشريف أخي الفاضل / أبو حنين جزاكما الله كل خير علي المرور الكريم والكلمات العطرة TOTAL_Files3.rar

السلام عليكم أخي العزيز في صفحتي "الاسلحة المتوسطة" و"الاساحة الخفيفة ف4ل3" يوجد بالعمود D "الرقم العربي" مما يحرك عمود مكان التواجد من العمود E الذي يتم الفرز علي أساسه لذلك أضفت لك هذا العمود ولو فارغا في صفحة الاسلحة الثقيلة حتي يعمل الكود علي نفس المنهج (ويمكنك إخفاؤه إن كنت لاتريده - لن يتأثر الكود إن مخفيا) وتم تعديل اختيار السرية الرابعة بدلا من سمقر فقط أصبح سمقر أو س4 تم إضافة ورقة أخير للاسلحة المفقودة والمدمرة والعاطله تفضل المرفق بعد التعديلات TOTAL_Files2.rar

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