ياسر خليل أبو البراء

وهذا ملف آخر في حدث الورقة قم بتغيير القيم في العمود I من أول I6:I14 لتحصل على مرادك Goal Seek WorkSheet Change.rar

وهذا ملف آخر ربما يلبي طلبك Goal Seek Range.rar

عموما تفضل هذا الملف المرفق فيه التعامل مع هذه الخلية فقط .. إذا أردت التعامل مع أكثر من صف يمكنك إرفاق ملف آخر للعمل عليه Good Day.rar

حسنا وما هي الإجابة ؟أم أنك ستحتفظ بها لنفسك؟

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

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

ولا حرمنا الله منك أبو نواف ..بارك الله فيك مش عايزنها تبقا مرة وتعدي ، ومتفوتش علينا تاني عايزينك معانا

بارك الله فيك أخي وحبيبي حسام ايه التألق ده يا كبير الكود ناقص شوية بهارات .. اللمسة الأخيرة .. Private Sub Worksheet_Activate() xx: Dim x x = InputBox("الوصول لهذه الصفحة يتطلب كلمة مرور" & Chr(13) & "الرجاء ادخال كلمة المرور", "كلمة مرور") If IsNull(x) Or x = "" Then GoTo xx If x = "123" Then MsgBox "دخول ناجح" Else MsgBox "كلمة مرور غير صحيحة" & Chr(13) & " سوف يتم نقلك للصفحةالرئيسية ", vbOKOnly 'اللمسة الأخيرة Sheets("Sheet1").Activate End If End Sub

يا ابن مصر قلنا قبل كدا (كل السبل تؤدي إلى أوفيسنا ، ولكن أوفيسنا تأبه لكل أحد) أظنك فاهمني يا ابن بلدي بارك الله فيك على ملفك الرائع ..أنت دائما السهل الممتنع .. أيها المدهش (سألقبك بهذا اللقب إذا سمحت لي) تقبل تحياتي أيها المدهش

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

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

تنور المنتدى أبو نواف تفضل الملف المرفق Hide Unhide YK.rar

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

بسم الله ما شاء الله عليك أخي عبد الله .. خلي الجماعة يرقوك النهاردة عشان أنا عيني واسعة حتى شوووووف بارك الله فيك وجزاك الله خيرا الجزاء حل في منتهى الروعة .. هي السماء بدأت تقطر عباقرة - أشكرك وأحمدك يا رب - ظهر فجأة في الآونة الأخيرة مجموعة رائعة مدهشة .. أين كانوا قبل ذلك ؟ لست أدري !! المهم أن نجمهم قد بدأ يلمع في سماء المنتدى بارك الله فيكم إخواني الكرام ونفع بكم الإسلام والمسلمين

تفضل أخي الحبيب صلاح الكبير Count Distinct Final.rar

بارك الله فيك اخي الغالي محمود الشريف ولا حرمنا الله من إبداعاتك التي لا تنقطع

جيت متأخر ..كالعادة المهم الحمد لله اتحلت المشكلة البسيطة .. دا دليل إنك مش متابع جيد للحلقات أستاذ أبو محمد عباس آخر حلقة شرحنا فيها النقطة دي .. المهم الحمد لله إنك وصلت للحل تقبل تحياتي

دائما وأبدا سهل ممتنع رائع ومدهش مذهل ومبدع تسلم يا ابن مصر ..

بارك الله فيك أخي الحبيب سليم أنا عندي ليك هدية بمناسبة هديتك بس في الليل عشان النت في البيت ضعيف جداً

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

تسلم الأيادي يا مستر جمال ..بصراحة معادلة روعة بارك الله فيك وجعلك نفعاً للإسلام والمسلمين

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

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

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

بارك الله فيك أخي محمد وجزاكم الله خير الجزاء