ابو فاروق

عندى ملف اريد ان اضع فيه كود للتفقيط وعند وضع الكود والدالة الازمة وعند الخفظ تظهر االرسالة التالية وهذه صورة الرسالة فما الحل لو تكرمتم

استخدم هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A8:A205")) Is Nothing Then If Target = "" Then Target.Offset(0, 1).Value = "" Else Target.Offset(0, 1).Value = Date End If End If End Sub