هو ماكرو واحد فقط يكون لاستدعاء الصلاحية التي 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))