مطلوب تعديل سطر فى كود

[يوسف عطا]

الأسطر التالية جزء من كود ترحيل

تقوم بقص البيانات من مدى محدد ولصقها بدءاً من خلية معينة

المطلوب أن يتم تعديل سطر اللصق ليكون لصق خاص القيم والتنسيقات

مع الحفاظ على بقية الكود كما هو

			 Sheets(X).Select

			    Range("B35:D60").Cut

			    Range("I5").Select

			 ActiveSheet.Paste

			 Range("A1").Select

[الـعيدروس]

السلام عليكم

Sheets(X).Select

  Range("B35:D60").Cut

   Range("I5").Select

    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats

Range("A1").Select

[يوسف عطا]

مشكور أبو نصار على تعبك

ولكن

ظهرت لى رسالة إرور

وتم تلوين السطر التالى بلون أصفر داخل الكود

ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats

[الـعيدروس]

عذرا اخي يوسف

لم انتبه انها Cut

خاصية القص لايمكن تحديد نوع التنسيق

لاكن هكذا يفي بالغرض

Sheets(X).Select

  Range("B35:D60").Copy

   Range("I5").Select

    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats

    Range("B2:D100").ClearContents

    Range("A1").Select

[يوسف عطا]

الله ينور عليك أدت الفكرة الغرض مع ملاحظة أن مدى حذف البيانات ليس من B2 بل من B 35

شاكر لك الأفضال أخى الغالى