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

اخي شمس على حد فهمي للمطلوب جرب المعادلة =IF(B9="";"";IF(H9="باق";"باق";IF(AND(H9="منقول";COUNTBLANK(S9:V9)<4);"راسب";"ناجح"))) في الخلية P9 ملاحظة عمود النتيجة هو (P) وليس (N)

اخي الحبيب المطلوب غير واضح يفضل ارفاق ملف به المطلوب وستجد بإذن الله من يساعدك من ابطال هذا الصرح العظيم ابواحمد

اخي الفاضل بفضل الله الحل ممكن ولكن سوالي هو لماذا الورقة 3 اذا كانت المعلومات موجودة في الورقة 2 وعلى اي ورقة تريد حساب مجموع الصرف لكل معدة ابواحمد

الاستاذ الفاضل ابو عبدالله كل عام وانت وجميع الاخوة بخير ما اسعدنا بتواجدكم معنا ونعتبر تواجدكم اكبر هدية لنا في هذا المنتدى ابواحم

الاستاذ الفاضل ابو عبدالله كل عام وانت وجميع الاخوة بخير ما اسعدنا بتواجدكم معنا ونعتبر تواجدكم اكبر هدية لنا في هذا المنتدى ابواحمد

اخي الفاضل ارفق ملف للعمل عليه مع توضيح اكثر للمطلوب (ماذا لو كانت النتيجة في مادة واحدة اقل من 50 والباقي اكثر) ماذا لو حضر كل المواد ماعدا مادة وهكذا نصيحة استعمل البحث في المنتدى فقد تم حل هذا الموضوع اكثر من مرة ابواحمد

الاخ الحبيب ابو الحارث يكفيك شرف المحاولة سلمت يديك ابواحمد

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

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

اولاً اوجه الشكر للاستاذ الفاضل الحسامي على الكود المميز اخي الفاضل هذا كود للطباعة مباشرة للنطاق A4:H34 ويمكنك تعديله Sub Print1() ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("H9").Select End Sub وهذا كود للمعاينة ثم الطباعة لنفس النطاق Sub Preview_Print() ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34" ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("H9").Select End Sub والله اعلم

الاستاذ الفاضل كيماس حفظه الله ماشاء الله دالة رائعة الاستاذ الفاضل هشام حفظه الله ملاحظة مهمة تشكر على لفت الانتباه لها المرفق فيه دالة VLOOKUP تعمل بالعكس وهي من لمسات ملك المعادلات الاستاذ يحيى حسين حفظه الله ولا تتاثر بالترتيب الابجدي وانا كنت قد طرحت هذا الموضوع في السابق على الرابط ادناه http://www.officena.net/ib/index.php?showtopic=35061 عكس اتجاه دالة vlookup.rar

اسف المشاركة تمت عن طريق الخطاء

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

هل هذا يفي بالغرض وللعلم الفورم من عمل الاستاذ الحسامي البحث بالاسم وليس بالرقم.rar

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

الاستاذ الافاضل يحياوي شكراً على الكتاب الاستاذ كيماس (ابوعمر) شكراً على الرابط المباشر ابواحمد

اخي الكريم سوال لماذ هذا الكود مكرر بشكل كبير ActiveSheet.Protect Password:="haitham29181" الافضل وضع فك الحماية في بداية الكود ووضع الحماية في نهاية الكود فقط وليس تكرارها مرات كثيرة ولحماية الخلايا التي بها المعادلات ضع هذا الكود في النهاية Selection.SpecialCells(xlCellTypeFormulas, 23).Select Selection.Protect Password:="haitham29181" والله اعلم

اخي الفاضل جرب المرفق مشروع محو الامية.rar

شكراً اخي ابوالحارث على لفت الانتباه

آمين

الاستاذ ياسر الحافظ ما شاء الله عليك :clapping: سلمت يمينك

الاستاذ الفاضل هشام كود رائع تسلم يمينك ولكن عند تجربتي للمرفق لاحظت انه اذا كان الخلية النشطة في Sheet2 فانه يتم اللصق ابتداً منها لذا بعد اذن استاذ هشام اضفت سطر الى الكود ليتم اللصق ابتداً من الخليةA6 ليصبح الكود Sub HH() Application.ScreenUpdating = False Range("A5:C81,E5:F81").Select Range("E5").Activate Selection.Copy Sheets("Sheet2").Select Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Application.CutCopyMode = False Range("A1").Select End Sub

اخي ياسر نورت الموضوع شكراً لمرورك وكلامك العسل يا عسل ابواحمد

السلام عليكم بعد اذن الاستاذ الفاضل والدنا المحترم جمال دغيدي اخي شمس تفضل المرفق الشرح.rar

في الرابط ادناه ملفات باور بوينت بخصوص الشهر الفضيل ملفات رمضانية