فصل صف كامل به قيمة رقمية إلى شيت منفصل

[hosamasal]

أريد فصل الصفوف المدرج بها تاريخ في شيت منفصل

HOS_ROW.xlsx

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

تفضل هذا الماكرو

صفحة  RESULT  من هذا الملف

Option Explicit
Sub GET_DATA()
Sheets("RESULT").Range("B3").CurrentRegion.Clear

    With Sheets("DATA SOURCE")
        .AutoFilterMode = False
        .Range("B3").CurrentRegion.AutoFilter 7, Criteria1:="=" & "*/*"
        .Range("B3").CurrentRegion.SpecialCells(12).Copy
        Sheets("RESULT").Range("B3").PasteSpecial (8)
        Sheets("RESULT").Range("B3").PasteSpecial
        .AutoFilterMode = False
    End With

End Sub

الملف مرفق (اضغط الزر  Run فقط)

Dates.xlsm

[hosamasal]

جزاكم الله خيرا

أريد ترحيل الصف الذي به تاريخ من شيت DATA SOURCE  إلى شيت APPOINTMENT باستخدام المعادلات وليس الأكواد