عبدالله المجرب

حياك الله استاذ محمد وشكراً على مرورك

حياك الله استاذ جمال وشكراً على مرورك

حياك الله اخي ماجد

بارك الله فيك استاذ ياسر

السلام عليكم اليك الملف بعد التعديل 2560.rar

طلب غير واضح

اقدم لكم اليوم الجزء الخامس من سلسلة الترحيل الأجزاء الأربعة السابقة من هنا

الجزء الخامس من السلسلة

احسنت خير الكلام ما قل و دل

تم عمل اللازم

الله يسلمك استاذ محمد

جزاك الله خيراً استاذنا الفاضل ياسر خليل

السلام عليكم اوافقك الرائ استاذ دغيدي لكن بالاطلاع على المستند وبعد فك حمايته لم اجد فيه ما يستوجب الاخفاء في اوراق العمل - علماً بانه يحتوي على كود في ورقتين من اوراق العمل هو ما منعني من وضع كلمة الحماية وشكراً

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

نور الموضوع الإستاذ يحيى حسين

بارك الله فيك استاذ رجب على هذا العمل المميز

السلام عليكم بارك الله فيك استاذ ابو خليل هل يمكن بعد اذنك تضع اسم احد هذه البرامج وشكراً

ضع مرفق

أعتقد المشكلة أن كود الفرز تم تسجيله بصيغة لا تعمل مع 2003

تم إضافة المرفق بصيغة 2003 الى المشاركة الأولى

السلام عليكم لعمل ذلك ضف هذها السطر على الكود Copeir_Data Selection.RowHeight = sh.Range("A1").RowHeight ليصبح Sub Copeir_Data() Dim sh As Worksheet: Set sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("مكافاة الثانوية العامة") Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 sh.Range("A1:AD5").Copy sh2.Range("A" & lr).Select: ActiveSheet.Paste Selection.RowHeight = sh.Range("A1").RowHeight End Sub والله أعلم

عمل روعه وقمة في الابداع اجمل ما فيه اسم المدرسة لانها بأسم عملاق صرحنا عبدالله باقشير

الملف يعمل عندي بكل أريحية

مبدع كما عودتنا

ألف مليون مبروك الترقية