مساعدة في تثبيت الحجم الساعي السنوي

[مجاهد2013]

السلام عليكم 

أتمنى أن يكون الجميع بخير 

أريد في الملف المرفق تثبيت الحجم الساعي الخاص بالأقسام الموجود في شيت " الحجم الساعي اليومي" إلى شيت "نسبة الغياب" طيلة كل أيام السنة الدراسية ما عدا أيام الجمعة و  السبت و أيام العطل (الاعمدة الملوتة بالأرزق)

مجاهد.xlsx

[Saleh Ahmed Rabie]

**إليك كود VBA لإكمال المهمة المطلوبة:**

Sub CopyColumnToAnotherSheet()
    Dim wsSource As Worksheet, wsDestination As Worksheet
    Dim rngSource As Range, rngDestination As Range
    Dim i As Integer, j As Integer
    ' تعيين أوراق العمل المصدر والوجهة
    Set wsSource = ThisWorkbook.Worksheets("الحجم الساعي اليومي")
    Set wsDestination = ThisWorkbook.Worksheets("نسبة الغياب")
    ' تحديد نطاق العمود في ورقة العمل المصدر
    Set rngSource = wsSource.Range("A:A")
    ' تحديد نطاق العمود في ورقة العمل الوجهة
    Set rngDestination = wsDestination.Range("A:A")
    ' نسخ البيانات من ورقة العمل المصدر إلى ورقة العمل الوجهة
    For i = 1 To rngSource.Rows.Count
        For j = 1 To rngSource.Columns.Count
            If rngSource.Cells(i, j).Interior.Color <> RGB(255, 255, 0) Then
                rngDestination.Cells(i, j).Value = rngSource.Cells(i, j).Value
            End If
        Next j
    Next i
    ' إظهار رسالة تأكيد
    MsgBox "تم نسخ البيانات بنجاح."
End Sub

**شرح الكود:**

* يحدد الكود ورقتي العمل المصدر والوجهة.
* يحدد نطاق العمود في ورقة العمل المصدر.
* يحدد نطاق العمود في ورقة العمل الوجهة.
* ينسخ الكود البيانات من ورقة العمل المصدر إلى ورقة العمل الوجهة، مع تخطي الخلايا الملونة باللون الأصفر (RGB(255, 255, 0)).
* يعرض الكود رسالة تأكيد عند اكتمال النسخ.

**ملاحظة:**

* يجب أن تكون ورقتا العمل "الحجم الساعي اليومي" و"نسبة الغياب" في نفس المصنف.
* إذا كنت تريد نسخ البيانات إلى أعمدة مختلفة في ورقة العمل الوجهة، فقم بتعديل نطاق rngDestination

وفقًا لذلك.

 

[مجاهد2013]

أولا شكرا أستاذنا الكريم 

عند تنفيذ الكود يظهر هذا الخطأ