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

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

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

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

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

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

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

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

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

لسلام عليكم ورحمة الله وبركاته هذا الكود خاص بي الأستاذ حسين مامون الكود في كل شهر يقوم بإضافة الاسم وتاريخ لم يعد يشتغل المشكلة عند تشغيل الملف اول مرة يظهر هدا الخط قرعة(3).xlsm

بارك الله فيك اخي الفاضل جزاك الله خيرا

السلام عليكم ورحمة الله اسلاتذتي الاعزاء بعد التحيه الرجاء المساعده في اظهار البيانات في الليست بوكس رقم الفاتورة تاريخ اسم العميل من عمود B الا عمود D الباينات في شيت Data المرجو المساعده في اظهار بيانات ثلاثه اعمده في يوزر فورم ليست بوكس من عمود B الى عمود D وجزاكم الله خيرا ترحيل(3).xlsm

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

المرجو مساعده في كود استدعاء الفاتورة العامل عندكتابه رقم الفاتوره في الخانة G3 او اسم العامل في الخانة E5 يتم جلب بيانات الفاتوره العامل من شيت الترحيل الفواتير .. لقد قمت بعده محاولات في تعديل الكود ولم انجح Sub استدعاء() lr1 = Sheets("invoice").Cells(Rows.Count, 4).End(xlUp).Row lr2 = Sheets("invoice").Cells(Rows.Count, 4).End(xlUp).Row For n = 1 To lr1 - 9 Sheets("invoice").Range("a" & n + lr2) = Sheets("ترحيل الفواتير").Range("g3") Sheets("invoice").Range("b" & n + lr2) = Sheets("ترحيل الفواتير").Range("e3") Sheets("invoice").Range("c" & n + lr2) = Sheets("ترحيل الفواتير").Range("e5") For r = 4 To 9 Sheets("ترحيل الفواتير").Cells(n + lr2, r) = Sheets("invoice").Cells(n + 9, r - 1) Next r Next n Sheets("invoice").Range("e5").ClearContents Sheets("invoice").Range("d10:d" & lr1).ClearContents Sheets("invoice").Range("f10:f" & lr1).ClearContents Sheets("invoice").Range("g3") = Sheets("invoice").Range("g3") + 1 Sheets("invoice").Range("e5").Select MsgBox "استدعاء" End Sub ترحيل(1)(2).xlsm

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

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