اذهب الي المحتوي
أوفيسنا

أسامة البراوى

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    157

  • تاريخ الانضمام

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

  • Days Won

    2

 نوع المحتوي 

كل منشورات العضو أسامة البراوى

  1. أسامة البراوى
    السلام عليكم ارى ان هذا حل جميل ويفى بالغرض وممكن ان نضيف الاسطر التالية فى نهاية الكود لكى نحافظ على الشكل العام للشيتات الجديدة Dim I As Intger For Each SH In Worksheets If SH.Name <> "ورقة1" Then For I = 1 To 6 SH.Columns(I).ColumnWidth = Sheets("ورقة1").Columns(I).ColumnWidth Next End If Next SH
  2. أسامة البراوى
    اتفضل يا جميل ولو في مشاكل بلغنى ترحيل الدور الثاني-OB.rar
  3. أسامة البراوى
    السلام عليكم الاخ رجب . مرفق ملف الاكسل المعدل ويشمل على الحل للأتى 1- اضافة فاصل صففة للطباعة كل 20 اسم 2- نقل بيانات الفصل المحدد الى ورقة العمل 2 ثم ترتيبها حسب الديانة ثم حسب الاسم 3- نقل البيانات المطلوبة الى ورقة العمل 3 Class_Lists.rar
×
×
  • اضف...

Important Information

  I accept