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

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

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

  • 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