ابو طيبه

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

السلام عليكم 
الحمدلله تمت الاجابة على المطلوب من قبل الاستاذ ياسر العزير مشكوره جهوده من خلال هذا الكود
 
Private Sub Worksheet_Change(ByVal Target As Range)     If Not Intersect(Target, Range("D8")) Is Nothing Then         Range("E9:E10").Value = "100"         Range("E11:E12").ClearContents         Range("E13:E14").Value = "yes"         Range("E15:E16").ClearContents     ElseIf Not Intersect(Target, Range("E9:E12")) Is Nothing Then         Target.Offset(1).Select     End If End Sub

الحمد لله تم تنفيذ المطلوب من قبل الاستاذ ياسر المحترم مشكوره جهوه من خلال هذا الكود
 
>Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)     ActiveSheet.Range("D5") = Sheets("قائمة").Range("F1").Value >End Sub

اخي جرب المرفق مع امكانية التعديل علية اسم الدالة tafket
no to text.rar

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

هذه ملف لشرح الطباعه
معاينة الطباعه.xlsm

يمكنك اجراء البحث في المنتدى وستجد مواضيع كثيره للاساتذة بهاذا الخصوص 
تحياتي لك

شكرا استاذ العزيز عمر الحسيني على هذا الابداع الفريد بصراحه انت مبدع بكل معنى الكلمة ولا تمل من الاسىله والاستفسارات
واسف جدا من كثرة اسئلتي لك
تستحق كل الاحترام والتقدير الله يحفظك ويبارك بيك