السلام عليكم
=======
ستضع هذا الكود فى الورقة 2
Option Explicit[/b][/font][/size]
[size=5][font=tahoma,geneva,sans-serif][b]Sub hh()
Range("F2").FormulaR1C1 = _
"=IF(RC[-1]="""","""",RC[-1]-NOW())"
Range("G2").FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]<=7,""ÈÇÞì Úáì ãæÚÏ ÇáÊÓáíã 7 ÇíÇã Çæ ÇÞá"",""""))"
Range("F2").AutoFill Destination:=Range("F2:F1500"), Type:=xlFillDefault
Range("G2").AutoFill Destination:=Range("G2:G1500"), Type:=xlFillDefault
Range(Range("F2"), Range("G2").End(xlDown)).Select
Selection.Value = Selection.Value
End Sub[/b][/font][/size]
[size=5][font=tahoma,geneva,sans-serif][b]
hh.rar