عبدالله المجرب

السلام عليكم اهلاً وسهلاً بك اخي الفاضل ضع مرفق ليتم العمل عليه

اذاً ينقل الموضوع الى قسم الوورد

اخي الفاضل قمت بالتعديل على الملف الذي في الرابط المرفق ان شاء الله يناسبك (لو فتح الملف 50 مرة ) بعدها سيتم اغلاقه ولا يقبل الفتح عدد مرات فتح الملف1.rar

وضح أكثر أخي ايهاب

هل تقصد ان يتم إغلاق الملف اذا وصل عدد مرات الفتح 50

السلام عليكم رجع هذا الرابط (مع اضافة الشرط عند الوصول الى العد المحدد)

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

الله اعلم هل تم حذفه ام لا ولكن الملف كان موجود وانا حملته وموجود لدي واسمه مكافأة إمتحانات نهاية العام للساده العاملين بالتربية والتعليم - سعيد عامر بيرم بانتظار رد الاخ سعيد بيرم!!!!!

السلام عليكم المشكلة ليست في ارفاق الملف بصيغة 2003 ولكن المشكلة انه تم استعمال معادلات موجودة في 2007 ولا توجد في 2003 اي ان النتيجة ستكون خطاء في الدالة في مرفق 2003 والله اعلم

اخجلتمونا بردكم يا ابا عبدالرحمن شكراً لك

السلام عليكم اخي الفاضل edkawy تم عمل اللازم في ملفك المرفق الاخوة للمواد الغذائية.rar

اسف اخي ذيب اليمن لاني لم اقم بتغيير التاريخ اثنا التجربة والخطاء الذي يقع في الكود هو بسبب خلو اخر خلية من تاريخ لان الشهر 30 يوم ولتجاوز خذا الخطاء ستجد هذا السطر في الكود If Cells(i + 12, 7).Value = "" Then GoTo 1 استبدله بهذا If Cells(i + 12, 7).Value = "" Or Cells(i + 12, 7).Offset(0, -5) = "" Then GoTo 1

اخي ابو وائل شكراً لمرورك وتشجيعك وهذا رد معروف لما تعلمناه من هذا المنتدى

تم تثبيت الموضوع لعموم الفائدة

اللهم آمين شكراً اخي الكريم والحمدلله ان توصلت الى مبتاغاك

شكراً جزيلاً اخي جمال على هذا الرد الحلو

السلام عليكم ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة بصراحة هداياك قيمة شكراً لك

السلام عليكم اعذرني اخي ذيب اليمن (اتمنى معرفة اسمك الحقيقي) لم احاول بالامس وعندما وجدت ردك قمت بإضافة هذا الشرط للكود Weekday(Cells(i + 12, 7).Offset(0, -5)) = 6 والحمدلله كانت النتيجة ممتازة book (2).zip

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

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

بحيلة بسيطة تم التغلب على مشكلة الارقام الكبيرة شاهد المرفق تسلسل.rar

السلام عليكم اولاً اعتقد الفورم من اعداد الاستاذ خبور خير والله اعلم === ثانياً وعلى حسب فهمي للمطلوب في كود الفورم ستجد هذا السطر مكرر مرتين Set MySh = Sheets("ورقة1") استبدلهما بهذا Set MySh = ActiveSheet وان شاء الله يتم البحث في الورقة النشطة

السلام عليكم كلنا نشكر العميد دغيدي على اعماله التي يقدمها وهذا نفس الناتج بس بالاكواد يوضع الكود في حدث التغيير في ورقة العمل والتاريخ في خلايا العمود A Private Sub Worksheet_Change(ByVal Target As Range) Set xx = Application.WorksheetFunction a = Target.Value If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a2:a100")) Is Nothing Then Target.Offset(0, 1) = xx.Text(DateSerial(Year(a), Month(a), 1), "dddd") Target.Offset(0, 2) = xx.Text(DateSerial(Year(a), Month(a) + 1, 1) - 1, "dddd") End If Set xx = Nothing End Sub

تم نقل الموضوع الى المنتدى المفتوح وحذف الموضوع الجديد المشابه والله الموفق

جرب المرفق ELFAR2.rar