مساعدة في طريقه ايجاد تواريخ قبل فتره محددة من تاريخ اليوم

[ماجد القثمي]

السلام عليكم

حاولت كثيرا ان اجد كود يقوم  بالبحث في العمود a  الموجود به تواريخ قديمه .. والبحث اذا كان التاريخ قد مضى عليه 6 اشهر من اليوم(يوم تنفيذ الكود) يقوم بنسخه الى مكان اخر

علما بأن العمود مضبوط على (Category=(general .. والتواريخ مكتوبه بالفورميولا التالية (Thu, March 24, 2016)

حاولت وضع الكود التالي ولكن لم يعمل>> (cl) متغير الاسطر في العمود A:

"If cl.value < Format(Date -180, "ddd, mmmm dd, yyyy") Then"

وكذلك الكود:

"If cl.value < Format(Date, "ddd, mmmm dd, yyyy") -180 Then"

وفالمقابل عمل الكود التالي بشكل جيد فقط عندما غيرت Category العمو A من general الى date:

" If cl.value < Date - 180 Then"

وانا لا اريد تغير Category .. اريدها ان تبقى General

فمالحل؟؟

وشكرا

تم تعديل مارس 24, 2016 بواسطه ماجد القثمي

[ماجد القثمي]

السلام عليكم

 تم عمل مرفق مثال للتوضيح

شكرا

مقارنه التواريخ.rar

[ماجد القثمي]

الحمدلله يا اخوان توصلت للحل

VBA لا يستطيع تمييز التواريخ في صيغه تيكست حتى يعمل بحث بالتاريخ او اي عمليات اخرى

لذى يجب تحويل التكست الى صيغه تاريخ معروفه وهي dd/mm/yyyy

وذلك باستخدام الخاصيه text to columnتقوم بتقسيم التاريخ المكتوب بشكل تكست على اعمدة عمود يوم وعمود شهر وعمود سنه

ثم تجميعها مره اخرى في عمود اخر بصيغه dd/mm/yyyy لتمكن من تطبيق العمليات على التاريخ بهذه الداله qعمود السنه p عمود الشهر oعمود اليوم 

=Date(Q2,Month(1&O2),P2))