ابو طيبه

فورم تسجيل والطباعة.xlsm

عيد سعيد وكل عام وانتم بخير ينعاد عليكم بالصحة وسلامة 

السلام عليكم 

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

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

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

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