رجب جاويش قام بنشر أغسطس 31, 2012 قام بنشر أغسطس 31, 2012 تفضل أخى الكود مع الشرح Sub ragab() 'ايقاف اهتزاز الشاشة لتسريع عمل الكود Application.ScreenUpdating = False 'نسخ مدى البيانات Range("G9:H12").Copy 'تحديد أول صف فارغ فى العمود الأول فى الورقة الثانية LR = Sheets("ورقة2").[A1000].End(xlUp).Row + 1 'لصق البيانات Sheets("ورقة2").Range("A" & LR).PasteSpecial xlPasteAll 'الغاء خاصية النسخ واللصق Application.CutCopyMode = False ' مسح المحتويات Range("G9:H12") = "" 'ارجاع اهتزاز الشاشة Application.ScreenUpdating = False End Sub ارشيف1.rar
هاني عدلي قام بنشر أغسطس 31, 2012 قام بنشر أغسطس 31, 2012 (معدل) أستاذنــــــــــــــــــــا و معلمنا الأستاذ / رجب جاويش كالعادة مبدع دائمــــــــــــــــــ :fff: ــــــــــــــــــــا جزاك الله خيراً ====== تحياتي تم تعديل أغسطس 31, 2012 بواسطه أ / هاني عدلي
رجب جاويش قام بنشر أغسطس 31, 2012 قام بنشر أغسطس 31, 2012 أخى الفاضل / هاني عدلي أنا مجرد تلميذ فى هذه الجامعة العريقة فجزاك الله كل خير أخى الفاضل على هذه المجاملة الرقيقة من شخصك الكريم تقبل أرق وأجمل تحياتى
ابو الشرف قام بنشر أغسطس 31, 2012 الكاتب قام بنشر أغسطس 31, 2012 اخي الحبيب الاستاذ رجب جزاك الله خير وجعله في ميزان حسناتك ولكني اريد الارشيف ملف يكون خارج هذا العمل اي عندما اضغط ارشيف يكون فولدر في C , ويحفظ فيه كل مره الورقه باسم جديد اي اذا ضغط 10 مرات علي ارشيف يكون لدي في المجلد 10 ورقات ... مع الشرح اذا تكرمت
رجب جاويش قام بنشر سبتمبر 1, 2012 قام بنشر سبتمبر 1, 2012 أخى الفاضل / ابو الشرف هل تقصد بعد تكوين المجلد ويحفظ فيه كل مره الورقة باسم جديد (فهل المقصود بالورقة ملف جديد أم مجرد شيت جديد فى نفس الملف )
ابو الشرف قام بنشر سبتمبر 7, 2012 الكاتب قام بنشر سبتمبر 7, 2012 الاستاذ رجب المحترم اقصد بالورقه ملف جديد
عبدالله المجرب قام بنشر سبتمبر 7, 2012 قام بنشر سبتمبر 7, 2012 اخي ابو الشرف شاهد هذا الرابط هل تقصد ان تكون طريقة الحفظ هكذا http://www.officena.net/ib/index.php?showtopic=41428&#entry235062
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.