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

[Ahd Mhd]

المطلوب : التعديل على المعادلة (فى الخلية D3 او F3) لاستخراج القيم مرتبة وغير مكررة من الجدول رقم (1) - الملون بالاخضر - من تاريخ 12 ابريل الى تاريخ 17 ابريل فقط. مرفق ملف
مع الشكر.

Register150419.xlsm

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

أظن أنه من الأفضل العمل من هلال الكود

Option Explicit
Sub sort_by_collections()
Dim obj As Object
Dim i%
Dim ro%: ro = Cells(Rows.Count, 2).End(3).Row
Range("D3:F100").ClearContents
If ro < 3 Then ro = 3
Set obj = CreateObject("System.Collections.ArrayList")
 With obj
For i = 3 To ro

  If Range("b" & i) <> "" _
        And Not .contains(CDate(Range("b" & i))) _
        And Range("b" & i) >= Range("g2") _
        And Range("b" & i) <= Range("H2") Then
    .Add Range("b" & i).Value
    End If
  Next
 .Sort
    Range("d3").Resize(.Count - 1).Value = _
    Application.Transpose(.toarray)
   .Reverse
    Range("f3").Resize(.Count - 1).Value = _
    Application.Transpose(.toarray)
End With
Set obj = Nothing
End Sub

الملف مرفق

Register_salim.xlsm

[Ahd Mhd]

اشكرك على الاهتمام يا استاذ سليم حاصبيا جهد مشكور

لكنى اريدها بالمعادلات وليس باالاكواد لمن يستطيع المساعدة من الاخوة الاعضاء