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