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

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

وعليكم السلام ورحمة الله وبركاته هل الموضوع مكرر ؟؟؟؟!! قم بإرفاق ملفك ويرجى عدم تكرار الموضوعات لنفس الطلب

وعليكم السلام (تحية الإسلام) يرجى تغيير اسم الظهور للغة العربية ، وهذا ليس أول رجاء ونداء كما يرجى وضع عناوين مناسبة للطلب .. جرب الدالة recherchev والتي تساوي Vlookup ...

اضغط Alt + F9 من لوحة المفاتيح أو قم بعمل نقر مزدوج داخل أي خلية بها المعادلة لتحديث النتائج

يرجى الالتزام بالتوجيهات وعدم إرسال رسائل على الخاص (راجع موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى) إذا كان الملف مهم وبه بيانات حساسة ، قم بأخذ نسخة من الملف وتغيير البياانات الهامة والحساسة بالملف وإرفاقه بالموضوع .. وذلك لرفع الحرج عن الأخوة الذين يرسل إليهم رسائل خاصة

ممكن ترفق الملف الأصلي الذي يحتوي المعادلات التي لديك .. لإلقاء نظرة على الملف .. حسب ما فهمت ويا ريت تأكد فهمي أنك تقوم بترحيل البيانات بين تاريخين في الخلايا W2 و W3 ، وطبقاً للخلية U3 فقط ، فهل هناك شروط أخرى ؟ لما لا تستخدم الفلترة بدلاً من الحلقات التكرارية .. من فضلك وضح الشروط المطلوبة للترحيل أولاً وبعدها إن شاء الله نحل مشكلة الخلايا الخضراء

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

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

وعليكم السلام أخي الكريم بدون حلقات تكرارية يمكن تنفيذ المطلوب بسطر واحد فقط Sub Test() Sheet2.Range("B4").Resize(1, 12).Value = Sheet1.Range("B4").Resize(1, 12).Value End Sub إذا لم يؤدي الغرض يرجى توضيح الطلب بشكل تفصيلي

أخي الكريم أهلاً بك في المنتدى قم بإرفاق ملفك .. ويرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

جرب الملف المرفق كشف المراقبة 1.rar

وعليكم السلام أخي الكريم وليد ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("E2:H7")) Is Nothing Then If Target.Value = Target.Offset(, -4).Value Then Target.Offset(, -4).ClearContents End If End Sub بالنسبة لطلبك الثاني الخاص بنسبة الإنجاز لم توضح كيفية وآلية حساب النسبة؟

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

ارفق ملفك .. لا يوجد دالة لا تعمل على ما أعتقد مع 2003 !!!.. ما الذي يحدث معك ..هل تقوم بنسخ المعادلة من الموضوع ووضعها بنفسك ؟ إذا كان الأمر كذلك جرب استبدال الفاصلة العادية بفاصلة منقوطة ...

يوجد بدائل بالتأكيد .. فقط ارفق ملفك .. وضح المطلوب عمله أو المعادلة التي تعمل في 2007 ولا تعمل في 2003 برجاء تغيير اسم الظهور للغة العربية ، ويرجى وضع عناوين مناسبة للموضوعات ....!! الرجاء الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

بارك الله فيك أخي الحبيب عبد السلام ، وأحبك الله الذي أحببتني فيه .. تقبل وافر تقديري واحترامي

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

جرب الملف المرفق إذا لم يكن المطلوب يرجى إرفاق النتائج المتوقعة TestThis.rar

يرجى وضع عناوين مناسبة للموضوعات كما يرجى تغيير اسم الظهور للغة العربية

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

الحمد لله الذي بنعمته تتم الصالحات وأفضل كلمة "جزاكم الله خيراً" فهذا أجدر بالشكر من قول مشكور وشكراً .. تقبل تحياتي

حل آخر بشكل مباشر بدون الاستعانة بخلية مساعدة لجمع الأسهم .. المعادلة الأولى لحساب عدد الأسهم =MOD(SUM($E$6:$E$9),24) المعادلة الثانية حساب عدد القراريط =MOD(SUM($F$6:$F$9,INT(MOD(SUM($E$6:$E$9)/24,24))),24) المعادلة الثالثة لحساب الأفدنة =SUM($G$6:$G$9,INT(SUM($F$6:$F$9,INT(MOD(SUM($E$6:$E$9)/24,24)))/24),INT(SUM($E$6:$E$9)/576))

السلام عليكم إخواني سليم وعبد السلام جزيتم خيراً على الحلول المتميزة ولكن لاحظت اختلاف في النتائج فقمت بحساب العملية بشكل يدوي للتأكد من صحة المعادلات المقدمة عدد الأسهم = 39 سهم ( بطرح 24 نحصل على 15 سهم متبقي .. ولا خلاف في النتائج المقدمة من الطرفين) عدد القراريط = 47 قيراط (وبإضافة القيراط الذي حصلنا عليه من الأسهم يكون الإجمالي 48 قيراط) .. وفي هذه الحالة يتم تحويل 48 قيراط إلى عدد 2 فدان (مما يعني أن عدد القراريط سيكون صفر وليس 24 أو 23) عدد الأفدنة = 103 فدان + عدد 2 حصلنا عليه من النقطة السابقة مما يعني 105 فدان ، وليس 104 بناءً على ما سبق ... فضلت أن أقوم بتحويل كل عمود من الأرقام إلى أسهم (ومن خلال إجمالي الأسهم يمكن بناء المعادلات ببساطة) في أي خلية ضع المعادلة التالية والتي ستقوم بحساب وجمع إجمالي الأسهم لكل عمود ، حيث يتم ضرب الأسهم * 1 ، والقيراط * 24 ، والفدان * 576 ( 24 سهم * 24 قيراط) =SUM(($E$6:$E$9*1),($F$6:$F$9*24),($G$6:$G$9*576)) والمعادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter ******************** ننتقل لآخر جزئية وهي المعادلات التي تقوم بحساب عدد الأسهم =INT(MOD($E$3,24)) باعتبار أن الخلية E3 هي الخلية التي وضعت فيها إجمالي الأسهم للثلاثة أعمدة ----------------------------- والمعادلة التالية للحصول على عدد القراريط =INT(MOD($E$3/24,24)) ----------------------------- والمعادلة التالية للحصول على عدد الأفدنة =INT($E$3/576) أرجو أن يكون الناتج صحيحاً إن شاء الله

وفقك الله لما يحب ويرضى أخي العزيز عماد غازي

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