عدم اكمال الكود بعد الحلقة التكرارية

[عبدالرحمن الاصبحي]

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

لدي مشكلة عند تنفيذ هذا الكود البرمجي

حيث انه عند تنفيذه يتم ترحيل جميع البيانات المتواجة حتى كلمة next

وبعد كلمة next لا يتم تنفيذ اي شئ في الكود

ارجو منكم المساعدة ولكم جزيل الشكر والتقدير

هذا الكود

Dim r As Integer
Dim xle As Integer
For r = 5 To 54
If IsEmpty(Cells(r, 5)) Then Exit Sub
xle = Sheets("ÞíÏ ÍÑßÉ").Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 2) = Cells(3, 3)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 1) = Cells(3, 1)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 3) = Cells(r, 2)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 4) = Cells(r, 3)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 5) = Cells(r, 4)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 6) = Cells(r, 5)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 7) = Cells(r, 6)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 😎 = Cells(r, 7)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 9) = Cells(r, 15)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 10) = Cells(r, 😎
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 11) = Cells(r, 9)
Sheets("ÞíÏ ÍÑßÉ").Cells(xle, 12) = Cells(r, 10)

Next

'======================
Dim x
  Sheets("ÞíÏ ÍÑßÉ").Select
  Sheets("ÞíÏ ÍÑßÉ").Range("a2:l" & Cells(Rows.Count, "e").End(xlUp).Row).Copy
       ChDir "D:\äÙÇã ÍÓÇÈÇÊ"
    Workbooks.Open Filename:= _
        "D:\äÙÇã ÍÓÇÈÇÊ\ÞíæÏ ÇáÚãáíÇÊ.xlsm"
    Windows("ÞíæÏ ÇáÚãáíÇÊ.xlsm").Activate
    Sheets("ÞíæÏ ÇáÍÓÇÈÇÊ").Select
  x = Range("a" & Rows.Count).End(xlUp).Row
  Sheets("ÞíæÏ ÇáÍÓÇÈÇÊ").Range("a" & x + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Windows("ÞíæÏ ÇáÚãáíÇÊ.xlsm").Activate
  ActiveWorkbook.Save
  ActiveWindow.Close
   
   Windows("ÇáÚãáíÇÊ.xlsm").Activate
  Sheets("ÞíÏ ÍÑßÉ").Select
  Sheets("ÞíÏ ÍÑßÉ").Range("a2:l100") = Delete
 

 

 

[حسونة حسين]

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

لطفا ارفق ملف