ابو طيبه

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

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

السلام عليكم هل يمكن عمل مايكرو وربطه بالزر المدرج في الملف لتغيير لون خط خلية معينة من الاحمر الى الاخضر وبالعكس عند الضغط على الزر مره اخرى. مع جزيل الشكر نموذج.xlsx

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

السلام عليكم تعديل على المعادلة الموجودة في العمود A في حال وجود كلمة( المجموع او المدور ) في الخلية المقابله في العمود B فان الخلية A تبقى فارغة بدون ترقيم وبعد ذالك يكمل الترقيم وهكذا مع جزيل الشكر للجميع كما في المرفق =IF($A$1<>"";MAX($A$1:A1)+1;"") ترقيم تلقائي بشرط بالمعادلات.xlsx

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

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

السلام عليكم ممكن اعرف شنو سبب الخطآ علما ان الكود يعمل بشكل طبيعي عند ربط المايكرو بالشكل المدرج على الشيت. اما عند ربط الكود على الفورم فيظهر هذا الخطأ كما في الصورتين مع جزيل الشكر