كيف اجعل الكود يعمل في ورقة معينة حتى وان انتقلت الى اخرى

[atob]

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

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

وعندما انفذ هذا المايكرو يعمل عندما تكون هذه الورقة نشطه وعند الانتقال الى ورقة اخرى يتوقف المايكرو او الكود عن العمل الى ان ارجع الى نفس الورقة السابقه فيعمل من جديد

طبعا جربت ان اجعل الورقة المعنيه نشطه بالامر ActiveSheet

ولكن ذلك لا يفيدني لان هذا الامر يرجعني الى الورقه كلما نفذت الكود

الملف المرفق يوضح طلبي فاتمنى منكم مساعدتي بالحل مشكورين

_____.zip

[atob]

اخواني الاعزاء ارجوا ان يكون تساؤلي مفهوما وارجوا منكم مساعدتي لاني محتاج للحل

[mehyo27]

السلام عليكم

حاولت ولم استطيع الا ان اغير بالكود

ولكن حسب علمي انه اسرع من السابق

Sub tarheel()
Application.ScreenUpdating = False
On Error Resume Next
If stopit = True Then Exit Sub
Application.OnTime (Now + TimeSerial(0, 0, 3)), "tarheel"
Sheets("abc").Cells(5, 2).Value = Format(Now, "hh:mm:ss")
x = Sheets("abc").[b4]

    Sheets("abc").Range("b5:b18").Copy
    Sheets("abc").Cells(5, x).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Sheets("abc").Range("a2").Select
    Application.CutCopyMode = False
On Error GoTo MyErr
MyErr:
If Err = 1004 Then
Application.ScreenUpdating = True
Exit Sub
End If
Application.ScreenUpdating = True
End Sub

ارجو ان يكون هذا ما تريد

[atob]

اخي mehyo27 اشكرك جزيل الشكر عى ردك على وهذا كل ما اريد تماما والله يكتب لك الاجر ويوفقك في دنياك واخرتك