أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل


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





متابعة يومية للطلاب

السلام عليكم ورحمة الله وبركاته أحبتي الأفاضل لدي شيت اكسل فيه ورقتان الورقة الأولى باسم المتابعة اليومية والورقة الثان ..



21-01-2020 08:42 مساء
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
السلام عليكم ورحمة الله وبركاته 
أحبتي الأفاضل
لدي شيت اكسل فيه ورقتان الورقة الأولى باسم المتابعة اليومية والورقة الثانية باسم اجمالي الدرجات  فالذي أريده منكم تكرماً مساعدتي 
حيث أنني أريد كلما أرصد أي  درجة لأي طالب في ورقة المتابعة اليومية يتم ترحيل الاسماء والدرجات تلقائياً إلى ورقة إجمالي الدرجات بتاريخ اليوم
الذي تم فيه الرصد أو التعديل تلقائياً
  والشئ الآخر أريد عندما أريد أن أغير التاريخ لليوم الآخر يتم مسح جميع الدرجات في ورقة المتابعة اليومية لأبدأ بمتابعة الطلاب في يوم جديد وهكذا 
أتمنى وضحت الفكرة - فهل لديكم طريقة لمساعدتي وجزاكم الله خيرا
وهناك ملف مرفق 
 
 
  المتابعة اليومية.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(12.44) KB





22-01-2020 07:57 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif متابعة يومية للطلاب
وعليكم السلام
تم نقل الموضوع للقسم المناسب حتى يراه الأعضاء .. في قسم الإكسيل أسئلة وإجابات




22-01-2020 12:37 مساء
مشاهدة مشاركة منفردة [2]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif متابعة يومية للطلاب
بارك الله فيكم 




22-01-2020 02:15 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 492
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3816
الاعجاب : 65
 offline 
look/images/icons/i1.gif متابعة يومية للطلاب
اولاً:    لحسن التعامل مع الكود من حيث النسخ واللصق  تم تغيير اسماء الصفحات الى اللغة الأجنبية
               وهذا ما انصح به دائماً
ثانياً :   قم بادراج التاريخ في الخلية  B3 
ثالثاً :   ازالة الخلايا المدمجة لانها تعيق عمل الكود
الكود 

Option Explicit
Sub Transfere_data()
Dim M As Worksheet, E As Worksheet
Dim RG_COPY As Range, R%, My_Max%
Dim RG_to As Range, tt%, X%, Answer%
Dim finD_rg As Range
Set M = Sheets("MYTABA3A"): Set E = Sheets("Ejmali")
Set RG_COPY = M.Range("A5").CurrentRegion
R = RG_COPY.Rows.Count
Set RG_COPY = RG_COPY.Resize(R - 1).Offset(1)
X = Application.CountIf(E.Range("B:B"), M.Range("B3"))
If X > 0 Then
 Answer = MsgBox(" The Today's Data is Already exits", vbYesNo)
    If Answer <> 6 Then
      Exit Sub
    Else
      Set finD_rg = E.Range("B:B").Find(M.Range("B3"), lookat:=1)
         With finD_rg.Offset(, -1)
           .Resize(R - 1, 6).ClearContents
           .Resize(R - 1) = RG_COPY.Columns(1).Value
           .Offset(, 1).Resize(R - 1) = M.Range("B3")
           .Offset(, 2).Resize(R - 1, 4).Value = _
           RG_COPY.Columns(2).Resize(, 4).Value
         End With
      Exit Sub
    End If 'For Answer
 End If 'X=0

If R = 1 Then MsgBox "no data to Transfer": Exit Sub
Set RG_to = E.Range("A2").CurrentRegion.Columns(1)
My_Max = RG_to.Rows.Count
My_Max = IIf(My_Max = 1, 3, My_Max + 3)
  
  With E.Cells(My_Max, 1)
    .Resize(R - 1).Value = RG_COPY.Columns(1).Value
    .Offset(, 1).Resize(R - 1).Value = M.Range("b3")
    .Offset(, 2).Resize(R - 1, 4).Value = _
    RG_COPY.Columns(2).Resize(, 4).Value
  End With
End Sub

الملف مرفق للتجربة

 
 
 
  Abscent_sdt.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(31.321) KB





22-01-2020 04:23 مساء
مشاهدة مشاركة منفردة [4]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif متابعة يومية للطلاب
بارك الله فيكم وجزاكم الله كل خير
أجرب وأعطيك النتائج 
بيض الله وجهك






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت مراقبة ومتابعة حركات الخزينة - حسام خطاب الصقر
74 5512 عبد الواحد محمد
شيت متابعة الشيكات الصادره والوارده - حسام خطاب الصقر
42 5365 جنان السبيل
برنامج متابعة الاقساط هيثم العاني
0 352 هيثم العاني
برنامج متابعة الشيكات الوارده والصادره - حسام خطاب الصقر
211 25424 sayed_973
برنامج لتخطيط ومتابعة الانتاج لشركتى عبدالجيد
9 1645 عبدالله فتحى

الكلمات الدلالية
متابعة ، يومية ، للطلاب ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:19 صباحا

أعلن هنا
أعلن هنا
أعلن هنا