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