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

السلام عليكم ورحمة الله وبركاتة لدي مشكلة عند تنفيذ هذا الكود البرمجي حيث انه عند تنفيذه يتم ترحيل جميع البيانات المتواجة حتى كلمة 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