عبد الفتاح كيرة

أشكرك جدا على ذوقك و أخلاقك و ثنائك الطيب بارك الله فيك

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

بالنسبة لعناوين الأعمدة فى الأعلى يمكنك اختيار تكرارها من خلال تعيين نطاق الطباعة و تحديد الصفوف المكررة للأعلى بالنسبة لتوقيع المدير و رئيس الكنترول فيمكنك عملها فى تذييل الصفحة فتظهر أيضا بكل صفحة شاهد المرفق فى معاينة قبل الطباعة الترحيل بالفلترة- ترويسة علوية و سفلية.rar

أليست النسبة = درجة الطالب مقسومة على الدرجة الكبرى =C19/E19*100

لمنع التلاعب بإعداد الصفحة استخدم الكود التالى : ActiveSheet.PrintPreview False * لاحظ أن الإكسل لا يفعل معاينة الطباعة إذا كان الشيت فارغا يعنى لا بد أن يكون بالشيت أية بيانات يمكنك وضعه فى حدث تنشيط الورقة Private Sub Worksheet_Activate() ActiveSheet.PrintPreview False End Sub

حدد كل النطاق المراد طبعه ثم تحديد نطاق الطباعة و تكرار الصفوف للأعلى وحدد الصفوف

عليكم السلام أستاذ الفاروق أول مرة أرى الاسم شكرا لك

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

أخى الكريم هذا هو سطر النسخ و اللصق .Range("a2:d" & lastrow).Copy Sheets("راسب").Range("a2") و هو ينسخ الأعمدة من الأول للرابع الآن لنسخ عمود الاسم و هو رقم 2 سنغير المدى المنسوخ .Range("B2:B" & lastrow).Copy Sheets("راسب").Range("a2") , اللصق طبعا ل A2 فى الشيت الجديد ثم لنسخ عمود النتيجة رقم 4 [code].Range("D2:d" & lastrow).Copy Sheets("راسب").Range("B2") لكن اللصق لعمود 2 فى الشيت الجديد

أخى سجل ماكرو و نفذ ما تريد من رأس و تذييل الصفحة و ستجد الأوامر فى الماكرو المسجل

ألف شكر أستاذ على بارك الله فيك

يعنى أيه بطريقة جميلة؟

و الله جاء بخاطرى هذا الاقتراح اليوم مؤقتا - حتى توافق الإدارة - يمكنك فتح القناة فى توقيعى لمشاهدة كل الفديوهات وشكرا لك

الترحيل دفعة واحدة Sub exam222() Dim lastrow As Integer With Sheets("أرشيف") lastrow = Range("r10000").End(xlUp).Row + 1 .Cells(1, "a").Value = Range("w5").Value .Cells(2, "a").Value = Range("w6").Value .Cells(3, "a").Value = Range("w7").Value End With End Sub مشاركة لأستاذنا طارق - بعد إذنه - فى الرد

الأخوين الكريمين mas123 و galal_mk أشكر لكما طيب كلامكما و جزاكم الله خيرا

شكرا أستاذ طارق هل يكون أسرع لو استخدمنا with With Sheets("أرشيف") lastrow = .Range("j10000").End(xlUp).Row + 1 .Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value End With

أخ naderwatfa هذه الطريقة هى من أفواه المحترفين قالوا أنها أسرع كثيرا و أقل خطأ من حلقات التكرار شكرا لتقييمك للموضوع

أشكرك أخ ياسر بارك الله فيك

اتبع الآتى انسخ نموذج الشهادة مرتين أو ثلاثة حسب ما تريد كل ما سنغيره هو قيمة الخلية التى بها رقم الجلوس سنعمل خلية جديدة أمام الشهادة الجديدة و نجعل قيمتها تساوى قيمة الخلية فى الشهادة الأولى +1 و فى الشهادة الثالثة +2 و هكذا

السلام عليكم و رحمة الله هذا الموضوع يعتبر أساسا لعمل الشهادات بقية الإبداعات ترجع إليكم إلى الفديو شرح عمل الشهادات بدالة vlookup.zip

أخى أبا العقاب بارك الله فيك و شكرا لمرورك

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

انسخ كل المودويلات و الصق فى مودويل الورقة del-all 100-kemas.zip

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

أخى الفاضل اضغط الملف قبل رفعه