متابعه تاريخ صلاحيه

[احمد عـــزام]

الصلاحيه.rar

[محمد الورفلي1]

السلام عليكم

تفضل جرب الحل عن طريق الماكرو

 

الصلاحيه1.rar

[احمد عـــزام]

ماشاء الله عمل اكثر من رائع بارك الله 

يبارك فيه بس انا مش لاقى دوال

حتى دخلت على مايكرو. مش لاقى الخطوات

On 29/09/2017 at 1:00 AM, محمد الخازمي said:

السلام عليكم

تفضل جرب الحل عن طريق الماكرو

 

الصلاحيه1.rar

 

 

[محمد الورفلي1]

منذ ساعه, احمد عـــزام said:

ماشاء الله عمل اكثر من رائع بارك الله 

يبارك فيه بس انا مش لاقى دوال

حتى دخلت على مايكرو. مش لاقى الخطوات

 

 

هو  ماكرو واحد فقط يكون لاستدعاء الصلاحية التي 15 يوم ونفس الماكرو ياتي بالصلاحية المنتهية

 

Sub ماكرو2()
    Sheets("البيانات").Range("B5:J38").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("K3:K4"), CopyToRange:=Range("E6:I6"), Unique:=True
End Sub

 

 

وهذه المعادلة موجودة في العمود   j   لتظهر كلمة انتهت الصلاحية 

 

=IF(H15="";"";H15+DATE(G15;F15+1;E15))

 

[احمد عـــزام]

 

انا زودت عامود  جانب الصنف بالعربى 

لكتابه الصنف باللغه الانجليزيه 

وبحاول اظبطعا مش عارف  امشى على خطواتك

[محمد الورفلي1]

ارفق النسخة من الملف وسوف اعدلة لك ثم اوضح لك اين كانت الاضافة

علي العموم غير هذا المجال الي

.Range("B5:J38")

الي

.Range("B5:m38")

 

 

 

تم تعديل سبتمبر 30, 2017 بواسطه محمد الخازمي

[احمد عـــزام]

اشكرك جدا.... عملتها