كود او معادلة يمسح نطاق معين بعد مرور مثلا 30 يوم او 60

[زياد عبد الجليل]

السلام على جميع الاخوة الافاضل اما بعد:

اطلب مساعدة تتمثل في كود او معادلة  يمسح محتوى عمود مثلا من b1:b2  بعد مرور مثلا 90يوم ...وليس بدلالة تاريخ معين ولكن الشرط هو عند مرور 90 يوم او 60 او اي عدد يتم مسح النطاق اليا و يخرج رسالة ان امكن تقول انه تم مسح النطاق ...ولكم مني جزيل الشكر

[زياد عبد الجليل]

لقد وجدت هذا الكود و عدلت عليه و لا اعلم ان كان سيعمل ام لا و هو و ضع شرط مسح خلايا النطاق بتاريخ 09/01/...... الاول من سبتمبر من كل سنة و لا اعلم هل التعديل الذي قمت به صحيح ام لا فقد جربت ووضعت تاريخ الغد و سانتظر لارى النتيجة

الكود:

Private Sub Workbook_Open()

If Date >= CDate("15/05/2014") Then
 'هنا عوض تحديد اليوم و الشهر و السنة قمت فقط بتحديد اليوم و الشهر و تركت السنة 0000 بدون تحديد

(If Date >= CDate("01/09/0000") Then)

هل هذا صحيح ام لا
  Application.ScreenUpdating = False
    Sheet1.Range("B1:I2880").ClearContents
    (With Sheet2.Range("C8:AA40"
        .Value = .Value
    End With
    Me.Save
    Application.ScreenUpdating = True
End If

End Sub

 

هل هذا التعديل صحيح ام لا و لكم مني جزيل الشكر

تم تعديل أغسطس 4, 2016 بواسطه زياد777