عامر ياسر

الأستاذ سليم حاصبيا جزاكم الله خيرا وزادكم من فضله علما وخيرا كثيرا دائما مبدع وفقكم الله ورعاكم تقبل فائق احترامي وتقديري

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

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

فقط مشكلة بسيطة وهي فقط حينما اختار المكمل والراسب التسلسل 1 والتسلسل 2 يكرر ... جزاك الله خيرا قمت بتقليل البيانات في الجدول الأساسي والمثال صف الاول قمت بتلوينه حينما اختار المكمل للصف الاول يكرر فقط التسلسل الاول والثاني بنفس الاسم ويعطيني زيادة واحدة حول عدد التلاميذ المكمل الصف الاول واحد يكرره لي مرتين كما في الملف المرفق 2„ salim_modifier.xlsm

انت مبدع بمعنى الكلمة إجابة وعمل غاية في الروعة شكرا من القلب لك استاذي سليم حاصبيا ... لقد اختصرت لي الطريق في عملي الإداري انت غي غاية الكرم واعظم ما تقدمه هو العلم (إن الله يحب إذا عمل أحدكم عملاً أن يتقنه ) اتقنت في الإجابة وهذا ما اريده بالضبط شكرا لك

السلام عليكم ورحمة الله وبركاته الشرح موجود داخل ملف الاكسيل الترحيل.xlsm

سؤال هل يمكن وضع المعادلة في موديول استاذ ali mohamed ali

ادعوا من الله سبحانه وتعالى ان يجعل لك في كل خطوه سلامة ويجعل هذا العمل في ميزان حسناتك .... كم ان رائع ومبدع أستاذ ali mohamed ali

للرفع

تحياتي أستاذ سليم حاصبيا هل يوجد حل لسؤالي اذا امكن ارجو الإجابة تقديري واحترامي

السلام عليكم ورحمة الله وبركاته الشرح مرفق داخل الملف غياب MD.xlsm

ابداع استاذنا ali mohamed ali ... دعائي لك بالتوفيق ويجعل هذا العمل في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته الشرح مرفق داخل الملف غياب.xlsm

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

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

السلام عليكم أساتذة الاكسل المبدعون سؤالي بدأ تسلسل جديد حسب الصف حينما تتغير الشعبة يتغير التسلسل كما في المعادلة الموجودة في عمود التسلسل الشرح موجود داخل ملف الاكسل مع كل احترامي وتقديري لما تقدموه من اجابات رائعة تسلسل جديد.xlsx

قمة الابداع أستاذ زيزو العجوز هذا هو المطلوب شكرا جزيلاً

السلام عليكم أساتذة الاكسيل المبدعون سؤالي اريد ترتيب الطلاب ابجدياً بحيث يكون الترتيب معتمدا على حروف الاسم الأول مثال إبراهيم وادم الحرف الأول هو حرف أ حيث يقوم الترتيب بجعل إبراهيم قبل ادم لأن الحرف الثاني من الاسم الـ ب قبل حرف د وينطبق ذلك على الاناث ..... ويكون الترتيب الذكور أولا ومن ثم الاناث ويكون الترتيب مطاطياً بحيث كلما اضيف اسما جديدا يرتبه تلقائيا كما موجود بالملف ترتيب الاسماء.xlsx

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

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

الى خبراء الاكسل ارجوا المساعدة في هذا الملف الشرح موجود داخل ملف الاكسل .......... شكري وتقديري لاعضاء منتدى الاكسل لكونه منتدى يقدم الافضل والشروحات والحلول الرائعة ورقة1.xlsm

ارجوا من الاساتذة الكرام شرح هذا الكود لطفا ً ... Dim LR As Integer LR = [b10000].End(xlUp).Row Sheets("17").Range("B6:DA61, B212:DA264").ClearContents Sheets("18").Range("B6:DA61, B212:DA264").ClearContents Sheets("19").Range("B6:DA61, B212:DA264").ClearContents Application.ScreenUpdating = False X = 6: Y = 6: Z = 6 For I = 6 To 61 If Cells(I, 102).Value = "ناجح" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 103).Copy Sheets("17").Range("b" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf Cells(I, 102).Value = "راسب" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 104).Copy Sheets("18").Range("b" & Y).PasteSpecial xlPasteValues Application.CutCopyMode = False Y = Y + 1 ElseIf Cells(I, 102).Value = "مكمل" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 104).Copy Sheets("19").Range("b" & Z).PasteSpecial xlPasteValues Application.CutCopyMode = False Z = Z + 1 End If Next I X = 212: Y = 212: Z = 212 For I = 212 To 264 If Cells(I, 102).Value = "ناجح" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 103).Copy Sheets("17").Range("b" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf Cells(I, 102).Value = "راسب" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 104).Copy Sheets("18").Range("b" & Y).PasteSpecial xlPasteValues Application.CutCopyMode = False Y = Y + 1 ElseIf Cells(I, 102).Value = "مكمل" And Cells(I, 3) <> "" Then Range("b" & I).Resize(1, 104).Copy Sheets("19").Range("b" & Z).PasteSpecial xlPasteValues Application.CutCopyMode = False Z = Z + 1 End If Next I Application.ScreenUpdating = True End Sub

كل الشكر والتقدير لك استاذنا الكريم مبدع .......توقعت الاجابة منك استاذي الكريم ( سليم حاصبيا )

ايجاد معدل درجات التلاميذ باستخدام vba .... المطور .. كما في الملف المرفق الملف يحتوي على درجات التلاميذ احتاج الى ايجاد المعدل الحسابي باستخدام المطور ( الفيجوال بيسك ) موديول - vba تقديري واحترامي لكافة المسؤلين على هذا الموقع الرائع المعدل.xlsm

بمناسبة عيد الأضحى المبارك .. يسرني ويشرفني أن أتقدم بهذه التهنئة لجميع أساتذة أوفيسنا الكرام ولكل أعضاء المنتدى وزواره الكرام بأسمى آيات التهاني والتبريكات بهذه المناسبة السعيدة، راجية من الله سبحانه أن يعيده. علينا وعليكم .. ويتقبل الله طاعتكم ... وسهل لحجاج بيت الله أداء عبادتهم .. وأعادهم إلى أهاليهم .. غانمين سالمين.. وبذنب مغفور .. وحج مبرور.. وسعي مشكور.. كما وأسأل الله العلي القدير أن يؤلف بين قلوبنا على الخير ، وأن يجعلنا إخوة متحابين متناصحين فيه ، وأن يتم علينا وعلى سائر إخواننا المسلمين نعمته ، وعافيته ، وستره علينا في الدنيا والآخرة ، إنه ولي ذلك والقادر عليه . اخوكم عامر ياسر