يوسف عطا

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

اشكرك يا استلذ حسونة جارى تجربة الحل المذكور لكن ما سبب المشكلة وكيف يكون حلها بهذه البساطة

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

الف شكر MN 20 جارى التجربة

السلام عليكم أعضاء المنتدى الكرام كل عام و انتم بخير و اتمنى تكون السنة الجديدة 2023 سنة خير و بركة و سعادة على الجميع لدى ملف اكسيل به ما يزيد عن 100 شيت و كل شيت به عدد مختلف من الصفحات المطلوب كود لطباعة الصفحة الأولى فقط من كل شيت داخل الملف و ياريت الكود يكون مرتبط بزر عند الضغط عليه تتم طباعة الصفحات الأولى فقط من كل شيت بالملف

اشكرك لإهتمامك يا أستاذ سمير فعلاً المعادلة اشتغلت و جميلة و سهلة ربنا يجعلها فى موازين حسناتك

فى الملف المرفق عمود المصروفات و عمود الإيرادات فى عمود الإيرادات توجد خلية تدل على عجز الفترة المطلوب معادلة جمع عمود الإيرادات تتجنب جمع الرقم الخاص بعجز الفترة مع العلم ان الخلية دى ممكن تتغير داخل نفس العمود جمع.xls

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

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

Sub حذف() Range("A6:B220").Select Selection.Delete Range("C1").Formula = "=COUNTA(B6:B220)" End Sub

الله ينور عليك بس عملت تعديل بسيط كالتالى و الحمدلله أدى الغرض

ممكن نسخة على اوفيس 2003 ؟؟

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

كود الحذف التالى يعمل جيداً Sub حذف() Range("A6:B220").Select Selection.Delete End Sub عاوز أضيف عليه انه يحط المعادلة دى (COUNTA(B6:B220 فى الخلية C1 الكود بعد التعديل هيبقى مكتوب ازاى ؟؟

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

Sub 1() Application.ScreenUpdating = False ActiveSheet.Unprotect Columns("A:E").Select Selection.EntireColumn.Hidden = False Columns("AD:AF").Select Selection.EntireColumn.Hidden = True Columns("P:AB").Select Selection.EntireColumn.Hidden = False Columns("AJ:AR").Select Selection.EntireColumn.Hidden = True Range("A10:A12").Select Application.ScreenUpdating = True ActiveSheet.Protect End Sub

أطل العيد مبتسما فسال الحب رقراقا و ذكرني مودتكم فصار الشوق أشواقا أدام الله عيدكم مسرات و أفراحا و زاد حياتكم أنسا و أيمانا و إشراقا ✨🌺🌺🌺🌺🌺✨ ✨🌺🍃🍃🍃🌺✨ ✨🌺كُـْـٍلّ عـٍـّـْـٌـُام🌺✨ ✨🌺🍃🍃🍃🌺✨ ✨🌺وَأنْـٍتَـٍـٌـْـٌـٓـٰـّــًم🌺✨ ✨🌺🍃🍃🍃🌺✨ ✨🌺بٍـٌـُـْـخَيْـٌـّــَـٌـْر🌺✨ ✨🌺🍃🍃🍃🌺✨ ✨🌺🌺🌺🌺🌺✨

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

للرفع رفع الله قدركم مطلوب كود يوضع فى حدث ملف الإكسيل يقوم بتخفيض مستوى الأمان تلقائياً مع فتح الملف

أستاذى الغالى مش مطلوب من المعادلة أو الكود أنها تنسق المطلوب إنها لما تلاقى خلية مظللة أو فيها دايرة أنها تكتب فى الخلية اللى فيها المعادلة كلمة أو رقم موجود فعليا فى صف راس الجدول مثلاً بإستخدام معادلة إف مكتوبة فى الخلية دى 1 إذا كانت الخلية أيه 1 مظللة أو فيها دائرة إكتب راسب و إن ماكانش أترك الخلية فارغة و لك الف تحية

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

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

تفضل يا أستاذنا الملف المرفق فيه خلايا مظللة المطلوب إنه يكتب الأرقام فى الخلايا المقابلة لها بالجدول تلقائيا وبمجرد تظليل خلية جديدة فى العمود على اليمين يكتب الرقم او الكلمة المطلوبة فى الخلية المقابلة للخلية المظللة فى الجزء على اليسار كتابة تلقائية.xls

للرفع رفع الله قدركم

السلام عليكم هل ممكن وضع معادلة لوضع كلمة معينة تلقائياً فى خلية إذا كانت خلية أخرى بها تظليل أو دائرة ؟؟