حذف بيانات بشرط

[لزهر مدلل]

السلام عليكم

أريد أن أحذف بيانات في جدول بشرط التاريخ , مثلا أريد حذف البيانات التي تاريخها تجاوز 45 يوما

 

الملف في المرفقاتClasseur1.xlsx

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub DelRows()
Dim x As Integer, i As Long, y As Long
y = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For i = y To 2 Step -1
x = WorksheetFunction.Days360(Cells(i, "A"), Date)
If x < 45 Then
Cells(i, "A").EntireRow.Delete
End If
Next
End Sub

 

[Ali Mohamed Ali]

أحسنت استاذ ابراهيم بارك الله فيك

[لزهر مدلل]

في ١٥‏/١١‏/٢٠١٨ at 21:25, ابراهيم الحداد said:

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

استخدم هذا الكود

Sub DelRows()
Dim x As Integer, i As Long, y As Long
y = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For i = y To 2 Step -1
x = WorksheetFunction.Days360(Cells(i, "A"), Date)
If x < 45 Then
Cells(i, "A").EntireRow.Delete
End If
Next
End Sub

 

مشكور أخي إبراهيم

هل هذا الكود أضعه في sheet1 أو thisWorkbook

[ابراهيم الحداد]

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

ضع الكود فى موديول عادى و خصص له زر فى الشيت الذى تريده  حتى لو كانت اكتر من شيت فلكل شيت زر مخصص له

 

 

[لزهر مدلل]

بارك الله فيك أخي الكريم