الشيباني1 قام بنشر مارس 11, 2011 قام بنشر مارس 11, 2011 اخواني الاعزاء تحية طيبه لدي ملف ضمن ما يحتويه (12) ورقة تمثل اشهر السنه ارجو المساعده بكود لمسح بيانات ضمن المدى (b5:o2500) ولجميع الاوراق علما" ان اسماء الاوراق تبدا من (1-12) مع الامتنان
الشيباني1 قام بنشر مارس 11, 2011 الكاتب قام بنشر مارس 11, 2011 اخي العزيز مع تقديري لردكم الكريم انااطمح بالحصول على كود اقصر حيث انني استخدم هذا الكود حاليا مع اعتذاري
عبد الفتاح كيرة قام بنشر مارس 11, 2011 قام بنشر مارس 11, 2011 (معدل) بعد إذن أستاذنا جمال اختصرت الكود For I = 2 To 12 Sheets(I).Range("b5:O2500").ClearContents Next I Sheets("ورقة1").Range("A1").Select * للفائدة : ليس ضروريا أن تحدد المدى كى تحذفه - احذف مباشرة تم تعديل مارس 11, 2011 بواسطه kemas
دغيدى قام بنشر مارس 11, 2011 قام بنشر مارس 11, 2011 (معدل) أكرمكم الله يا أبا عمر ولكن الجذف يتم من الصفحة الثانية For I = 2 To 12 تحياتى جمال دغيدى تم تعديل مارس 11, 2011 بواسطه دغيدى
عبد الفتاح كيرة قام بنشر مارس 11, 2011 قام بنشر مارس 11, 2011 نعم فعلا ظننت أن الأخ السائل يريد الإبقاء على الصفحة الأولى تعديل : For I = 1 To 12 Sheets(I).Range("b5:O2500").ClearContents Next I Sheets("ورقة1").Range("A1").Select
الشيباني1 قام بنشر مارس 12, 2011 الكاتب قام بنشر مارس 12, 2011 اخواني الاعزاء اشكركم وادامكم الرحمن لنا مرجعا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.