تعديل كود حذف البيانات في مدى محدد اذا كانت قبل تاريخ اليوم ( يوم فتح الملف )ليكون اكثر مرونة وهو كتابة تاريخ اليوم في خلية

[مصطفى محمود مصطفى]

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

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

لكم تحياتي

Sub ClearSheet()
Dim Ddate As Date
Ddate = "28/02/2015"

If Date > Ddate Then
Sheet1.Cells.ClearContents
End If
End Sub

 

ClearAfterDate.xlsm