asdhamdey

للرفع للرفع

وهل اذا ازلنا الجزئيه اللي بعد OR تصلح المعادله

=IF(SUMPRODUCT(--($I7="غ");--($R7="غ");--($AJ7="غ");--($BZ7="غ");--(OR($B7=ROW($A$1:$A$5))))=1;1;"ERROR") استاذ سليم الله يجزيك خيرا ويبارك فيك لو سمحت اشرحها وخاصه الجزء بعد OR وماعلاقة هذه الصفوف بالمعادله

استاذ سليم الله يجزيك خيرا ويبارك فيك وضعت معادلتك في المرفق ولكني لم استطع التعامل معها كرما منك انظر المرفق معادله IF.rar

=IF(AND(I7="غ";R7="غ";AJ7="غ";BZ7="غ";OR('بيانات المدرسة'!$B$12=1;'بيانات المدرسة'!$B$12=2;'بيانات المدرسة'!$B$12=3));1;IF(AND(I7="غ";R7="غ";AA7="غ";AJ7="غ";AU7="غ";BZ7="غ";OR('بيانات المدرسة'!$B$12=4;'بيانات المدرسة'!$B$12=5));1;0)) اريد من فضلكم شرح لهذه المعادله .. على حد فهمي لها الخلايا الاربعه I7 .. R7 .. AJ7 .. BZ7 .. لو هذه الخلايا كلها بها حرف ال غ او الخليه المشار اليها في ورقه بيانات المدرسه B12 مكتوب فيها 1 أو 2 أو 3 اكتب 1 ولو الخلايا الاربعه I7 .. R7 .. AJ7 .. BZ7 .. لو هذه الخلايا كلها بها حرف ال غ او الخليه المشار اليها في ورقه بيانات المدرسه B12 مكتوب فيها 4 أو 5 اكتب 1 لو فهمي لها صح هل يمكن وضع المعادله بطريقه مختصره هل هنا شرط عشان النتيجه تكون 1 لازم يكون الاربع خلايا الاولى مجتمعين بها حرف ال غ ومعاهم شرط الخليه الموجوده في ورقة بيانات المدرسه يكون بها 1 أو 2 أو 3 أو 4 أو 5

يحفظك ربنا يا استاذ عبد الله باقشير العلامه

=IF(ISERROR(INDEX($C$5:$C$40; MATCH(0; IF(MAX(NOT(COUNTIF($H$4:H5;$C$5:$C$40))*(COUNTIF($C$5:$C$40; ">"&$C$5:$C$40)+1))=(COUNTIF($C$5:$C$40; ">"&$C$5:$C$40)+1); 0; 1); 0)));"";INDEX($C$5:$C$40; MATCH(0; IF(MAX(NOT(COUNTIF($H$4:H5;$C$5:$C$40))*(COUNTIF($C$5:$C$40; ">"&$C$5:$C$40)+1))=(COUNTIF($C$5:$C$40; ">"&$C$5:$C$40)+1); 0; 1); 0))) معادله مفيده جدا ولكنها تعمل في نفس الصفحه اريدها لو تفضلتم تعمل في صفحة تانيه

مواضيعك دسمه ومفيده استاذ خالد الرشيدي ربنا يجزيك خيرا

ربنا يجزيك خيرا

ربنا يجزيك خيرا

ربنا يجزيك خيرا

كم مات قوم وما ماتت مكارمهم ... وعاش قوم وهم فى الناس اموات الله يرحمك يا استاذ عماد الحسامي

من فضلك

جزاكم الله خيرا

جزاك الله كل خير عند تغيير الخليه الخاصه بالماده لايتم التغيير والصفحه محميه عند تغيير الباسوورد الموجود بالفيجوال ياتي بخط اصفر عليها

Sub mh1() Application.GoTo Reference:="mh" Selection.Sort Key1:=Range("al9"), Order1:=xlDescending, Key2:=Range( _ "ao9"), Order2:=xlDescending, Key3:=Range("ak9"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal Range("a1").Select End Sub الاستاذ المحترم ابو عبد الباري يبدو انك ارفقت نفس الملف قبل اضافه الحمايه وفكها انا من محبين اعمالك الملف المرفق هات العشره الاوائل للمجموع مش هايشتغل صح

الله يرحمه ويحسن إليه الاستاذ المحترم عماد الحسامي

Sub Filter() Dim LR As Long With ورقة1 LR = .Cells(.Rows.Count, "D").End(xlUp).Row .Range("c5:y5" & LR).AdvancedFilter xlFilterCopy, Range("aa1:aa2"), Range("c5:y5") End With Range("a1").Select LR = Cells(Rows.Count, "D").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("b2:y" & LR).Address End Sub اهداني احد اصدفائي فاردت ان نشاركوني هذا الشرح للاستاذ الفاضل عبد الباري البنا شرح-كود-الفلتر.rar

Sub mh() ' ' ماكرو2 ماكرو ' الماكرو مسجل ‎17/06/2016 بواسطة ‎11 ' ' Range("A3:D47").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "f2:f3"), CopyToRange:=Range("H4:K4"), Unique:=False End Sub كود فلتره في نقس الصعحه _الطلبة الضعاف.

للرفع

جزاك الله خيرا .. للرفع

جزاك الله خيرا

الله يحفظك

جزاك الله خيرا

' 'هذا الكود للمحترم ياسر العربي Sub RoundedRectangle3_Click() Dim last As Long Dim y As Long '' اول صف سيوضع فيه التذييل y = 40 Do ' ' لمنع اهتزاز الشاشه Application.ScreenUpdating = False last = Sheets("ناجح").Cells(Rows.Count, "B").End(xlUp).Row If y - 36 >= last Then GoTo 0 ' ' اسم شيت المصدر الذي سيتم حشر الديباجه فيه Sheets("كعب الشيت").Rows("2:7").Copy ' ' اسم شيت الديباجه التى نريد وضعها في الشيت المصدر Sheets("ناجح").Rows(y).Insert Shift:=xlDown ' 'لايقاف خاصيه القص والنسخ Application.CutCopyMode = False ' ' y = y + 36 Loop ' ' لاعاده تحديث الشاشه 0 Application.ScreenUpdating = True MsgBox "تم بحمد لله" End Sub ' ' ' ' ' ' ' ' ' ' ' ' ' ' كود لتذييل الصفحه