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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





ترحيل الغيابات إلى سجل الغيابات حسب الحصص

السلام عليكم إحواني بعد عملية حجز الغيابات أريد ترحيلهم إلى سجل الغيابات الشهري للحفظ حيث يكون الترحيل بعد مقارنة الرقم ..



04-12-2019 09:45 مساء
chardoneret
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
قوة السمعة : 20
الاعجاب : 0
 offline 
السلام عليكم إحواني
بعد عملية حجز الغيابات أريد ترحيلهم إلى سجل الغيابات الشهري للحفظ
حيث يكون الترحيل بعد مقارنة الرقم الوطني للتلميذ مع تاريخ الغياب مع حصة الغياب
بعد المقارنة و استوفاء الشروط ترحل القيم حيث تقلب الحصة إلى حرف X
لكني لم أستطع و باؤت محاولتي بالفشل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  ترحيل حضور و غياب - Copy.xlsm   تحميل xlsm مرات التحميل :(34)
الحجم :(1211.184) KB





05-12-2019 07:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25488
الاعجاب : 179
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, x, y, z, ws As Worksheet, sh As Worksheet, i As Long
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        Set ws = ThisWorkbook.Worksheets("TAKABS")
        Set sh = ThisWorkbook.Worksheets("DAFTAR")
        
        a = ws.Range("A3:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
        
        For i = LBound(a) To UBound(a)
            x = Application.Match(a(i, 1), sh.Columns(2), 0)
            If Not IsError(x) Then
                y = Application.Match(ws.Range("B1").Value2, sh.Rows(12), 0)
                If Not IsError(y) Then
                    z = Application.Match(ws.Range("G1").Value, sh.Cells(12, y).Offset(2).Resize(1, 8), 0)
                    If Not IsError(z) Then
                        sh.Cells(x, y + z - 1).Value = "X"
                        Debug.Print sh.Cells(x, y + z - 1).Address
                    End If
                End If
            End If
        Next i
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub




05-12-2019 06:34 مساء
مشاهدة مشاركة منفردة [2]
chardoneret
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
قوة السمعة : 20
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
أخي و صاحبي و صديقي خليل ياسر شكرا جزيلا لك قبل التجربة و بعدها سأستغفر لك ربي في صلاتي
رفع الله مقامك و قدرك في الدنيا و الأخرة واصطبر علينا في أسألتنا حتى تعم الفائدة




05-12-2019 08:00 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25488
الاعجاب : 179
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
بارك الله فيك أخي الكريم وجزيت خيراً على كلماتك الطيبة 




17-12-2019 11:56 صباحا
مشاهدة مشاركة منفردة [4]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 577
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
قوة السمعة : 962
الاعجاب : 3
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
ما شاء الله عليك استاذ ياسر رائع وجزاكم الله خير




17-12-2019 01:10 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25488
الاعجاب : 179
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
تسلم أخي العزيز وجيه شرف الدين ومشكور على كلماتك الطيبة




19-12-2019 04:03 مساء
مشاهدة مشاركة منفردة [6]
mlk9632
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-02-2019
رقم العضوية : 11752
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 23-9-1962
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
السلام عليكم 
انني في حاجة ماسة الى هذا الملف 
اسالك اين اضع هذا الكود 
زر الترحيل الى الدفتر لا يعمل 
اريد ملفا جاهزا بارك الله فيك 
لك مني جزيل الشكر و التقدير 




19-12-2019 04:31 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25488
الاعجاب : 179
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
وعليكم السلام أخي الكريم
يبدو أنني نسيت الموضوع لأن ردك جاء متأخر
عموماً ضع الكود في أي موديول عادي .. وجرب الكود وحاول استخدام F8 لتنفيذ الكود سطر بسطر لتعرف ما يفعله الكود




19-12-2019 07:32 مساء
مشاهدة مشاركة منفردة [8]
mlk9632
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-02-2019
رقم العضوية : 11752
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 23-9-1962
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
السلام عليكم 
معذرة أخي 
عند الضغط على زر الترحيل الى دفتر
فإن المعلومات ترحل الى الشيت الثالث 
ساعدني بارك الله فيك وجعلها في ميزان حسناتك 




20-12-2019 01:11 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25488
الاعجاب : 179
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
وعليكم السلام أخي الكريم
هل أنت صاحب السؤال ..؟
إذا لم تكن صاحب السؤال أنصحك بطرح المشكلة الخاصة بك في موضوع مستقل وارفق الملف وضع شكل النتائج المتوقعة .. أما إذا كنت صاحب السؤال .. فلا أدري ما المشكلة بالضبط في تنفيذ الكود؟ وضح المشكلة بالصور إذا أمكن لأفهم ما المشكلة الآن بالضبط






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لترحيل الغيابات من شيت p إلى شيت غيابات الأساتذة ayoub2007
1 171 ayoub2007

الكلمات الدلالية
ترحيل ، الغيابات ، الغيابات ، الحصص ،


 







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

الساعة الآن 03:15 مساء

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