وليد المصرى 1 قام بنشر نوفمبر 14, 2012 مشاركة قام بنشر نوفمبر 14, 2012 السلام عليكم ورحمة الله وبركاتة ارجو المساعدة من اخواتى واحبائى فى الملف المرفق اريد كود لاظهار انتهاء صلاحية التواريخ يكون فى فورم او شيت جديد به الاسماء وتواريخ الصلاحية قبل الانتهاء بأسبوع Book1.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 14, 2012 الكاتب مشاركة قام بنشر نوفمبر 14, 2012 ارجو الحل للضرورة اشكركم رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 15, 2012 مشاركة قام بنشر نوفمبر 15, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله المرفق كنت قد حملته من المنتدى سابقاً بحثت عنه كي أحولك عليه ولكني وأجهت صعوبة في ذلك فأضطررت تحميله مجدداً من مكتبتي لعله يساعدك في عملك مؤقتاً حتى يتسنى لأهل الكرم والجود المساعدة أذا لم يحقق لك هذا الغرض أو يدلك على الطريق. المرفق: تتبع انتهاء الصلاحية.rar والله من وراء القصد. أبو أنس رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 15, 2012 الكاتب مشاركة قام بنشر نوفمبر 15, 2012 صباح الخير اخى ابو انس اشكرك يا اخى على هذا المجهود ولكن هناك بعد الملاحظات اذا امكن ان تعدلها لى المرفق يوضع ما المطلوب جزاك الله خير تتبع انتهاء الصلاحية.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 15, 2012 مشاركة قام بنشر نوفمبر 15, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله غيرت المعادلة على حسب فهمي ومقدرتي لان الملف لا يخصني كما أسلفت وهو مرتبط بأكواد ربما تتأثر بأي تغيير لأني لم أدرس الملف بعد لعدم وجود الوقت ولقلة الخبرة في الفيجوال. أرجو أن يكون المطلوب وحاول الرفع دائماً حتى تنال المبتغى من الخبراء. =IF(-ROUND((E5-NOW())+1,0)=0,"إنتهت الإقامة اليوم",IF(-ROUND((E5-NOW())+1,0)>365,"",IF(E5<>"",IF(E5>NOW()+H2,"باقي على إنتهاء الإقامة "&(ROUND((E5-NOW())+1,0))&" يوم","إنتهت الأقامة قبل "&(-ROUND((E5-NOW())+1,0))&" يوم"),""))) ضعها في الخلية E5 ثم أسحب إلى الأسفل. أبو أنس رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 15, 2012 الكاتب مشاركة قام بنشر نوفمبر 15, 2012 اشكرك اخى على تعبك معى وانتظر الاخوة الاعضاء ان يعطونى الحل وهذا هو المرفق الذى اريد المطلوب فيه تتبع انتهاء الصلاحية.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 15, 2012 مشاركة قام بنشر نوفمبر 15, 2012 عملت على الملف في مشاركتك الاولى تغيير التاريخ.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 17, 2012 الكاتب مشاركة قام بنشر نوفمبر 17, 2012 اشكرك اخى الفاضل ولكن الملف لا يعمل معى اذا امكن يا اخى اشكرك رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 17, 2012 الكاتب مشاركة قام بنشر نوفمبر 17, 2012 اذا امكن من الاخوة الاعضاء وخبراء الاكسيل حل هذا الملف المطلوب داخل الملف Jتتبع انتهاء الصلاحية.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 18, 2012 مشاركة قام بنشر نوفمبر 18, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله حاولت المساعدة على قدر إستطاعتي بكود من المنتدى وافقته مع أحتياجك فيما يخص التخلص من التنسيق الشرطي في العمود H والعمل بالكود. أرجو أضافة هذا الكود في حدث الورقة وجربه وذلك بعد أن تحذف جميع شروط التنسيق الشرطي وتخبرني بالنيجة جربته ومشى الحال معي. Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range ' Set Rng = Range("H5:H500") Application.ScreenUpdating = False If Intersect(Target, Rng) Is Nothing Then Target.Interior.ColorIndex = 0 Else Application.ScreenUpdating = False Target.Font.Bold = True If Target.Value < Date Then Target.Interior.ColorIndex = 46 If Target.Value < Date Then Target.Font.Bold = True If Target.Value > Date - 60 Then Target.Interior.ColorIndex = 43 If Target.Value > Date - 60 Then Target.Font.Bold = True If Target.Value > Date + 61 Then Target.Interior.ColorIndex = 50 If Target.Value > Date + 61 Then Target.Font.Bold = True If Target.Value = Date Then Target.Interior.ColorIndex = 44 If Target.Value = Date Then Target.Font.Bold = True If Target.Value = "" Then Target.Interior.ColorIndex = 0 If Target.Value = "" Then Target.Font.Bold = False End If End Sub غير الزمن في الكود حسب أحتياجك في رعاية الله. أبو أنس رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر نوفمبر 18, 2012 مشاركة قام بنشر نوفمبر 18, 2012 السلام عليكم و رحمة الله و بركاته بعد اذن كل الاخوه الافاضل الاستاذ الفاضل goodlife يمكنك متابعة الحل على الرابط التالي http://www.officena.net/ib/index.php?showtopic=36107 و ارجو من الله ان يكون هو ما تريده والله المستعان و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 18, 2012 مشاركة قام بنشر نوفمبر 18, 2012 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أحمد فضيله حفظكم الله كل الشكر والتقدير الأحترام لشخصكم النبيل. وجزاكم الله كل خير وكل من ساهم معكم في أنجاز هذا المشروع. جعله الله في موازين أعمالكم الصالحة في الدنيا ويوم يقوم الأشهاد. أبو أنس رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر نوفمبر 20, 2012 الكاتب مشاركة قام بنشر نوفمبر 20, 2012 جزاكم الله الف خير اخوانى الافاضل رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 7, 2013 مشاركة قام بنشر يناير 7, 2013 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أحمد فضيله حفظكم الله كل الشكر والتقدير الأحترام لشخصكم النبيل. وجزاكم الله كل خير وكل من ساهم معكم في أنجاز هذا المشروع. جعله الله في موازين أعمالكم الصالحة في الدنيا ويوم يقوم الأشهاد. أبو أنس اخي الحبيب / ابو انس بارك الله فيك يا اخي جزاني الله و اياك كل خير رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 7, 2013 مشاركة قام بنشر يناير 7, 2013 جزاكم الله الف خير اخوانى الافاضل جزاني الله و اياكم وكافة المسلمين كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.