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

استخدم دالة SUMPRODUCT

السلام عليكم اخي فضل عندما شاهدت مرفق الاستاذ البشمهندس طارق لم احاول ان اقوم بحل اخر لان حله من الابداع ما تركني انشغل في تفحص حركة الكود سلمت يمينك استاذ طارق ========= بعد ملاحظتك الاخيرة وضعت حل باستخدام التصفية المتقدمة جرب المرفق فقد اصبح بامكانك ان تبحث عن 1. اصغر من القيمة(>) 2. اكبر من القيمة (<) 3. تساوي القيمة (=) 4. اكبر من او تساوي القيمة (=<) 5. اصفر من او تساوي القيمة (=>) 6. لا تساوي القيمة (<>) جرب المرفق بتاني واعلمني النتيجة كود لاستخراج الاسماء بثلاث شروط1.rar

شاهد المرفق ولعمل ذلك يكتب كود فتح الفورم (UserForm1.Show) في حدث الفتح ويصبح الكود Private Sub Workbook_Open() UserForm1.Show End Sub Book1.rar

السلام عليكم جرب المرفق تامين.rar

السلام عليكم بخصوص طلب تقييد الادخال راجع طلبك هنا http://www.officena.net/ib/index.php?showtopic=40880 ============== ونرجو الاتزام بقواعد المشاركة اخي الفاضل

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

السلام عليكم جرب المرفق بعد جعل الكود يعمل بالتغيير في الخلايا نتائج السادس1 (1).rar

قم بتحديد الخلايا التي بها التاريخ من H2 الى اخر خليه بها تاريخ ثم نسخ ثم ضع النؤشر على الخلية H2 ثم كليك يمين ثم لصق خاص واختر القيم ثم موافق شاهد الصورة

ضع هذه المعادلة في الخلية H2 ثم اسحبها الى الاسفل =DATE(G2;F2;E2)

السلام عليكم تم عمل الطلب الاول ام الثاني فلم افهم بالمواد الثلاث التي اكملها الطالب نتائج السادس1.rar

ما الذي لم تفهمه

السلام عليكم بداية اشكر الاخ رجب على الحل المفيد (وعلى تعديله للملف) والفت الانتباه الى ان المعادلة التي استخدمها الاخ رجب هي معادلة صفيف وعند تحديث المعادلة لابد من الضغط على Ctrl + Shift + Enter ====== في المرفق حل باستخدام الدالة SUMPRODUCT معادله شرطيه.rar

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

السلام عليكم اخي يوسف في المرفق ما طلبت والقائمة المنسدلة مرنة جرب واخبرني برايك DR.yousif Elbanna.rar

السلام عليكم اين المرفق

اخي الفاضل شاهد هذا الربط http://www.officena.net/ib/index.php?showtopic=37989&st=0&p=205766&#entry205766

السلام عليكم شرف كبير ان يقال فيني هذا الكلام من استاذ كبير مثل بن عليه شكراً على هذا التشجيع

اخي صفا هل ممكن تضع ملف توضيحي

حياك الله اخي فضل وشكراً على مرورك اخي ابو نصار

السلام عليكم شاهد مشاركة الاستاذ عماد الحسامي http://www.officena.net/ib/index.php?showtopic=37989&st=0&p=205766&#entry205766

السلام عليكم جرب المرفق كود لكتابة الاسماء التى ينطبق عليها اسم المادة.rar

السلام عليكم اخي فضل ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range If Not Intersect(Target, [I1]) Is Nothing Then [I2:I1000].ClearContents For Each cl In [B2:E21] If cl = Target Then Cells([I10000].End(xlUp).Row + 1, 9) = Cells(cl.Row, 1) Next End If End Sub

هل ممكن ترسل ملف او الاداة حتى يتم المحاولة

هذا انا منتظر توضيح منك في كيفية ان يتم الترحيل ======== اخي يمكن عمل ذلك ولكن اليست صفحة MAIN هي الصفحة الاساس ومصدر المعلومات التي سترحل (والامر متروك لك) ====== بانتظار اجاباتك

السلام عليكم تم تعديل العنوان للدلالة ونرجو كتابة عناوين تناسبب الطلب ========== بخصوص طلبك اليك هذا الموضوع القيم بهذا الخصوص http://www.officena....showtopic=30605