اريد كود لاظهار انتهاء صلاحية التواريخ

[وليد المصرى 1]

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

ارجو المساعدة من اخواتى واحبائى فى الملف المرفق

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

Book1.rar

[وليد المصرى 1]

ارجو الحل للضرورة

اشكركم

[أبو أنس حاجب]

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

أخي الفاضل حفظكم الله

المرفق كنت قد حملته من المنتدى سابقاً بحثت عنه كي أحولك عليه ولكني وأجهت صعوبة في ذلك فأضطررت تحميله مجدداً من مكتبتي لعله يساعدك في عملك مؤقتاً حتى يتسنى لأهل الكرم والجود المساعدة أذا لم يحقق لك هذا الغرض أو يدلك على الطريق.

المرفق:

تتبع انتهاء الصلاحية.rar

والله من وراء القصد.

أبو أنس

[وليد المصرى 1]

صباح الخير اخى ابو انس

اشكرك يا اخى على هذا المجهود ولكن هناك بعد الملاحظات اذا امكن ان تعدلها لى المرفق يوضع ما المطلوب

جزاك الله خير

تتبع انتهاء الصلاحية.rar

[أبو أنس حاجب]

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

أخي الفاضل حفظكم الله

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

أرجو أن يكون المطلوب وحاول الرفع دائماً حتى تنال المبتغى من الخبراء.

=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 ثم أسحب إلى الأسفل.

أبو أنس

[وليد المصرى 1]

اشكرك اخى على تعبك معى وانتظر الاخوة الاعضاء ان يعطونى الحل

وهذا هو المرفق الذى اريد المطلوب فيه

تتبع انتهاء الصلاحية.rar

[أبو حنــــين]

عملت على الملف في مشاركتك الاولى

تغيير التاريخ.rar

[وليد المصرى 1]

اشكرك اخى الفاضل ولكن الملف لا يعمل معى

اذا امكن يا اخى

اشكرك

[وليد المصرى 1]

اذا امكن من الاخوة الاعضاء وخبراء الاكسيل حل هذا الملف المطلوب داخل الملف

Jتتبع انتهاء الصلاحية.rar

[أبو أنس حاجب]

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

أخي الفاضل حفظكم الله

حاولت المساعدة على قدر إستطاعتي بكود من المنتدى وافقته مع أحتياجك فيما يخص التخلص من التنسيق الشرطي في العمود 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

غير الزمن في الكود حسب أحتياجك

في رعاية الله.

أبو أنس

[احمد فضيله]

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

بعد اذن كل الاخوه الافاضل

الاستاذ الفاضل goodlife

يمكنك متابعة الحل على الرابط التالي

http://www.officena.net/ib/index.php?showtopic=36107

و ارجو من الله ان يكون هو ما تريده

والله المستعان

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

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أحمد فضيله حفظكم الله

كل الشكر والتقدير الأحترام لشخصكم النبيل.

وجزاكم الله كل خير وكل من ساهم معكم في أنجاز هذا المشروع.

جعله الله في موازين أعمالكم الصالحة في الدنيا ويوم يقوم الأشهاد.

أبو أنس

[وليد المصرى 1]

جزاكم الله الف خير اخوانى الافاضل

[احمد فضيله]

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

أستاذي وسيدي الفاضل أحمد فضيله حفظكم الله

كل الشكر والتقدير الأحترام لشخصكم النبيل.

وجزاكم الله كل خير وكل من ساهم معكم في أنجاز هذا المشروع.

جعله الله في موازين أعمالكم الصالحة في الدنيا ويوم يقوم الأشهاد.

أبو أنس

اخي الحبيب / ابو انس

بارك الله فيك يا اخي

جزاني الله و اياك كل خير

[احمد فضيله]

جزاكم الله الف خير اخوانى الافاضل

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