رجب جاويش

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

أخى الفاضل / مصطفى كامل شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

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

تفضل أخى طباعة1.rar

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

بالنسبة لشيت الراسبين سطر وسطر سوف تجده بعد شيت الدور الثانى

تفضل أخى كنترول نصف العام.rar

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

أخى الفاضل / قنديل برجاء ارسال كلملة مرور الشيتات

أخى الفاضل / خالد شكرا جزيلا وجزاك الله كل خير

أخى الفاضل /hussam alhamadani هون عليك أخى الفاضل الأستاذ الفاضل المهندس / طارق يقصد أن عنوان الموضوع لم يكن مناسب لتفاصيل الموضوع لكن لا يوجد تجاوز من شخصكم الكريم فى أى شئ آخر تقبل تحياتى

بعد اذن إخوتى المشاركين تفضل أخى محمد درجات الطالب الشفوي والسلوك.rar

أخى الفاضل / قنديل برجاء وضع كلمة مرور محرر الأكواد

أخى الفاضل كما أخبرك أخى محمد أن تكنولوجيا المعلومات والاتصالات هى الحاسب الآلى أما التربية المهنية وهى ( تكنولوجيا الصناعة - تكنولوجيا الزراعة - تكنولوجيا ادارة الأعمال والمشروعات )

ولو أردت اختصار أكثر استخدم هذا Sub ترحيـل() Range("AI8:AI117").Copy Select Case Range("E3").Value Case 9 To 12 Cells(8, Range("E3").Value + 29).PasteSpecial Paste:=xlPasteValues Case Is = 1 Range("AP8").PasteSpecial Paste:=xlPasteValues Case 2 To 6 Cells(8, Range("E3").Value + 42).PasteSpecial Paste:=xlPasteValues End Select Application.CutCopyMode = False Range("B6").Select End Sub

أخى الفاضل / خالد استخدم هذا الكود Sub ترحيـل() Range("AI8:AI117").Copy Select Case Range("E3").Value Case Is = 9 Range("AL8").PasteSpecial Paste:=xlPasteValues Case Is = 10 Range("AM8").PasteSpecial Paste:=xlPasteValues Case Is = 11 Range("AN8").PasteSpecial Paste:=xlPasteValues Case Is = 12 Range("AO8").PasteSpecial Paste:=xlPasteValues Case Is = 1 Range("AP8").PasteSpecial Paste:=xlPasteValues Case Is = 2 Range("AR8").PasteSpecial Paste:=xlPasteValues Case Is = 3 Range("AS8").PasteSpecial Paste:=xlPasteValues Case Is = 4 Range("AT8").PasteSpecial Paste:=xlPasteValues Case Is = 5 Range("AU8").PasteSpecial Paste:=xlPasteValues Case Is = 6 Range("AV8").PasteSpecial Paste:=xlPasteValues End Select Application.CutCopyMode = False Range("B6").Select End Sub

تفضل أخى أولى تانية علمى ثانية ادبى

أخى الفاضل اليك آخر نسخة من الشيت 2013

تفضل أخى ابراهيم قائمه3.rar

شكرا جزيلا أخى الفاضل ابراهيم

تفضل أخى ابراهيم قائمه2.rar

أختى الفاضلة / أم عبد الله شكرا جزيلا أختى الفاضلة على هذا المرور العطر والكلمات الطيبة

أختى الفاضلة / أم عبد الله شكرا جزيلا أختى الفاضلة وجزاك الله كل خير

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

أخى الحبيب / حمادة عمر دائما أنتظر هذا المرور الكريم جزاك الله كل خير أخى الحبيب