حذف صفوف معينة بعد مدة من الزمن

[مهند الزيدي]

السلام عليكم ... أرجو مساعدتي في عمل الموجود داخل المرفق ... وفقكم الله لكل خير

حذف صفوف معينةبعد مدة من الزمن.rar

[ibn_egypt]

السلام عليكم ... أرجو مساعدتي في عمل الموجود داخل المرفق ... وفقكم الله لكل خير

 

اخى الفاضل ( وعليكم السلام ورحمة الله وبركاته )

 

ضع هذا الكود في حدث فتح الملف Workbook_Open

Private Sub Workbook_Open()
Dim Interval As Integer
Interval = DateTime.Date - Sheet1.Range("A1")
If Interval >= 30 Then
        Sheet1.Range("B4:B8").EntireRow.Delete
    End If
End Sub

أولا ضع التاريخ الذي تريد بداية العد منه في الشيت في الخلية A1 أو اى خلية اخرى تختارها ولكن غير A1 في الكود الى الخلية التى تريدها

 

هنعرف متغير باسم Interval تمام

 

المتغير ده هو ناتج طرح تاريخ اليوم - التاريخ الموجود بالخلية A1

 

لو قيمة ال Interval دي اكبر من او تساوي الفترة اللى انت عاوزها بقي 30 او 60 يوم زي ما تحب

 

نحدد المدي اللى انت عاوز تحذف صفوفه وانا هنا حاطط المدي اللى انت حددته في الملف B4:B8

 

وطبعا حطينا الكود في فتح الملف علشان تلقائي بمجرد الفتح لو انطبق الشرط يحذف مباشرة ..

 

ارجو انى اكون افدتك وهذا العمل هو طلبك

 

تحياتي

[مهند الزيدي]

أشكرك .. أخي Ibn_egypt ....بس أنا أريد أن يتم الحذف بعد مرور مدة أوتماتيكيا بدون تحديد التاريخ في خلية .... وشكرا

[مهند الزيدي]

أخي العزيز IBN_egypt  ....أشكرك جدا علي المساعدة ... أرجو منك تعديل الكود ... بحيث يحذف الصفوف المحددة اوتماتيكيا بعد مدة شهر .. بدون كتابة التاريخ في الخلية A1.....وشكرا