الخالدي

السلام عليكم ورحمة الله وبركاته جرب ادخال المعادلة التالية في الخلية C5 في الورقة Sheet2 =HYPERLINK(GetHyperLinkAddress(INDEX('تجميع الداتا'!E:E;MATCH($G$1;'تجميع الداتا'!A:A;0)));VLOOKUP($G$1;'تجميع الداتا'!A:J;5;0)) المعادلة تستخدم الدالة المعرفة GetHyperLinkAddress الموجودة في ملفك ارجو ان يكون المطلوب في امان الله

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

وعليكم السلام ورحمة الله في المرفق السابق معادلتين المعادلة في الخلية C2 تنقلك الى للصفحة التي يتم النقل منها المعادلة في الخلية C3 تنقلك الى للصفحة التي يتم النقل منها وفي نفس الوقت تعود بقيمة البحث حسب ما فهمت فان طلبك في معادلة C3 او عليك ان توضح اكثر في طلبك في امان الله

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

السلام عليكم ورحمة الله الخطأ يكمن في الدالة VLOOKUP التي تُعيد نتيجة البحث كقيمة بينما الدالة HYPERLINK تحتاج الى مرجع جرب البديل المرفق في امان الله HYPERLINK.rar

السلام عليكم ورحمة الله بارك الله بالفاضل / سليم حاصبيا كالعادة حلول مبتكرة ومتميزة بفكرتها واثراء للموضوع الكود التالي لمسح الخلايا في النطاق A2:H20 وبواسطة بحث واستبدال التنسيق Sub AL_KHALEDI() '''مسج الخلايا ذات لون خط احمر''' With Application.FindFormat .Clear .Font.ColorIndex = 3 Range("A2:H20").Replace "", "", , , , , True .Clear End With End Sub في امان الله

السلام عليكم ورحمة الله المطلوب غير واضح ولم ترفق ملف للعمل عليه عموما جرب الكود التالي بعد وضع الفلتر-التصفية- على عناوين الجدول المطلوب فرزه Sub AL_KHALEDI() ActiveSheet.AutoFilter.Range.Sort Columns("R"), 2, Columns("V"), , 2, , , 1 End Sub يقوم الكود بفرز نطاق التصفية حسب الرقم الاكبر للعمود R و V في امان الله

الكود يقوم بعمل المعادلة في كل الاوراق المرحل اليها ان لم يكون ذاك طلبك فأوضخ اكثر السلام عليكم

السلام عليكم ورحمة الله بارك الله فيك اخي أبو حنين رأي جيد ان يتم ربط الترحيل بالتاريخ حتى لا يتكرر الترحيل ومن المهم طرح مثل ذلك في المواضيع حتى نصل لأفضل الحلول في المرفق كود على نفس منوال الملف في مشاركتي السابقة مضافة اليه عمل معادلة للإحصاء تمنياتي بالتوفيق zmzmترحيل+معادلات.rar

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

السلام عليكم ورحمة الله جرب الكود التالي في حدث الصفحة بعد تغير اسماء الاوراق حسب الاسماء في اول خلايا الاعمدة في الورقة الصفحة الرئيسيه Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D,H:L")) Is Nothing Then Dim T As Range, L As Long For Each T In Intersect(Target, Range("D:D,H:L")).EntireColumn With Sheets(T.Cells(1).Value) L = .Cells(2, Columns.Count).End(xlToLeft).Column If L > 3 Then .Cells(2, 4).Resize(Rows.Count - 1, L + 3).Copy .Cells(2, 5) Range(T.Cells(2), T.Cells(Rows.Count)).Copy .Cells(2, 4) End With Next T End If End Sub ارجو ان يكون المطلوب في امان الله ‫ملف zmzm الخاص بمنتيات اوفسينا2.rar

السلام عليكم ورحمة الله ضع المعادلة التالية في الخلية F152 ثم اسحبها لبقية الخلايا =IF(COUNTIF(D$11:D152;D152)>1;LOOKUP(2; 1/((D$11:D152=D152)*(ROW(E$11:E152)<ROW())); E$11:E152);"لا يوجد") ارجو ان يكون المطلوب

السلام عليكم ورحمة الله وبركاته ادخل المعادلة التالية في الخلية G4 ثم اسحبها لبقية الخلايا =SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*('اذون الاستلام'!$B$4:$B$2000);COLUMNS($G:G))) المعادلة ترجع الارقام مرتبة تنازليا او المعادلة التالية ترجع الارقام حسب موقعها =INDEX('اذون الاستلام'!$B:$B;4^8-SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*(4^8-ROW('اذون الاستلام'!$F$4:$F$2000));COLUMNS($G:G)))) لإخفاء الصفر يمكن اضافة الدالة TEXT الى المعادلتين مثلا للمعادلة الاولى =TEXT(SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*('اذون الاستلام'!$B$4:$B$2000);COLUMNS($G:G)));"General;General;") في امان الله

السلام عليكم ورحمة الله المرفق بالكود في امان الله عد خلايا بالكود.rar

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

السلام عليكم ورحمة الله بارك الله فيك استاذ/ عبدالله باقشير تقبل الله منا ومنكم صالح الاعمال ولإثراء الموضوع الكود التالي يقوم بحذف المكرر الكود يقوم بفرز الارقام في الورقتين لغرض عدم تكرار فحص خلايا اي جدول اكثر من مرة في امان الله فزر المكرر بالفرز.rar

السلام عليكم ورحمة الله بارك الله بأخي وليد فتحي بالمرفق معادلة ربما تحقق طلب صاحب الموضوع في امان الله ترتيب الطلاب معدل-فصل-مستوى.rar

السلام عليكم ورحمة الله بارك الله بالإخوة الكرام ولإثراء الموضوع في المرفق يتم الوصول الى الاسم من خلال قائمة منسدلة واحدة في الورقة مثال1 يتم اختيار القائمة ثم من نفس الخلية يتم اختيار الاسم في الورقة مثال2 تظهر في القائمة المنسدلة بيانات صفوف واعمدة الجدول في امان الله قائمة منسدلة متغيرة.rar

السلام عليكم ورحمة الله بارك الله بإخواني /أبو حنين و احمد عبد الناصر ولإثراء الموضوع معادلة اخي احمد عبد الناصر لتعمل دون ادخالها كصفيف =SUMPRODUCT(VLOOKUP(G7;A7:D13;{2,3,4};0))/3 معادلة اخرى =AVERAGE(INDEX(B7:D13;MATCH(G7;A7:A13;0);0)) ايضا معادلة اخرى =SUMPRODUCT((A7:A13=G7)*(B7:D13))/3 في امان الله

السلام عليكم ورحمة الله بارك الله بالأخوة الكرام ولإثراء الموضوع يمكن استخدام المعادلة التالية =DATEDIF(TEXT(LEFT(B3;7)+17*10^6;"####-##-##");TODAY();"y") في امان الله

السلام عليكم ورحمة الله جزاكم الله خيرا اخي الاستاذ / أبو حنين ايضا المعادلة التالية تقوم بالعد بدون تكرار =SUMPRODUCT(1/COUNTIF(B2:B7;B2:B7&"")) بالتأكيد الكود اخف على الملف من المعادلات في امان الله

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

السلام عليكم ورحمة الله المرفق تم عمله على عجل ارجو ان يكون مفيد في امان الله متغيرات 2.rar

السلام عليكم ورحمة الله وبركاته عمل متقن ورائع من استاذ قدير بارك الله فيك استاذ رجب جاويش تقبل الله منا ومنكم صالح الاعمال في امان الله

السلام عليكم ورحمة الله وبركاته الاخ الحبيب الشهابي اعتقد ان السبب في السطر التالي من الكود If C = 0 Then End فاذا تحقق شرط الدالة If في السطر السابق فيتم انهاء الكود بدون تنفيذ الاوامر في الاسطر اللاحقة من الكود بما فيها امر تفعيل الحساب التلقائي جرب تعديل السطر السابق بحيث عند تحقق الشرط ينتقل الكود الى قبل السطر الخاص بتفعيل الحساب التلقائي وليس انهاء تنفيذ الكود والله اعلم في امان الله