اريد طريقة لاستخراج ايام الغياب من ايام الحضور

[hitech]

السلام عليكم

اريد استخراج ايام الغياب من هذا الجدول

 

 

 

 

 

جدول 1.xls

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

Try this file

 

salim_tab.xls

[hitech]

ربنا يباركلك جزاءاك الله كل خير انا عاوز اغير التواريخ لان كل موظف حضوره بيختلف عن الاخر عشان اطلع ايام الغياب ايه الحل

بمعنى الشيت فيه ايام الحضور للموظف وعاوز اطلع منه الايام اللى غاب فيها عاوز اطلع ايام 7و8و15و17 لانهم مش واضحين وده ايام الغياب

باستثناء الجمعة والسبت لانهم اجازة رسمى

تم تعديل فبراير 11, 2019 بواسطه hitech

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

جرب هذا الماكرو

Option Explicit
Sub Find_Missing()
With Sheets("ورقة2")
Dim x
Dim y
Dim cell As Range
Dim arr()
Dim k%: k = 1
Dim Myrange As Range: Set Myrange = .Range("a1", Range("a1").End(4))
Dim my_Min: my_Min = Application.Min(Myrange)
Dim my_max: my_max = Application.Max(Myrange)
x = my_Min
.Range("d2", Range("d1").End(4)).ClearContents
For Each cell In Myrange

If Month(x) <> Month(Myrange.Cells(1)) Then GoTo 1:
 y = Not (IsError(Application.Match(x, Myrange, 0)))
 If Not y Then
 ReDim Preserve arr(1 To k): arr(k) = Format(x, "d")
  k = k + 1
 End If
 x = x + 1
1:
Next
Range("d2").Resize(UBound(arr) - LBound(arr) + 1, 1) = Application.Transpose(arr)
End With
End Sub

الملف مرفق

SALIM_TAB.xlsm

[hitech]

شكرا جزيلا لتعب حضرتك بس ايام الغياب 7و8و15و17 حضرتك مطلعها كثير اوى

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

1 ساعه مضت, hitech said:

شكرا جزيلا لتعب حضرتك بس ايام الغياب 7و8و15و17 حضرتك مطلعها كثير اوى

فتش جيداً في التواريخ اللي انت واضعها ترى ان التواريخ التي استخرجها الماكرو غير موجودة في الجدول

[hitech]

انا بس مش عاوز اظهر الجمعة والسبت لانهم عطلة رسمية ويا ريت حضرتك تقولى لو فيه يوم اجازة اخفيه ازاى وشكرا جزيلا اخى الكريم على تعبك معايا

تم تعديل فبراير 12, 2019 بواسطه hitech