استدعاء احترافي لحركة الطلاب حضور واجازات

[Happy01]

السلام عليكم ..

اعزائي علماء الاكسل والنخب واصحاب الانامل المتميزه في هذا المنتدى المتميز ..

اطرح اليكم هذا الموضوع رغم محاولات يائسه لتنفيذ استدعاء حركة الطلاب من الورقة المرحل اليها one الى ورقة الاستدعاء Ehtiag حسب التاريخ اليومي ..

مرفق لكم الشرح في ملف الاكسل ..

تم اخذ الملحق من هذا المنتدى المتميز وتم التعديل عليه بالاستفاده من اكواد السيد @سليم حاصبيا له كل الشكر والتقدير ..

استدعاء حركة الطالب للحضور والاجازات والغياب حسب التاريخ.xlsm

[سليم حاصبيا]

Try This Macro

Option Explicit

Dim E As Worksheet
Dim O As Worksheet
Dim RO%, RE%, i%, col%
Dim x1%, x2%, y%, Total%
Dim F_rg As Range
Dim Where As Range
Dim Bol As Boolean
'+++++++++++++++++++++++++++++++++++
Sub Begin()
  Set O = Sheets("ONE")
  Set E = Sheets("Ehtiag")
  RO = O.Cells(Rows.Count, 1).End(3).Row
  col = E.Cells(1, Columns.Count).End(1).Column
  RE = E.Cells(Rows.Count, 1).End(3).Row
  Set Where = O.Range("J1:J" & RO)
  E.Range("C3").Resize(RO - 2, col - 2).Clear
End Sub
'+++++++++++++++++++++++++++++++++
Sub Ila_al_Amam_Ser()
Application.ScreenUpdating = False
Begin
For i = 3 To RE
 Set F_rg = Where.Find(E.Range("A" & i), LOOKAT:=1)
  If Not F_rg Is Nothing Then
   x1 = F_rg.Row: x2 = x1
   Do
      Bol = IsError(Application.Match(O.Cells(x2, 1), _
       E.Cells(1, 1).Resize(, col), 0))
          If Not Bol Then
            y = Application.Match(O.Cells(x2, 1), _
            E.Cells(1, 1).Resize(, col), 0)
            E.Cells(i, y) = "Ok"
          End If
      Set F_rg = Where.FindNext(F_rg)
      x2 = F_rg.Row
      If x2 = x1 Then Exit Do
   Loop
 End If
Next i
Total = Application.CountA(E.Range("C3").Resize(RE - 2, col - 2))
If Total = 0 Then GoTo Buy_Buy

With E.Range("C3").Resize(RE - 2, col - 2)
 .Borders.LineStyle = 1
  With .SpecialCells(2, 23)
   .Font.Bold = True
   .Font.Size = 16
   .InsertIndent 1
   .Interior.ColorIndex = 35
  End With
 
End With
Buy_Buy:
Application.ScreenUpdating = True

End Sub

File Included

happy_0.xlsm

[خيماوي كووول]

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

بعد اذن اخوي العزيز سليم ..

ملف اكسل .. احتمال كبير ممكن يفيدك في غياب واستئذان وتأخر الطلاب

ادخل البيانات المطلوبة في صفحة data ..

ادخال الغياب عن طريق رقم الطالب بشكل يومي .. بعد الانتهاء من ادخال الطلاب .. الغائبين .. قم بالضغط على حفظ .. وسوف يتم حفظها في صفحة اخرى ..

امكان طباعة تقرير غياب الطلاب .. على شكل كلندر .. بمجرد ادخال رقم الطالب .. والضغط على Update

احصائية الغياب لجميع الفصول ..

احصائية غياب الطلاب لفصل واحد

APSENTSTUDENT.xlsm

[Happy01]

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

اقدم خالص شكري وتقديري للسيد @سليم حاصبيا وادعوا الله ان يرزقك ماتتمناه ويطول بعمرك وينعم عليك بالرزق الوفير ..

( الحل الذي قدمته ممتاز جدا ولكن اتمنى بدل عن وضع ok في الخليه يتم نقل الحركة كما هي حاضر او اجازه او غياب او غير ذلك كما في العمود c في ورقة one ) ..

 

شكري وتقديري لك سيد @خيماوي كووول للتفاعل مع الموضوع .

وفقكم الله 

[سليم حاصبيا]

عندي عادة في الأكواد 

لا استعمل اللغة العربية لذلك استبدل المربع الأحمر بالمربع الأزرق (الصورة)

الملف مرفق

 

happy_New.xlsm

[Happy01]

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

هذا هو المطلوب 100 %

والله ثم والله يا سيد @سليم حاصبيا ما اقدر اعبر عن شكري لك واسأل الله ان يزيدك علم وبصيرة وينور حياتك وبدون ماتعرف المدام 😁😁( الله يزوجك )

الى هنا يعتبر هذا اكبر انجاز حقيقه ..

واذا مابتمانع ياغالي

اولا لما اسوي تصفية في صفحة Tarhil للصف 1 واكبس ترحيل يحذف التصفيه ممكن تعديل تبقى التصفية مكانها ... انا سويت الطلب سابقا..

ثانيا اذا ظهر تعديل جديد مابتمانع ..

ممنون لك والله الف الف شكر 🙏