بلانك

كود التوزيع والمسح لا يعملان في ورقة توزيع الملاحظة ارجو من خبراء منتدى اوفيسنا الكرام بحل هذة المشكلة بارك الله فيكم وشكرا مقدما توزيع ملاحظة.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

السبب على ما أظن الارتباط التشعبي

فكرة جميلة ولكن هل من الصعوبة عمل الاستدعاء بشرطين كما في الكود الاول والكود الثاني مباشرا

عفوا انا لست ضليع في الاكواد وهذا جهل مني ولكن اطمع في كرامكم