ارور به هنگام اجراء ماکرو

[مجید]

سلام و عرض تبریک ایام ولادت سرور و ولی نعمتمان آقا علی بن موسی الرضا(علیه السام )

نمیدونم سوال رو جای درستی بیان کردم و یا نه
بهرحال ببخشید

فرمول زیر مربوط به یک ماکرو برای یک باکس فرمان هست که برای عملیات پاک کردن سطر 5 و اضافه کردن یک سطر به زیر اون و سپس انتخاب 2 خانه از سطر 6 (حاوی فرمول ) و کپی کردن اون تو سطر جدید ساخته شده ؛ است
ولی اشکالاتی داره که ازش سر درنمیآرم موقع اجراء ماکرو ارور میده
ممنون از راهنمائی شما

Sub RoundedRectangle2_Click()
'
' RoundedRectangle2_Click Macro
'

'
    ActiveSheet.Range("$A$4:$M$51").AutoFilter Field:=1
    Rows("5:5").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
        Selection.ClearContents
    Range("a5:c5").Select
    Selection.ClearContents
    Range("d6:e6").Select
    Selection.Copy
    Range("d5:e5").Select
    Selection.Paste
      End Sub 

[Juliet]

درود
من این کد رو امتحان کردم جواب میده

Private Sub cmd_Click()
    Range("5:5").Select
    Selection.Clear
    
    Range("D6:E6").Select
    Selection.Copy

    Range("D5:E5").Select
    ActiveSheet.Paste
End Sub

دو سطر اول: محتوای سطر 5 رو پاک میکنه، این مثل اینه که این سطر حذف شده و سطری مابین سطور 5 و 6 درج شده باشه
دو سطر دوم: سلول ها مورد نظر رو کپی میکنه
دو سطر سوم: محدوده کپی شده در محدوده مشخص شده چسبانده میشه

نکته:
این روش فرمول رو کپی میکنه، چنانچه نیاز دارید تنها مقادیر کپی شوند، به جای 4 سطر آخر از کد زیر استفاده کنید

    Range("D5") = Range("D6")
    Range("E5") = Range("E6")

انشاءالله مشکلتون حل شه

[مجید]

درود
من این کد رو امتحان کردم جواب میده
.......
انشاءالله مشکلتون حل شه

سلام و ممنون از راهنمائی شما مشکل حل شد
اما پس از انجام ماکرو هنوز d5 , e5 در حال سلکت باقی میمونه

[Juliet]

سلام و ممنون از راهنمائی شما مشکل حل شد
اما پس از انجام ماکرو هنوز d5 , e5 در حال سلکت باقی میمونه

درود
خواهش میکنم
با این خط کد میتونید محدوده ای که برای کپی در حالت انتخاب هست رو غیر فعال کنین:

    Application.CutCopyMode = False

و برای انتخاب خودکار سلول دیگه میتونید از یک دستور سلکت ساده نظیر این استفاده کنین:

    Range("A1").Select

=================
پ.ن:
الانه که یکی از مدیران محترم بهتون تذکر بدن "تیک سبز رنگ معروف حل شده" فراموش نشه!