اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. اقدم لكم اليوم الجزء الخامس من سلسلة الترحيل الأجزاء الأربعة السابقة من هنا
  2. السلام عليكم اوافقك الرائ استاذ دغيدي لكن بالاطلاع على المستند وبعد فك حمايته لم اجد فيه ما يستوجب الاخفاء في اوراق العمل - علماً بانه يحتوي على كود في ورقتين من اوراق العمل هو ما منعني من وضع كلمة الحماية وشكراً
  3. الأخ الفاضل / محمد الريفى ألف مليون مبروك للترقية. مع الشكر الجزيل للاستاذ عبدالله باقشير على الدعم والتشجيع كما عودنا
  4. السلام عليكم بارك الله فيك استاذ ابو خليل هل يمكن بعد اذنك تضع اسم احد هذه البرامج وشكراً
  5. أعتقد المشكلة أن كود الفرز تم تسجيله بصيغة لا تعمل مع 2003
  6. السلام عليكم لعمل ذلك ضف هذها السطر على الكود 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 والله أعلم
×
×
  • اضف...

Important Information