اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

أخي الكريم

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

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

تقبل تحياي

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information