يوسف عطا قام بنشر سبتمبر 15, 2012 قام بنشر سبتمبر 15, 2012 الأسطر التالية جزء من كود ترحيل تقوم بقص البيانات من مدى محدد ولصقها بدءاً من خلية معينة المطلوب أن يتم تعديل سطر اللصق ليكون لصق خاص القيم والتنسيقات مع الحفاظ على بقية الكود كما هو Sheets(X).Select Range("B35:D60").Cut Range("I5").Select ActiveSheet.Paste Range("A1").Select
الـعيدروس قام بنشر سبتمبر 15, 2012 قام بنشر سبتمبر 15, 2012 السلام عليكم Sheets(X).Select Range("B35:D60").Cut Range("I5").Select ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats Range("A1").Select
يوسف عطا قام بنشر سبتمبر 15, 2012 الكاتب قام بنشر سبتمبر 15, 2012 مشكور أبو نصار على تعبك ولكن ظهرت لى رسالة إرور وتم تلوين السطر التالى بلون أصفر داخل الكود ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
الـعيدروس قام بنشر سبتمبر 15, 2012 قام بنشر سبتمبر 15, 2012 عذرا اخي يوسف لم انتبه انها Cut خاصية القص لايمكن تحديد نوع التنسيق لاكن هكذا يفي بالغرض Sheets(X).Select Range("B35:D60").Copy Range("I5").Select ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats Range("B2:D100").ClearContents Range("A1").Select
يوسف عطا قام بنشر سبتمبر 15, 2012 الكاتب قام بنشر سبتمبر 15, 2012 الله ينور عليك أدت الفكرة الغرض مع ملاحظة أن مدى حذف البيانات ليس من B2 بل من B 35 شاكر لك الأفضال أخى الغالى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.