ادا كنت قد فهمت طلبك بشكل صحيح يمكنك الحصول على دالك بتفعيل هدا السطر حيث يتم فلترة البيانات بشرط عمود المفتاح ما بين التواريخ الموجودة في الخلايا D4 و F4
'******* اظافة شرط بين تاريخين
rng.AutoFilter field:=3, _
Criteria1:=">=" & CDbl(WS.[D4]), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(WS.[F4])
اما بالنسبة ل كود عمل نسخة احتياطية كل عشر دقائق
ضع الكود التالي في module
Sub SaveBackup()
Dim filePath$,folderName$,copyName$
Dim ThisBook As Workbook : Set ThisBook = ThisWorkbook
'مسارالحفظ '
filePath = "D:":
'اسم مجلد الحفظ
folderName = "BACKUPS"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
On Error Resume Next
copyName = filePath & "\" & folderName & " " & _
Format(Now, "dd-mmmm-yyyy")
'انشاء مجلد الحفظ في حالة عدم العثور عليه
If Dir(copyName, vbDirectory) = "" Then MkDir copyName
ThisBook.SaveCopyAs copyName & "\" & ThisBook.Name & " " & _
Format(Now, "dd-mmmm-yyyy-HH-MM-SS") & ".xlsm"
' قم بتعديل وقت الحفظ بما يناسبك
Application.OnTime Now + TimeValue("00:10:00"), "SaveBackup"
'حفظ المصنف الرئيسي
' ActiveWorkbook.Save
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
وفي حدث Private Sub Workbook_Open
Private Sub Workbook_Open()
Call SaveBackup
End Sub
تفضل جرب المرفق التالي
بالتوفيق
فلترة وحفظ.xlsm