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

بعد اذنك استاذ معتصم المرفق تم استخدام المعادلة Vlookup ولكنها تعمل من اليسار الى اليمين هذه احدى ابداعات ملك المعادلات الاستاذ يحيى حسين اتمنى ان تعجبكم ابواحمد دالة vlookup.rar

بعد اذن الاستاذ الفاضل يحيى حسين اخي تفضل المرفق الشرح على 2007 ويمكنك على 2003 اضافة ثلاثة شروط للفرز فقط وهو ما تم عمله في الملف المرفق تنسيق 2012.rar

جرب المرفق بدالة sumproduct في عمود المستحق ودالة SUMIF في عمود المسدد والله اعلم جدول.zip

اخي حامل المسك عدل هذا الجزء من الكود بدل For i = 1 To 100 Step 11 يصبح For i = 1 To 1000 Step 11 ليصبح الشكل النهائي للكود Sub Macro2() ' ' Dim k As Long ' Application.ScreenUpdating = False Range("d6:g500").ClearContents Range("B6:B16").Copy Range("E6").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = 7 For i = 1 To 1000 Step 11 Range("C" & i + 5 & ":C" & i + 15).Select Selection.Copy Range("E" & k).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = k + 1 Next i Application.CutCopyMode = False Range("a1").Select Application.ScreenUpdating = True End Sub

مارايك في الحل بدون دالة تقريب جرب المرفق ابواحمد.rar

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

ماشاء الله شكراً على هذه الابيات الجميلة فلم اقم الا باقل من واجبي والحمدلله ان تمت الاجابة

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

تفضل المرفق بعد التعديل اخي لاداعي للاعتذار فانا لم اقم الا بما استطيع عمله فقط اسماء الطلاب.rar

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

هل لي بمرفق جرب المرفق Book12.rar

اخي حامل المسك لم اقم الا بما استطيع وكل الشكر للاستاذ كيماس على مساهمته القيمة ابواحمد

الكود في المشاركة 6 تم تسجيل ميكرو بالخطوات الموجودة في شرح الفيديو ثم تم عمل زر لتنفيذ الكود (الكود عمله محدود) الكود في المشاركة 8 هو الافضل فهو مرن ويمكنك زيادة الصفوف كما تشاء وسيعمل الكود بشكل مرن

اخي حامل المسك المرفق فيه الكود مرن (من اعداد الاستاذ كيماس) ويمكنك اضافة صفوف ثم تضغط الزر وسيتم المطلوب ابواحمد Book1.rar

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

جرب المرفق 2007 Book1.rar

ضع الكود التالي في حدث الفتح (This Workbook) Private Sub Workbook_Open() Sheets("ورقة1").Select End Sub طبعاً ورقة1 هو اسم الورقة التي تريد الفتح عليها والله اعلم

الاخت زمردة ضعي مرفق للعمل عليه وان شاء الله تحصلي على مساعدة

هل تقصد هذا شاهد الرابط http://www.officena.net/ib/index.php?showtopic=32813

اخي حامل المسك شاهد المقطع فقد يفيد ابواحمد شرح1.rar

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

اخي الفاضل ارفق ملف لتوضيح المطلوب ابواحمد

اخي شمس تفضل المرفق بعد التعديل المنقول-kemas.rar

اخي عابد اذا كنت تقصد بسؤالك الترقيم التلقائي نعم سيضبط معك لان المعادلة مرتبطة بالعمود B فقط والله اعلم

اخي شريف تابع الرابط لعل فيه ما يفيد http://www.officena.net/ib/index.php?showtopic=25586