حذف سطور بشرطين

[لزهر مدلل]

السلام عليكم

لدي كود vb يعمل على حذف السطور التي يتجاوز التاريح في العمود D 45 يوما و أريد تعديله بإضافة شرط آخر و هو أن يكون العمود H  فارغا حتى يقوم بحذف السطر و شكرا.

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

 

[محي الدين ابو البشر]

If x > 45 And cells(I,"H")= "" Then

 

[لزهر مدلل]

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

[محي الدين ابو البشر]

🙏