[حل شده] کپی کردن محتویات یک شیت در شیت دیگر

[jjsafa2020]

دوستان عزیز با سلام و احترام

من یه فایل دارم و می خوام محتویات یک شیت رو به کمک ماکرو با ایجاد یک شیت دیگر در اون کپی کنم.
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = Cells(NumRows, 2).Text

Sheets("form").Select

Selection.Copy
x = Application.Sheets.Count
Sheets(x).Select

ActiveSheet.Paste

Range("B3").Select
Sheets("MainFom").Select
Cells(NumRows, 2).Copy
Sheets(x).Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
'ÊäÙíãÇÊ äãÇíÔ ÔíÊ ÌÏíÏ
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$372"
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.Zoom = 90
Rows("8:8").Select
ActiveWindow.FreezePanes = True
من الان یه مشکلی که دارم یه تعداد چگ باکس ایجاد کردم در همون شیت اصلی (FORM) که اینا تو همین کپی پیست انتقال داده نمی شن. و فقط سلولها کپی میشن. ممنون میشم در این زمینه کمک کنید


با تشکر

[kazamie]

چون چک باکس ها آبجکت هستند و با سلول کپی نمی شوند باید آبجکت ها انتخاب و بعد کپی شوند

[jjsafa2020]

با سلام به دوستان
من اینکار رو رو با کپی کردن شیت انجام دادم. در اون حالت تمام خانه ها و ابزارهای موجود هم کپی می شین. با تشکر
Sheets("form").Select
Sheets("form").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Application.Sheets.Count - 2
x = Application.Sheets.Count
Sheets(x).Select


Range("C3").Select
Sheets("MainFom").Select
Cells(NumRows, 3).Copy
Sheets(x).Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
'ÊäÙíãÇÊ äãÇíÔ ÔíÊ ÌÏíÏ


Sheets("MainFom").Select