لنسخ ورقة عمل معينة

نسخ اوراق العمل بين كتب العمل المختلفة



نسخ ورقة العمل الى كتاب عمل جديد
Sheets("Sheet1").Copy



نسخ ورقة العمل النشطة الى كتاب عمل جديد
ActiveSheet.Copy



نسخ اوراق العمل المختاره الى كتاب عمل جديد
ActiveWindow.SelectedSheets.Copy



نسخ ورقة العمل فى نفس كتاب العمل الحالى قبل الورقة Sheet2
Sheets("Sheet1").Copy Before:=Sheets("Sheet2")



نسخ الورقة فى كتاب العمل الحالى اول ورقة فى الكتاب
Sheets("Sheet1").Copy Before:=Sheets(1)



نسخ الورقة فى كتاب العمل الحالى اخر ورقة فى الكتاب
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)



نقل الورقة فى كتاب العمل الحالى الى اخر ورقة فى الكتاب
Sheets("Sheet1").Move After:=Sheets(Sheets.Count)



نسخ الورقة الى اخر ورقة فى كتاب العمل الحالى ثم تغيير اسمها

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = "LastSheet"
On Error GoTo 0



نسخ الورقة و تسميتها بناءا على قيمة خلية

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
On Error GoTo 0



نسخ الورقة الى كتاب عمل اخر اول ورقة فى الكتاب
Sheets("Sheet1").Copy Before:=Workbooks("Example.xlsm").Sheets(1)



نسخ ورقة الى كتاب عمل مغلق

Dim closedBook As Workbook
Application.ScreenUpdating = False
Set closedBook = Workbooks.Open("D:\Dropbox\excel\articles\example.xlsm")
ThisWorkbook.Sheets("Sheet1").Copy Before:=closedBook.Sheets("Sheet2")
closedBook.Close SaveChanges:=True
Application.ScreenUpdating = True



نسخ ورقة العمل من كتاب عمل مغلق

Dim closedBook As Workbook
Application.ScreenUpdating = False
Set closedBook = Workbooks.Open("D:\Dropbox\excel\articles\example.xlsm")
closedBook.Sheets("Sheet1").Copy Before:=ThisWorkbook.Sheets("Sheet2")
closedBook.Close SaveChanges:=False
Application.ScreenUpdating = True