كود ترحيل للاستاذ خبور

[هشام شلبى]

السلام عليكم

فى المرفق كود ترحيل من شيت التجهيز الى شيت الناجح واراسب

ولكن فى صفحة الناجح والراسب لا يكون الرقم المسلسل مضبوط

اريد التعديل على الكود او بطريقة ما ضبط هذا المسلسل

او حتى يتم الترحيل فى شيت الناجح والراسب من اول العمود b

ثم نضع معادلة الترقيم التلقائى فى العمود a فى شيت الناجح والراسب او باى طريقة اخرى

وشكرا

_______.rar

[عبدالله باقشير]

السلام عليكم

تم تعديل الكود ليتلائم مع ملفك

Sub Trheell()
'منقول من احد مشاركات الأستاذ خبور خير
On Error Resume Next
Dim MySheets As String
Dim X As Integer, R As Integer, N As Integer, C As Integer
Application.ScreenUpdating = False
Sheets("ناجح").Range("A7:CV9999").ClearContents
Sheets("راسب").Range("A7:CV9999").ClearContents
X = Range("A" & Rows.Count).End(xlUp).Row
For R = 7 To X
    If Cells(R, "CV") <> "" And Cells(R, "C").Value <> 0 Then
        MySheets = Cells(R, "CV")
        With Sheets(MySheets)
            N = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            If N < 7 Then N = 7
            .Cells(N, 1) = N - 6
            For C = 2 To 100
                .Cells(N, C) = Cells(R, C)
            Next C
        End With
    End If
Next R
Application.ScreenUpdating = True
MsgBox "!تم الترحيل   بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل"
'Range("C5").Select
On Error GoTo 0
End Sub

[هشام شلبى]

الف شكر اخى الغالى

والى اللقاء قى ثواب واجر عند الله

[cat101]

زي ما انت عايز تستفيد

احنا عايزين نستفيد

هل يمكن ان تفك الحماية يابوش

[هشام شلبى]

زي ما انت عايز تستفيد

احنا عايزين نستفيد

هل يمكن ان تفك الحماية يابوش

طبعا ممكن ولازم وضرورى عندك حق بس بمجرد الانتهاء من العمل اعدك اخى الغالى بعرض الموضوع كله