انسخ هذا الكود في ورقة العمل
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 Then
If Not IsEmpty(Target) Then
Target.Offset(0, 1) = DateDiff("d", Target.Offset(0, -1), Target) & " -NTS"
Target.Offset(0, 2) = Format(Target.Offset(0, -1), "dddd")
End If
End If
End Sub
السلام علكم
أخي الكريم : الأستاذ أبو عبد الله
لا تدري مدى سعادتي بتشريفكم و مروركم من ها هنا
و أعتقد انني محظوظ لان موضوعي كان سببا في ان يمسك اخونا الغائب أحمد حمور لوحة المفاتيح ليسرد هذه الكلمات و يجلس و لو لبضع دقائق متصفحا هذا المنتدى
أسأل الله ان ييسر أمورك و جزاك الله خيرا
و الشكر موصول لأخي حمادة عمر عن كلماته الطيبة و ترحيبه بأخونا الأستاذ أحمد
حفظكم الله جميعا
و السلام عليكم
CTRL + Q to Enable/Disable GoPhoto.it
السلام عليكم
حتى و ان الاجابة في غياب الملف تعتبر صعبة نوعا ما
لكن جرب التالي
تغيير الفاصلة المنقوطة ; بفاصلة عادية , في الكود الذي ارسلته في مشاركتك
السلام عليكم
جزاك الله خيرا : أخي سعد عابد
تم تنفيذ طلبك بكود اضافة ورقة عمل
عند الدخول للفورم : من القائمة ملف ـــــــــــ> اضافة ورقة عمل
تقبل تحياتي
فورم 1.rar
كنت أترقب تعقيبك
و لو لم تقم بذلك
لعاتبتك على البريد الخاص أشد عتاب
***************************
لا تقلق إنها دعابة فقط بين شخصين متحابين في الله
جزاك الله خيراعلى المرور و أدام عليك الصحة و الهناء
تقبل تحياتي