تفريغ زيارات الموجهين حسب تواريخ الزيارة

[علاء عامر]

ممكن حضراتكم تساعدوني في هذا الامر وجزاكم الله خيرا وزادكم من فضله وعلمة

Alaa.rar

Alaa.rar

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل

وفي طرح الموضوع يجب التوضيح للمطلوب قبل إرفاق الملف ..

تقبل تحياتي

[علاء عامر]

بالغ تحاتي لحضرتك أستاذ ياسر

للاسف انا لا أجيد لغة التعبير عن المطلوب ولكني شرحت ما اريد داخل الملف المرفق

جزاكم الله خير

وشكرا لحضرتك على الاهتمام

 

[ياسر خليل أبو البراء]

أخي الكريم يرجى تغيير اسم الظهور للغة العربية

يرجى إرفاق بعض النتائج المتوقعة ...

ولما أدرجت أيام الجمعة والسبت في ورقة البيانات؟؟

 

[علاء عامر]

شكرا لوقت حضرتك الثمين

وسأقوم بتجهيز الملف ليكون به بعض النتائج المتوقعة

وقمت بإدراج ايام الجمعة والسبت لان بعض الموجهين يتواجدون ببعض المدارس او في ديوان الادارة في ايام العطلات الرسمية

--- حضرتك طلبت تغير اسم الظهور للغة العربية ... ما هو أسم الظهور ؟؟

تقبل تحياتي

[ياسر خليل أبو البراء]

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

[علاء عامر]

السلام عليكم ورحمة الله وبركاته

اولا :اشكر لحضرتك سعة صدرك  وجزاك الله خير الجزاء

ثانيا : لقد قمت بالتعديل على الملف المرفق  بإدراج قوائم منسدلة لتسهل عملية الاختيار من المدارس

ثالثا :في sheet 2 يوجد بعض النتائج المتوقعة لعملية الفرز التلقائي ولكني قمت بها يدويا

 

تفريغ الزائرين.rar

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته أخي الكريم علاء عامر

الحمد لله أن تم تغيير اسمك للغة العربية ومشكور على الملف المرفق المعبر عن الطلب ..هكذا يكون العمل في المنتدى (أرجو من الجميع أن يحذو حذوك)

إن شاء الله سأحاول العمل على الملف الليلة .. ربنا ييسر الأمور

تقبل تحياي

 

[علاء عامر]

اخي الحبيب  أ / ياسر خليل

يجب ان يعلم الجميع ان هذا المنتدى ملك لنا جميعا ويجب المحافظة عليه ولن يحدث ذلك الا بالمحافظة على التعليمات التي تنظم العمل داخل المنتدى حتى نستفيد جميعا من جميع الموضوعات

اللهم ارزقنا واياكم العلم النافع

وجزا الله كل من تعلم العلم وعلمه خير الجزاء

تقبل تحياتي

[ياسر خليل أبو البراء]

أخي الكريم علام عامر

أعتذر عن التأخر في الرد عليك ..ولكن ما نسيتك

إليك الكود التالي يوضع في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل المسماة "كشف تفريغ المدارس" ثم في النافذة لمحرر الأكواد ضع الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B2" Then Exit Sub
    Dim X, I&, J&, K&
    
    With Sheet1
        X = .Range("A2:AD" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
    
    ReDim Y(1 To UBound(X, 2) * 3, 1 To 3)
    
    For I = 2 To UBound(X)
        For J = 4 To UBound(X, 2)
            If X(I, J) = Target Then
                If Weekday(X(1, J), vbSunday) < 6 Then
                    K = K + 1
                    Y(K, 1) = X(I, 2)
                    Y(K, 2) = X(I, 3)
                    Y(K, 3) = X(1, J)
                End If
            End If
        Next J
    Next I
    
    Range("A5").CurrentRegion.Offset(1).ClearContents
    If K > 0 Then Range("A6:C6").Resize(K).Value = Y
End Sub

تقبل تحياتي

 

تفريغ الزائرين.rar

[علاء عامر]

اخي الغالي أ / ياسر

جزاكم الله خير  ... ونسأل الله العظيم من فضله العظيم ان يعطيكم العافية ويزيدكم من فضله وعلمه

 

[ياسر خليل أبو البراء]

أخي الكريم علاء عامر

الحمد لله أن تم المطلوب على خير .. وجزيت خيراً بمثل ما دعوت

تقبل تحياتي