بلانك

عذرا يا أخي ابو عيد عند فتح الملف هذا لا يتناسب معنا في مصر فعندنا لجان بكل لجنة عدد 2 معلمين وكل 4 او 5 لجان عليهم مراقب ... وعلى العموم شكرا لتعبك معي ولكن حاول وخبراء المنتدى في تصليح ملفي ولك وللجميع الشكر

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,, أرجو التكرم من سيادتكم على مساعدتى فى الأتى : المطلوب حذف الطالب رقم 9 (طالب8) بجميع بياناته بحيث بعد الحذف. يتم نقل الطلاب بعده مكانه كما بالشكل في الاسفل ملحوظة هناك معادلات لاستخراج البيانات مثل اليةم والشهر واخرى كثيره حذف اسم طالب بجميع بياناته.xlsx

استاذي بن علية حاجي بارك الله فيك على سرعة الرد وهذا هو العهد بكم وبالمنتدى فالبرنامح ليس لي وهو موجود على النت فهو متاح للجميع وبدون مقابل مادي ... فالرجاء التعديل عليه لانه بطئ جدا جدا .... وهذا هو الملف بعد ازالة كلمه السر vba توزيع ملاحظة بعد ازالة كلمة السر.xlsb

كود التوزيع والمسح لا يعملان في ورقة توزيع الملاحظة ارجو من خبراء منتدى اوفيسنا الكرام بحل هذة المشكلة بارك الله فيكم وشكرا مقدما توزيع ملاحظة.xlsb

استاذي محمد صالح قد وعدت بعمل كود لاخذ 10% من اوراق الاجابة بطريقة عشوائية محضر العشرة بالمائة.xlsb

جميل يا استاذ محمد ولكن!!!!!!!!!!!!! الارقام السرية مرتبة بالتوالى ولكن المقصود من كل عشر ارقام سرية ناخذ رقم واحد ليمثل 1% اي من (21 : 31 سري) ناخذ ورقة اجابة واحدة ومن (32 : 42) ورقة ثانية وهكذا

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,, بيحدث خطا عند وجود اكثر من ملاحظ احتاطي اللجان والملاحظة.xlsx

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

تكملة المعادلات حصر العجز والزيادة فى الحصص.xlsx

مالسبب؟ وهل هناك طربقة لعمل الاكود على الاوفيس اون لاين .... ففي المثال التالى يقال لي انه يعمل على اوفيس اكسل 2016 وعندي اوفيس 2010 وعتد تجربته على اوفيس365 اون لاين لايعمل ولايظهر زر المسؤل عن تشغيل الكود ترتيب عمود حسب قيم عمود اخر.xlsm

انا عندي اوفيس 2010

ترتيب عمود حسب قيم عمود اخر ترتيب عمود حسب قيم عمود اخر.xlsm

اخي omar elhosseini لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

اخي محمد حسن لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

اكسل 2010

الكود يعطي خطأ omar elhosseini

أخي علي محمد علي شكرا على الاستجابة السريعة

كود يعمل عمل flash fill لعدم وجودها في اوفيس 2010 الذي اعمل علية

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

درجات طلبه.xlsx

احسنت وزادك اله علما لتنفع به الاخرين امثالي

اشكرك على تعبك معي ولكن مازال الكود لايضم 3 صفوف وهذا هو الكود بعد التعديل : ( )Sub Test Dim m As Long, r As Long, n As Long Application.ScreenUpdating = False With ActiveSheet m = .Cells(Rows.Count, 1).End(xlUp).Row n = 1 .Columns("K:M").WrapText = True For r = 1 To m Step 3 .Range("K" & n).Resize(, 3).Value = Array(.Range("A" & r).Value & vbLf & .Range("A" & r + 1).Value, .Range("B" & r).Value & vbLf & .Range("B" & r + 1).Value, .Range("C" & r).Value & vbLf & .Range("C" & r + 1).Value) .Range("K" & n).Resize(, 3).Value = Array(.Range("A" & r).Value & vbLf & .Range("A" & r + 1).Value, .Range("B" & r).Value & vbLf & .Range("B" & r + 1).Value, .Range("C" & r).Value & vbLf & .Range("C" & r + 1).Value) n = n + 1 Next r End With Application.ScreenUpdating = True End Sub دمج3 صفوف.xlsm

عملت الاتي ولم يفلح فأنا لست متخصص في الاكواد عذرا : For r = 1 To m Step 3

شكرا جزيلا على الرد والكود وزادك الله علما ونفعا للاخرين واطمع في طلب بسيط تعديل الكود لدمج ثلاث صفوف وشكرا مقدما

دمج صفوف مثال.xlsx