يوسف عطا قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 الأسطر التالية جزء من كود ترحيل تقوم بقص البيانات من مدى محدد ولصقها بدءاً من خلية معينة المطلوب أن يتم تعديل سطر اللصق ليكون لصق خاص القيم والتنسيقات مع الحفاظ على بقية الكود كما هو Sheets(X).Select Range("B35:D60").Cut Range("I5").Select ActiveSheet.Paste Range("A1").Select رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم Sheets(X).Select Range("B35:D60").Cut Range("I5").Select ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats Range("A1").Select رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 مشكور أبو نصار على تعبك ولكن ظهرت لى رسالة إرور وتم تلوين السطر التالى بلون أصفر داخل الكود ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 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 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 الله ينور عليك أدت الفكرة الغرض مع ملاحظة أن مدى حذف البيانات ليس من B2 بل من B 35 شاكر لك الأفضال أخى الغالى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان