السلام عليكم و رحمة الله وبركاته
وجدت كود ترحيل موجود من السابق في الملف
Sub trheel()
'ÊÑÍíá ÇáØáÈÉ ÍÓÈ ÇáÊÎÕÕ
' trheel Macro
'
'
Application.ScreenUpdating = False
Dim SH As Worksheet
For Each SH In ThisWorkbook.Worksheets
For r = 26 To 2000
If SH.Name = "ÇáãáÝÇÊ" Then GoTo 2
If Cells(r, 9).Value <> Empty Then
If Cells(r, 9).Value = SH.Name Then
Range(Cells(r, 11), Cells(r, 49)).Copy
QQ = SH.Cells(1000, 3).End(xlUp).Row + 1
SH.Range("c" & QQ).PasteSpecial xlPasteValues
End If
End If
Next
2
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
لاادري
هل هو يعمل وتريد التعديل علية
او
غير ذلك