ابو فاروق
-
Posts
2 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابو فاروق
-
عندى ملف اريد ان اضع فيه كود للتفقيط وعند وضع الكود والدالة الازمة وعند الخفظ تظهر االرسالة التالية وهذه صورة الرسالة فما الحل لو تكرمتم
-
استخدم هذا الكود 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