للنسخ و اللصق الخاص فى نفس كتاب العمل او كتاب عمل اخر


النسخ و اللصق فى الاكسل



فتح و غلق الخاصية
Application.CutCopyMode = False
Application.CutCopyMode = True



لصق عادى بمعنى كل شئ منسوخ يتم لصقه
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص للصيغ و المعادلات فقط
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteFormulas
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص للقيم فقط بدون معادلات او تنسيقات
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValues
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص للتنسيقات فقط
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteFormats
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص للتعليقات فقط
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteComments
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص لخلايا التحقق من صحة البيانات فقط
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteValidation
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص مع الدوران Transpose
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteAllUsingSourceTheme
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص كل شئ ما عدا الحدود
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteAllExceptBorders
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص لاتساع العواميد
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteColumnWidths
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص الصيغ مع تنسيقات الارقام
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteFormulasAndNumberFormats
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص القيم مع تنسيقات الارقام
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص مع دمج التنسيقات الشرطية
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial xlPasteAllMergingConditionalFormats
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2



لصق خاص مع تخطى الفراغات
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D22").Copy
Workbooks("Book2.xlsx").Sheets("Sheet2").Range("B2").PasteSpecial SkipBlanks:=True
اسم كتاب العمل المنسوخ منه Book1.xlsx - اسم ورقة العمل المنسوخ منها Sheet1 - النطاق المنسوخ A1:D22
اسم كتاب العمل المنسوخ اليه Book2.xlsx - اسم ورقة العمل المنسوخ اليها Sheet2 - اول خلية فى النطاق المنسوخ اليه B2