نقل بيانات محصورة بين تاريخين

[حراثي تواتي]

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

ارجوا من اساتذتنا الكرام مساعدتي في نقل تواريخ محصورة بين تاريخين من جدول الى جدول اخر كما هو موضح في الصورة

وشكرا مسبقا

غير مسموح بوضح اكثر من طلب وسؤال فى نفس المشاركة .. تم تقسيم وعمل مشاركة جديدة لطلبك الأخر للبيانات الغير محصورة بين تاريخين

نقل بيانات غيرمحصورة بين تاريخين

تواتي 35.xlsx

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

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

Option Explicit

Sub Filter_Data()
Dim Rg_A As Range, Rg_L As Range
Dim Cret_Rg As Range

With Sheets("Sheet1")
        On Error Resume Next
        .ShowAllData
        On Error GoTo 0
      Set Rg_A = .Range("A4").CurrentRegion
      Set Rg_L = .Range("L4").CurrentRegion
      Rg_L.Clear
    .Range("R2").Formula = "=AND(D5>=$H$4,D5<=$J$4)"
        Set Cret_Rg = .Range("R1:R2")
        Rg_A.AdvancedFilter 2, Cret_Rg, Range("L4")
   Cret_Rg.Clear

End With

End Sub