المساعدة في ضبط اعدادات كود الترحيل

[Mohammed Elghready]

الاخوة الافاضل مبدعي هذا المنتدي العظيم هذا ملف حملته من المنتدي فيه كود للعلامة عبد الله باقشير بخصوص ترحيل الناجحين والدور الثاني واستخدمته في ملف خاص بي واردت ان تكون صفحة الدور الثاني بها سطر فارغ قبل البيانات للعمل عليها في امتحانات الدور الثاني فعدلت السطر في الكود m=m+1 الي m+2 واتت النتائج كما اريد ولكن الترقيم التلقائي اصبح اعداد زوجية 2,4,6,وكذلك الصندوق الحواري الذي يظهر بعد تمام الكود يضاعف عدد الترحيل فهل اجد حلا لذلك عند احدكم شكرا لكم .... تــم تعديل رفــع الملف , من فضلك لا تقوم برفع الملف مضغوط طالما حجمه صغير

كشف درجات الصف الثاني الابتدائي_5.xls

[ابراهيم الحداد]

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

اجعل هذا الكود هكذا

Sub KH_Paste(MySheet As Worksheet, KRow As Integer)
On Error Resume Next
With MySheet
    .Range("A" & KRow).PasteSpecial xlPasteValues
    .Range("A" & KRow).PasteSpecial xlPasteFormats
    If .Name = "ناجحين" Then
    .Range("A" & KRow) = KRow - 9
    Else
    .Range("A" & KRow) = KRow / 2 - 4
    End If
End With
Application.CutCopyMode = False
End Sub

كشف درجات الصف الثاني الابتدائي_5.xls

[Mohammed Elghready]

قمت بتحميل الملف وجاري تطبيقه شكرا لك علي ما بذلته جعله الله في ميزان حسناتكم