مطلوب هام جدا تكرار الكود 12 مرة لعدد 12 جدول يشبة الجدول الموجود

[ابوعلوة]

اجب الاستاذ ابوحنين الشهابي والاستاذ ابراهيم ابوليلة وكل الاعضاء على سؤالي والله لااقدر اصف كم انا ممتن لهم

في الربط اضغط هنا لدي سوال هام اوتعديل على الكود : -

1- قمت ببنقل الكود والالجدوال الى مصنف جديد هو في المرفق نرجو التاكد من سلامة الكود وبياناته هو في المرفق ؟

2-اريد في المرفق اضافة معادلات سرد التواريخ بالهجري لكي يسهل خصم الاجازات الهجرية هي باللون الازرق ؟

3-ورقة تحليل الاعداداتاريد ان يكون فيها 12 جدول فقط بدلا من واحد هي انواع الانظمة الشركة المختلفة لاحتساب الحركة الحضور مع التعديلات الجديدة من الملاحظات وتعديل لكود تسلسل التوريخ خايف اضيف 12 مرة مثل الجدول الموجود لايعمل الكود بشكل صحيح هام جدا نرجو الاجابة

تحويل1.rar

تم تعديل سبتمبر 1, 2012 بواسطه ابوعلوة

[ابوعلوة]

وهذا الكود الذي قام به الاستاذ ابو حنين :

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D10:E40").ClearContents

a = DateDiff("d", Range("B7"), Range("C7"))

For s = 0 To a

Cells(s + 10, 5) = Range("B7") + s

Cells(s + 10, 5).Offset(0, -1) = Format(Cells(s + 10, 5), "ddd")

If Cells(s + 10, 5) = "" Then Cells(s + 10, 5).Offset(0, -1) = ""

Next

Application.ScreenUpdating = True

End Sub

تم تعديل سبتمبر 1, 2012 بواسطه ابوعلوة