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

[محمد عبدالسلام]

لسلام عليكم ورحمة الله وبركاته

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

لم يعد يشتغل المشكلة عند تشغيل الملف اول مرة يظهر هدا الخط

 

قرعة(3).xlsm

[حسين مامون]

جرب 

لم يعد يعطي خطأ السبب عندي اسم الورقة

قرعة(3).xlsm

[محمد عبدالسلام]

جزاك الله خيرا اخي حسين مامون

لكن اخي الكود لم يعود يقوم بتنفيذ المطلوب/

هد ملف خاص بتوزيع قرعة يتم اعطاء مبلغ لشخص كل شهر

المطلوب هو في كل شهر يقوم بنسح اسم المستقيد تلقائي من عمود a الى عمود c واضافة تاريخ الاستلام في عمود D

انا كل شهر نقوم بجمع مبلغ اعطيه لشخص

 

تم تعديل ديسمبر 8, 2022 بواسطه محمد عبدالسلام

[حسين مامون]

الكود شغال 100/100 بس فيه شرط  لي هو ينفذ الامر في اليوم 14 في الشهر

انظر الصورة 

لتجربة الكود اكتب رقم 8 عوض 14

[محمد عبدالسلام]

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

[محمد عبدالسلام]

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

تم تعديل ديسمبر 9, 2022 بواسطه محمد عبدالسلام

[حسين مامون]

نعم 

تم التعديل الكود الان يقوم بالغاء اي الوان في الجدول و يلون السطر المعني فقط

[محمد عبدالسلام]

جزاك الله خير الجزاء ونوّر دربك واثابك الجنة

[محمد عبدالسلام]

اخي هل توجد طريقه لتنفيذ الشرط

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

تم تعديل ديسمبر 11, 2022 بواسطه محمد عبدالسلام

[حسونة حسين]

بعد اذن الأستاذ حسين

عدل هذا السطر 

If format(x,"dd")= 14 then
الى
If format(x,"dd")>= 14 then

 

[محمد عبدالسلام]

جزاك الله خير الجزاء لكن المشكله يتم تحديث التاريخ كلما فتحت الملف تاريخ اليومي  انا اريدان يقوم بتنفيذ الشرط يوم 10 في الشهر حتى وان لم تقم بفتح الملف حتى يوم 15 او 14 يقوم بتنفيذ الشرط 10 في الشهر ويبقى ثابت في حتى الشهر الاخر

 

تم تعديل ديسمبر 12, 2022 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

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

[حسين مامون]

ربما 

 

قرعة(3).xlsm

[محمد عبدالسلام]

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