كل الانشطه

نعم الامر هكذا واضح وقمت بحذف التعليق السابق لعدم اهميته بعد ارقاق ملقك الاخير وبه التوضيح جرب الكود Sub تجميع() Dim ws As Worksheet Dim آخرصف As Long Dim c As Long, r As Long Dim صف_الاخراج As Long Set ws = ActiveSheet صف_الاخراج = 1 ws.Columns(16).ClearContents For c = 1 To 13 آخرصف = ws.Cells(ws.Rows.Count, c).End(xlUp).Row For r = 1 To آخرصف If ws.Cells(r, c).Value <> "" Then ws.Cells(صف_الاخراج, 16).Value = ws.Cells(r, c).Value صف_الاخراج = صف_الاخراج + 1 End If Next r Next c End Sub

أخي الفاضل @بلال اليامين ، يتم نسب الإجابة الى المشاركة التي كانت حلاً لطلبك ، وليس لمشاركتك أنت . لذا نرجو منك الإنتباه مستقبلاً لهذه النقطة

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

استاذ اليك الخطأ

هذا مثال للتوضح تجميع محتويات الاعمدة في عمود واحد متال.xlsx

وعليكم السلام ورحمة الله وبركاته ارفق مثال احر للتوضيح

لا أعلم المشكلة الملف يعمل عندي بشكل ممتاز عند ظهور هذه الرسالة اضغط زر DEBUG سيتم تلوين السطر المشكل بلون اصفر ما هو السطر المشكل ؟

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

استاذ عند الضغط على تمكين المحتوى يظهر الخطأ اليك الصورة

استاذ طريقة حماية خلية في الاكسيل

السلام عليكم أخي لا يوجد ورقة في ملفك اسمها ورقة2 على العمود لا بد من كتابة أسماء كل الشيتات في ورقة KEYS والتحكم بظهورها وأخفائها ملاحظة في ورقة KEYS لا تكتب أي بيانات في السطر الأول (السطر الرمادي) إلا أسماء الشيتات فقط جرب المرفق Horaire4.xlsb

up

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم سؤالك بملف جرب التعديل التالي وان لم تعمل ارفق ملفا والمعادلة تعمل على اصدارات اكسل من 2013 وما فوق =IFNA(SUMPRODUCT((INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0))<60)*ISNUMBER(INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0)))*(A!$A$3:$A$1828=$C$6));"/")

انظر للاسهم للجدول كله هذا مثال تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

السلام عليكم ورحمة الله وبركاته السادة الافضل محترفي الاكسيل لدى ملف به معادلة واريد التعديل علية لإيجاد عدد الطلاب المحصور درجاتهم بين الصفر و 60 درجة المعادلة بوضعها الحالي تضيف عدد الخلايا التي لا يوجد بها ارقام من ضمن الاقل من 60 =IF(ISERROR(MATCH(H$8;A!$1:$1;0));"/";SUMPRODUCT((OFFSET(A!$A$3:$A$1828;;MATCH(H$8;A!$1:$1;0)+1)<60)*(A!$A$3:$A$1828=$C$6)))= تحياتي للجميع

تقصد ان الخلية P1 مثلاً يكون قيمتها = 41-59-36-45-17-12-43-2-55-58-25-24-11 أو مثلاً 4159364517124325558252411

واضح اني لم اوضح الفكرة ... عماً المطلوب جميع الارقام بالجدول من العمود الاول A حتى العمود M يتم وضعهم في العمود P

وعليكم السلام ورحمة الله وبركاته .. رغم ان طلبك غير واضح بشكل كافي . فهل ما تريده هو نقل قيمة الخلية A1 الى النظير لها في الصف P1 وهكذا للصف التالي A2 = P2 ؟؟؟؟ إن كان كذلك فالأحق والأصح هو وضع قيمة في :- P1 = "=A1" والسحب الى باقي الخلايا في العمود P وستحصل على القيمة النظيرة لأي خليه من P من المصدر A . جرب ان كان ما فهمته صحيحاً في الملف المرفق بتعديل اي قيمة موجودة في A وستلاحظ انها تغيرت في P النظير لها . تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

السلام عليكم استاذ لقد وقع خطأ في ملف الاكسيل استاذ تم اختفاء ورقة 2 سوف ارسل للك كلمة المرور واسم المستخدم رسائل الخاصة Horaire.xlsb

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

المطلوب كما بالملف تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

ارسل المرفق كامل مع ملف الاكسل لضبطة .

بما ان الدالة Private ، فأعتقد انك وضعتها في المديول وليس في النموذج الذي تم استدعاء Sleep فيه . لذا ضع تعريف الدالة في نفس النموذج وجرب 🙂

نقلتها سابقا ولكن ما اشتغلت ولكن عندما وقفت Sleep اشتغل الكود بصفة عادية

وعليكم السلام ورحمة الله وبركاته جربت الملف على جهازي اوفيس 2016 يعمل بدون اي مشاكل ولكن ربما ولست جازما بعض الاصدرات لا تتوافق مع الكود وحاصة لم ارى رسالة الخطا والتي بها رقم الخطأ جرب التعديل التالي وعلى جهازي يعمل مع بعض البطء بسبب العدد الكبير للموظفين انتظر ردك وملاحظتك مرتب +عمولة السائقين عن شهر يناير 2026 بعد ضبط نهائى الإجماليات.xlsm