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

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


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


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





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

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



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





05-12-2019 07:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24602
الاعجاب : 2774
 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

أثارت هذه المشاركة إعجاب: ali mohamed ali، chardoneret، السعيد الجزائري، مدحت حافظ، مالك ماريه،



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

أثارت هذه المشاركة إعجاب: YasserKhalil، مدحت حافظ، السعيد الجزائري،



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

أثارت هذه المشاركة إعجاب: مدحت حافظ، السعيد الجزائري،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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

أثارت هذه المشاركة إعجاب: مالك ماريه،



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




19-12-2019 04:31 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24602
الاعجاب : 2774
 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
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 1
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
السلام عليكم 
معذرة أخي 
عند الضغط على زر الترحيل الى دفتر
فإن المعلومات ترحل الى الشيت الثالث 
ساعدني بارك الله فيك وجعلها في ميزان حسناتك 




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







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


 







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

الساعة الآن 10:12 مساء

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