حسونة حسين

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

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

شغل الملف الذي ارفقته لك وافني بالنتيجه هل يوجد خطأ

وعليكم السلام ورحمه الله وبركاته اخى @sief122 لابد من وجود فولدر بهذا الاسم \DAHY\ بجوار ملفك هذا ولابد ان يكون بهذا الفولدر ايضا صورة تسمى M.JPG وهذا ملف للتاكيد لم يتم تغيير اي كود في الملف KG V2B_Dahy.zip

وعليكم السلام ورحمه الله وبركاته تفضل اخي Prodaction2.xlsm

جرب هذا اخي متابعة7.xlsm

تفضل اخي جرب هذا التعديل متابعة6.xlsm

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل

وعليكم السلام ورحمة الله وبركاته اجعل المعادله كالتالي =IF(C5="";"";+DAYS360(C5;E5))

المشكله عندك في تنسيق الاعمده الخاصه بالتواريخ موجوده mm/dd/yyyy اجعلها التنسيق الذي تريد عن طريق Format cells dd/mm/yyyy

اخي @محمود الطحاوي وارد هيئه ١ أبريل ولا ٤ يناير بدايه النشاط تاريخ ٥ أبريل ولا ٤ مايو وارد متابعه ٦ مايو ولا ٥ يونيو

اخي @محمود الطحاوي ارفق صورة للفورم بعد أن تقوم بكتابه جميع بيانات الفورم

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل المصنف1.xlsm

الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمه الله وبركاته For Each w In ThisWorkbook.Worksheets If w.Name <> "ورقة7" And w.Name <> "ورقة8" Then co1.AddItem w.Name End If Next w

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

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

تفضل ملف متابعة.xlsm

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل ضع هذا الكود في حدث الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Row > 3 Then If X.Column = 2 Then If X.Value = "ok" Then X.Offset(0, -1).Value = Date ElseIf X.Column = 3 Then If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X End If End If Next X Application.EnableEvents = True End Sub

الشكر لله اخى

السلام عليكم ورحمه الله وبركاته تفضل أفريل.xlsx

وعليكم السلام ورحمه الله وبركاته تفضل 2017-Final.xlsb

وعليكم السلام ورحمة الله وبركاته اخي @الأستاذ سيد الأكرت الملفات المرفقه ليست ملفات اكسيل او انها تم تشفيرها والله اعلم اخي @aaaaaauto @محمد الشابورى الملف الذي ارفقته باسم test.xlsx في هذه المشاركه ليس به مشكله وهو ملف سليم فقط قم بتغيير امتداد الملف الي xlsm

نعم اخي ان شاء الله