ترحيل صفوف الى عدة اوراق

[رضا على]

ترحيل صفوف الى عدة اوراق

 

الترحيل1.rar

[سليم حاصبيا]

جرب هذا الملف

عندك خلايا مدمجة في الاعمدة (X / AB)جيث من الصعب اجراء المعادلات عليها

لذا قدر الامكان الغ الدمج و اسحب المعادلات 

الترحيل1 salim.rar

[رضا على]

[رضا على]

شكرا جزيلا لردكم وان كنت افضل الاكواد وهناك طالب رقم ٢٠٤ غير موجود واذا اكتب رقمه يحدت اخطاء

 

 

[رضا على]

الملف بدون اى خلايا مدمجه

الترحيل1.rar

[رضا على]

ارجو المساعدة من العالمى الاسطورة زيزو العجوز

[سليم حاصبيا]

22 ساعات مضت, رضا على said:

الملف بدون اى خلايا مدمجه

الترحيل1.rar

ماذا تقول عن الصفوف من 5 الى 11

[رضا على]

فيهم ايه

[رضا على]

فهمت والمطلوب فى الملف بدون دمج

الترحيل111.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

Sub TARHIL()
Dim Sh As String
Dim i As Integer
Dim AA As Integer
'======================================================
Application.ScreenUpdating = False
Sheets("ناجح").Range("A12:X1000").ClearContents
Sheets("دور ثان").Range("A12:X1000").ClearContents
Sheets("راسب").Range("A12:X1000").ClearContents
'======================================================
For i = 12 To Cells(10000, "Y").End(xlUp).Row
    Sh = Cells(i, "Y").Value
    AA = Sheets(Sh).Cells(10000, 2).End(xlUp).Row + 1
    If AA < 12 Then AA = 12
    On Error Resume Next
    Range(Cells(i, "B"), Cells(i, "X")).Copy
    Sheets(Sh).Range("B" & AA).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 11
Next i
Application.ScreenUpdating = True
MsgBox "تم الفصل بنجاح"
End Sub

 

الترحيل1.rar

[رضا على]

والله وعملوها الرجاله  دة اللى انا عاوزة بالضبط