عبدالله المجرب

السلام عليكم اليك هذا الرابط http://www.officena.net/ib/index.php?showtopic=36483 الملف في مشاركة الاستاذ جمال دغيدي

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

السلام عليكم اسف كنت اقصد الاستاذ بن علية ولم انتبه (قمت بتعديل المشاركات) === كيف جعلتهم انا ثلاث طلبات

اين تريد التصفية في شيت اخر == هل البيانات لعميل واحد فقط

ما رايك بكود

السلام عليكم المرفق به ما تريد كود منع الحفظ للاستاذ عمر الحسيني (ابوتامر) حفظه الله وكود منع النسخ واللصق من مشاركة للاستاذ بن علية كان لطلب لي انا === جرب المرفق منع النسخ واللصق ومنع حفظ بأسم.rar

السلام عليكم ضع هذا الفكود في حدث ورقة العمل sie Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range Set MySh = Sheets("off") If Not Intersect(Target, [A6:C6]) Is Nothing Then For Each cl In MySh.[B2:B10] If cl.Value = [A6] And cl.Offset(0, 2) <= [C6] And cl.Offset(0, 2) >= [B6] Then R = R + Val(cl.Offset(0, 1)) End If Next [D6] = R End If End Sub

السلام عليكم جرب المرفق به معادلة الاستاذ الخالدي ارتباط تشعبي بين خلية غير ثابته مع خلية مساوية لها في القيمة.rar

الاخ الفاضل شكراً لك والشكر موصول للاستاذ احمد زمان

السلام عليكم ما رايك ان ييتم وضع البيانات والمخالصة في ملف واحد ثم باستخدام دالة VLOOKUP لجلب البيانات حسب الاسم

السلام عليكم الاستاذ الفاضل عبدلله باقشير دالة معرفة قمة في الروعة ولا نملك الا الدعاء لك بالتوفيق == اثراء للموضوع ومن باب تعدد الحلول هذا الكود يوضع في حدث الورقة (لاحاجة الى دالة معرفة) Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range If Not Intersect(Target, Range("C12,D12,E13")) Is Nothing Then For Each cl In [A1:A10] If cl.Value = [E13] And cl.Offset(0, 2) <= [C12] And cl.Offset(0, 2) >= [D12] Then R = R + Val(cl.Offset(0, 1)) End If Next [C13] = R End If End Sub شاهد المرفق مثال حساب بين تارخيين.rar

بالفعل ساحاول التعديل ولكني احتاج الى الوقت

اخي الفاضل قم بتحديث المتصفح او امسح الكوكيز

الاستاذ الفاضل عبدالله باقشير (ابوعلي) حفظه الله الشرح مفهوم ونصف لكن يلزمنا الوقت لاستيعابه شكراً لك على التكرو بالشرح المفصل

جواب الاستاذ بن عليه اعتقد بانه الجواب المناسب

تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=38885

حياك الله اخي نور والشكر لصاحب الملف

اخي الفاضل المطلوب غير واضح

السلام عليكم زرحمة الله استاذي الكريم بن عليه سلمت يداك وبارك الله فيك وفي علمك ولا انسى ما تعلمته منك فاين انا واين انت ما أجمل تواضع الخبراء ولإضافة حل آخر للمسألة يتمثل في المعادلة التالية (توضع في الخلية E4 ويتم سحبها للأسفل): =IF(ROW()-3<=$I$2;ROW()-3;"")

ضع هذا الكود في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [D3]) Is Nothing Then For Each cl In [A5:A24] If cl.Value = Target Then cl.Select Next End If End Sub

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

حياك الله اخي الشهابي وهذا واجبنا حسب الاستطاعة

تم تعديل العنوان للدلالة نرجو منك مستقبلاً وضع عناوين تناسب المضمون

**** إن شاء الله سيتم اصدار النشرة بشكل شهري بدل من نصف شهري (يتخللها عدد من الاعداد الخاصة عن الرواد حسب التفرغ)**** النشرة الدورية العدد الثالث عشر رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. مرفق الملف فى صيغة Pdf news 13.pdf

السلام عليكم وهذا شرح الكود الثاني مع الشكر للاستاذ طارق