مساعدة في استخراج تاريخ بشرط

[mr omar]

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

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

المصنف (1).xlsx

[lionheart]

Sub Test()
    Dim c As Range, s As String
    For Each c In [F4,H4,I4]
        If IsEmpty(c) Then s = s & IIf(s > "", ", ", "") & c.Address(False, False)
    Next c
    If s > "" Then MsgBox "You Must Fill " & s, 48, "Officena": Exit Sub
    For Each c In Range("A4:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If c.Value = [F4] And c.Offset(, 2).Value2 > [I4].Value2 Then
            [J4].Value2 = c.Offset(, 2).Value2: Exit For
        End If
    Next c
End Sub

 

[mr omar]

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