Elsayed Elgammal

شكرا على الاهتمام وسوف أحاول عمل ملف خفيف وتنزيله

هجرب أخي الكريم وأشوف والله أنا خجلان من مجهودك ولا أعرف كيف أجازيك لكن عندي طلب أخير وهو هل ممكن نطلب من الكود ينسخ حتى 60 صف فقط لأن All في الكود تقوم بنسخ أي بيانات حتى لو ملاحظات في نهاية أوراق العمل . والآن عندي مشكلة عند احضار البيانات فإن كل صف مضبوط لكن يترك صفوف فارغة كثيرة ثم الصف التالي وهكذا وأنا الآن أدرس الكود لأتعلم ومع منتدى أوفيسنا الرائع وفيديوهات أخرى من اليوتيوب أتعلم بالتدريج ,انا أفهم المقصود من كلامك لكن الملف تقيل وحتى الضغط لم ينفع أشكركم وطبعا كل اللي اتعمل أفادني كثيراً ...

لا أجد ما أعبر به من الكلمات عن مدى شكري وتقديري لمساعدتكم فأنا مبتدئ في الـ VBA وكنت آمل المزيد من سعة صدركم لكن ألف مرة شكرا

'أرجو تعديل الكود حيث عند نسخه وتفعيله يترك 95 صف فارغ ثم يأتي بأسماء طلاب الصف التالي وهكذا 'أين الخطأ مستر محمد ؟؟؟ Sub All_School() 'by MOHAMMED HICHAM -----------Modified on 02/07/2023 Dim Réf, A(), i&, F&, Y&, K&, last&, Sh As Variant Dim Dest As Worksheet: Set Dest = Sheets("All_School") last = Dest.Cells(Rows.Count, "a").End(xlUp).Row + 1 Application.ScreenUpdating = False ' يمكنك اظافة اسماء اوراق العمل المرغوب جلب البيانات منها بالطريقة التالية ' For Each Sh In Sheets(Array("class1", "class2", "class3", "class4", "class5", "class6")) 'هنا تمت اظافة 3 اوراق فقط للتجربة For Each Sh In Sheets(Array("kg1", "kg2", "C1", "C2", "C3", "C4", "C5", "C6")) K = Sh.Range("B" & Rows.Count).End(xlUp).Row Réf = Sh.Range("B6:x" & K) For i = 1 To UBound(Réf, 1) Dest.Range("A5:x" & last).ClearContents Y = Y + 1: ReDim Preserve A(1 To UBound(Réf, 2), 1 To Y) For F = 1 To UBound(Réf, 2) A(F, Y) = Réf(i, F) Next Next With Dest Dest.Range("B5").Resize(Y, UBound(A, 1)) = Application.Transpose(A) End With Next Sh For F = 5 To Dest.Cells(Rows.Count, "B").End(xlUp).Row If Dest.Cells(F, "B").Value <> "" Then Dest.Cells(F, "a").Value = F - 4 End If Next F End Sub

للأسف حاولت أعدل في الكود على البرنامج عندي لكن لم أتمكن أرجو المساعدة في تعديل الكود أرجو أن تكون البيانات حتى العمود X غيرت اسم module هل ممكن سبب مشكلة حاولت أرفق ملف جديد للتعديل لكن رفض الموقع لأنه أكثر من 2 ميجا سوف أرسله على خاص حضرتك او مسنجر بس عرفني الطريقة والعنوان

تحية تقدير وإجلال لحضرتك هجرب وأشوف

تحية وتقدير للاهتمام والمجهود الكبير من الأخ الأستاذ الزميل لكن عندي سؤال كنت أريد نذكر في الكود الشيتات المطلوب جلب البيانات منها وليس العكس يعني أنا أعمل على مشروع ملف اكسل فيه أكثر من 60 ورقة عمل وأريد جلب البيانات من 10 ورقات فقط أقصد الأسهل نذكر في الكود أسماء الورقات المطلوبة وليس العكس وذلك للتسهيل . هل هذا ممكن ؟؟؟ هيسهل عليا العمل كثيرا وشكراً لكم سيدي

كرمكم شجعني على طلب المزيد ـ أولا : لم يعد في حاجة لزر الأمر مرفق الملف وأتمنى تعديل الكود لكي يتم جلب البيانات من أوراق عمل محددة وليس كل الشيتات مثلاً ( ورقة1 ) غير مطلوب جلب البيانات منها راجع حدود العمود الأول ( عمود المسلسل ) في ورقة التجميع تتحول إلى خط مزدوج في كل تحديث حتى لو غيرنا تنسيق الحدود . فما هو السبب ؟؟ تجميع التلاميذ 2.xlsm

قمت بتجربة الكود وكان أكثر من رائع لكن نطمع في بعض التعديل بحيث يتم ترتيب الطلاب حسب كل فصل ، بالمناسبة أنا عامل جداول للفصول باسم معرف ( اسم جدول ) هل هذا مفيد في هذه الحالة ؟ كمان استفسار من الأخوة الـ ( بور كويري ) موجود في أي اصدار للأكسل أنا معنديش فكرة ولم استخدمه من قبل ونتعلم منكم وشكراً على سرعة الاهتمام والرد

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

أشكركم يا جماعة الخير اليوم وقعت في نفس المشكلة تذييل الصفحة عبارة عن 4 أعمدة كل عمود 3 سطور وطبعا مينفعشي التذييل العادي معرفشي وصلتوا لأيه ؟ كل التحية والتقدير للأخوة في المنتدى