استخراج تاريخ الغياب

[بوقصي]

السلام عليكم ورحمة الله وبركاته ،،،
ارجو منكم المساعده في ايجاد معادله تسجيل توار يخ الغيابات في عمود تواريخ الغيابات بناءاً على المسجل بالجدول غياب A ، وذالك بستخدام المعادلات ان أمكن ولكم جزيل الشكر ،،،

TIMESHEET.xlsx

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

لا يمكن ان تضع في خلية واحدة حاصل معادلة تستخرج  اكثر من نتيجة

يمكن ذلك بواسطة الكود

[بوقصي]

هل بالامكان عملها بالمعادلات في اكثر من خليه ، اذا كان بالامكان ارجو عملها ، واذا كان لايمكن ذالك ارجو عملها بالاكواد

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

جرب هذا الكود

Option Explicit
Sub GET_DATE_OFF()
  Dim Sh As Worksheet
  Dim Ro%, i%, My_rg As Range, Cel As Range
  Dim Dic As Object, arr

  Set Sh = Sheets("New Fomat Attendance")
  Set Dic = CreateObject("Scripting.Dictionary")

Ro = Sh.Cells(Rows.Count, 1).End(3).Row
If Ro < 5 Then Exit Sub
Sh.Range("AI5").Resize(Ro).ClearContents
For i = 5 To Ro
    Set My_rg = Sh.Range("D" & i).Resize(, 31)
    For Each Cel In My_rg
        If UCase(Cel) = UCase("OFF") Then
          Dic(Cells(4, Cel.Column).Value) = _
          Dic(Cells(4, Cel.Column).Value) & ","
        End If
    Next Cel
        If Dic.Count Then
           Sh.Range("AI" & i) = Join(Dic.Keys, " , ")
        End If
    Dic.RemoveAll
Next i
End Sub

الملف مرفق

Abscent_Date.xlsm

[بوقصي]

اشكرك استاذي سليم على المساعده لكن لم يعمل لدي عند اضافة غيابات اخرى 

وهل بالامكان ان اختار من قائمه منسدله اذا اردت تواريخ الغياب او تواريخ الاجازات او الاعذار الطبيه 

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

الان, بوقصي said:

اشكرك استاذي سليم على المساعده لكن لم يعمل لدي عند اضافة غيابات اخرى 

وهل بالامكان ان اختار من قائمه منسدله اذا اردت تواريخ الغياب او تواريخ الاجازات او الاعذار الطبيه 

بعد تعديل البيانات ( اضافة   حذف   الخ..) اضغط على الزر لتحديث البيانات

[بوقصي]

شكراً لك استاذ سليم واستاذ احمد يوسف نجح الكود ، لكن هل بالامكان استخراج التواريخ من خلال الاختيار من قائمه منسدله اذا اردت الغيابات A او الاعذار S او الاجازات OFF

[أحمد يوسف]

بالتأكيد يمكن عمل هذا ببساطة -تفضل تم التعديل على الملف , وبكده يجب غلق الموضوع فتم تنفيذ كل طلباتك وذلك حتى لا يأخذ الموضوع أكبر من حجمه

 

Abscent_Date1.xlsm

[بوقصي]

الف الف شكر لكم جميعاً وأعتذر على  الاطالة