ما الخطأ فى هذا الكود

[محمود_الشريف]

السادة / أعضاء المنتدى   المحترمين

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

إليكم كود خاص بمسح بيانات شيت بتاريخ محدد

ولكن به خطأ ولا أعرف كيف يتم تصحيحه

 

الكود كالتالى

Sub Auto_Open()
If Date > #1/23/2014# Then
For Each x In ThisWorkbook.Sheets
x.UsedRange.Clear
Next
ThisWorkbook.Save
End If
End Sub

[أبو حنــــين]

عل افتراض ان تاريخ مسح البيانات هو بعد  : 22 / 01 / 2014

 

يصبح الكود كالتالي

Private Sub Workbook_Open()

    If Date > #1/22/2014# Then
    For Each x In ThisWorkbook.Sheets
    x.UsedRange.Clear
    Next
    ThisWorkbook.Save
    End If

End Sub

و لاحظ انه يكتب في الحدث  Workbook_Open

[محمود_الشريف]

أخى فى الله 

الأستاذ القدير / أبو حنين

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

وزادكم الله من فضله

وتقبلوا منى وافر الإحترام والتقدير

[أبو حنــــين]

هذا المثال للكود السابق

و هو مظبوط على التاريخ 26 / 1 / 2014

افتح الملف لترى البيانات

اغلقه ثم غير تاريخ النظام

افتح الملف من جديد

Book1.rar

[محمود_الشريف]

عندى إستفسار بسيط 

هل يمكن إضافة توقيت محدد بجانب التاريخ

يعنى يصبح التاريخ هكذا

 If Date > #1/31/2014 5:00 pm# Then

[أبو حنــــين]

يصبح الكود كالتالي

Private Sub Workbook_Open()

    If Date > #1/22/2014# Then
    If Time = #5:00:00 PM# Then
     
    For Each x In ThisWorkbook.Sheets
    x.UsedRange.Clear
    Next
    ThisWorkbook.Save
    End If
End If

End Sub

[محمد ابو البـراء]

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

اولاً: اشكر استاذنا الفاضل ابو حنين على خدمة اخوانه

جعل الله اعماله في ميزان حسناته

ثانياً :والى الاخ الحبيب / محمود الشريف بارك الله فيك

وذكرتني بقول السلف  (ضاع العلم بين امرين الكبر والحياء)

فجزاكم الله خيراً على تواضعكم

[محمود_الشريف]

أخى فى الله 

الأستاذ القدير / أبو حنين

لا تسعفنى الكلمات فى التعبير عن شكرى لكم 

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

نسأل الله عز وجل أن يحفظكم بسر حفظه لكتابه الحكيم

وتقبلوا منى وافر الإحترام والتقدير

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم والحبيب / محمد ابو البراء

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

وأرسل إليكم تحية طيبة ملفوفة بصلوات محمدية تحمل بين طياتها

شفاعة حبيب الرحمن 

وتقبل منى وافر الإحترام والتقدير