زياد عبد الجليل قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 السلام على جميع الاخوة الافاضل اما بعد: اطلب مساعدة تتمثل في كود او معادلة يمسح محتوى عمود مثلا من b1:b2 بعد مرور مثلا 90يوم ...وليس بدلالة تاريخ معين ولكن الشرط هو عند مرور 90 يوم او 60 او اي عدد يتم مسح النطاق اليا و يخرج رسالة ان امكن تقول انه تم مسح النطاق ...ولكم مني جزيل الشكر رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 (معدل) لقد وجدت هذا الكود و عدلت عليه و لا اعلم ان كان سيعمل ام لا و هو و ضع شرط مسح خلايا النطاق بتاريخ 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.