ابو مارفن

شكرا جزيلا لجهودك الرائع استاذ ابراهيم العزيز الله يجعلها في ميزان حسناتك تحياتي

شكرا جزيلا لجهودك استاذ ابراهيم العزيز الله يجعلها في ميزان حسناتك تحياتي لحضرتك استاذ العزيز كيف يمكن اضافة باسورد قبل تنفيذ الحذف وليكن ١٢٣

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

شكرا جزيلا استاذ ابراهيم العزيز وبارك الله فيك وبجهودك هل يوجد كود يقوم بحذف الصور المدرجه في كل الصفحات تحياتي لحضرتك

السلام عليكم اساتذتنا الكرام هل يمكن اضافة صوره معينه من الدرايف D وليكن اسمها (عنوان) الى كل صفحات الملف مع جزيل الشكر والامتنان لجهودكم جميعا كود لإدراج صوره في كل الصفحات.xlsm

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

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

السلام عليكم تعديل على كود التسجيل لكي لا يتم ادراج ابتدائي في حاله عدم اختيارها وتعديل كود الطباعه لكي يستثني اوراق من الطباعه الاكواد للاستاذ سليم والاستاذ حسونه مع جزيل الشكر والامتنان فورم تسجيل والطباعة.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

للرفع كيف يمكن دمج الكود اعلاه مع كود الملف لتنفيذ المطلوب مع جزيل الشكر والامتنان File .xlsm

مشكور استاذ محمد كيف يمكن دمج الكود مع اكواد الملف وبارك الله بيك

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

هل يمكن التعديلعلى ملف الذي ارسلته حيث اذا اخترنا yes او + او اكثر في خليه واحده او اكثر يتم ضهور positive ويتم تنشيط f12 وعند تغيير قيمه الخلايا ولم يبقى اي خليه تحتوي على yes او + او اكثر فان قيمه الخليه c10 تتحول الى negative او عند اختيار اي شيء من القائمة المنسدلة في اي خليه من الخلايا يتم تنشيط الخلية التي اسفلها مع جزيل الشكر File.xlsm

استاذ سليم العزيز لم يتغير شيئ في الملف وبطى عند الاختيار من القائمة المنسدلة . محتوى الخليه c10 من Negative الى Positive لم يتغير ولا يتم تنشيط f12 عند وجود yes او + او ++ او+++ في خلايا من e12 ال e16 تحياتي لحضرتك

السلام عليكم قمت بالتعديل على الملف اضافة لكود حد الصفحة عند اختيار اول مره ( yes او + او ++ او +++ ) من القائمة المنسدلة في أي خلية من الخلايا من E9 الى E16 فان خلية C10 تساوي Positive ويتم تنشيط الخلية F12 واذا لم تحتوي على ( yes او + او ++ او +++ ) فان خلية C10 تساوي Negative دون تنشيط اي خلية Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C As Range, b As Boolean For Each C In Range("E9:E16") If InStr(C.Value, "+") Then Range("C10").Value = "Positive": b = True: Exit For End If Next If b Then Exit Sub Else Range("C10").Value = "Negative" End Sub الملف.xlsm

استاذ سليم العزيز هل يمكن وضع الكتابات بنفس المكان دون دمج الخلايا

السلام عليكم استذتنا الاكارم محتاج تعديل كود حد الصفحة عند اختيار اول مره ( YES او + او ++ او +++ ) من القائمة المنسدلة في أي خلية من الخلايا من O9 الى O16 فان خلية G10 تساوي Positive ويتم تنشيط الخلية T12 واذا لم تحتوي على ( YES او + او ++ او +++ ) فان خلية G10 تساوي Negative مع جزيل الشكر Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C As Range, b As Boolean For Each C In Range("O9:S16") If InStr(C.Value, "+") Then Range("G10").Value = "Positive": b = True: Exit For End If Next If b Then Exit Sub Else Range("G10").Value = "Negative" End Sub الملف.xlsm

شكرا جزيلا لك استاذ العزيز علي المحترم الكود يعمل بشكل ممتاز الله يحفظك ويبارك بيك وبجهودك ويجعلهافي ميزان حسناتك

السلام عليكم استاذتنا الاعزاء محتاج اضافه للكود الملف ليطبق على كل صفحات الملف باستثناء صفحتين٤ و٥ بإخفاء الصفوف بداية من الصف 10 الى الصف 15 مع جزيلا الشكر كود لإخفاء الصفوف واظهارها.xls

مشكور استاذ العزيز عبدالفتاح قمت في التغيير في الكود في حال وجود صفحات كثير بنفس النمط لطباعة الورقة النشطة فقط هذا السطر Sheets("موازنة 2020").PrintOut الى ActiveSheet.PrintOut تحياتي لحضرتك والله يجعلها في ميزان حسناتك

السلام عليكم محتاج اضافة لكود الطباعة لكي يقوم بطباعة محتويات الصفوف الثلاثة الأولى في حالة اخفائها كماهو في المرفق مع جزيل الشكر مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى ملفي.xlsm

الف الف مبروووك الترقيه وبالتوفيق ان شاء الله

اسف جدآ عل ازعاج استاذ جربت الملف على حاسبه اخرى وظهر الى جهه اليسار كما اوضحت حظرتك (وهو المطلوب)ولاكن نفس الملف على حاسبه اخرى يظهر الى جهه اليمين شنو السبب مع العلم لم تظهر عندي خصائص اليست بوك نفس الصورة التي رفعتها لي ما هو السبب .وان شريط التمرير لم يتحرك بزر الماوس الاوسط( الاسطوانة ) علما اني استخدم اوفس ٢٠٠٧ على الحاسبتين. تحياتي لك

السلام عليكم كيف يمكن تغيير مكان شريط التمرير اليست بوك من اليمين إلى اليسار وكيف يمكن الذهاب الى اسفل القائمه عن طريق زر الماوس الاوسط مع جزيل الشكر الملف.xlsm