ما الخطأ في الكود كود ترحيل لا يعمل بشكل جيد

[جلال محمد]

الإخوة الكرام 

السلام عليكم 

الكود المرفق في الملف لترحيل الطلبة المستجدين من ورقة الأول الي ورقة كشف 41 مستجدين

ولكن يبدو اني لم ادخل المعطيات في الكود بشكل صحيح .... ويوجد خطأ .... وبالتالي لم يتم النرحيل 

فما الخطأ ؟؟؟؟

41 مستحدين.rar

تم تعديل يونيو 23, 2016 بواسطه جلال محمد

[احمد الطحان]

ماهى كلمة سر vib

 

[بن علية حاجي]

السلام عليكم ورحمة الله

تم التعديل على الجزئية التالية بالكود:

With Sheet2
    X = .Range("A" & .Rows.Count).End(xlUp).Row
    For R = 10 To X
        If .Range("G" & R).Value = "مستجد" Then
            M = M + 1
            Cells(M + N, 2) = M
            For C = 1 To 14
                CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22)
                Cells(M + N, C + 2) = .Cells(R, CC)
            Next C
            If M Mod 30 = 0 Then N = N + 8
        End If
    Next R
End With

حسب ما يلي :

With Sheet2
    X = .Range("B" & .Rows.Count).End(xlUp).Row
    For R = 8 To X
        If .Range("G" & R).Value = "مستجد" Then
            M = M + 1
            Cells(M + N, 2) = M
            For C = 1 To 11
                CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22)
                Cells(M + N, C + 2) = .Cells(R, CC)
            Next C
            If M Mod 30 = 0 Then N = N + 8
        End If
    Next R
End With

(التعديل كان في الأسطر 2 - 3 - 7 من هذه الجزئية)

بن علية

41 مستحدين.rar

[جلال محمد]

اخي الكريم بن علية

رمضان كريم

جزاك الله خيرا ..... شكرا لك علي سرعة الاستجابة وسرعة الحل 

جفظك الله ..... وحفظ الله اهل اليمن