Sub sRange_Move()
Sheets("ورقة2").Range("A9:c12").ClearContents
Sheets("ورقة2").Range("a9:c12").ClearContents
Sheets("ورقة2").Range("a9:c12").Value = Sheets("ورقة1").Range("A9:c12").Value
End Sub
أخي العزيز
الرابط أعلاه لا يمكن الوصول إليه من السعودية .
هل من طريقة للحصول على البرنامج على البريد مثلاً إذا ما فيه إزعاج عليكم .
walf10@yahoo.com
تحياتي لك ولجميع أعضاء هذا المنتدى الرائعين.
البرنامج الاول لفك كلمه السر للملف ( فك كلمه السر) لم يصل
البرنامج الثانى لفك حمايه sheet و Vb ( فك الحمايه)وصل ياباشا
الرجاء إرسال البرنامج الأول على البريد
walf10@yahoo.com
السادة المشرفين و الاعضاء الكرم
السلام عليكم ورحمة الله وبركاته وبعد
لدي ملف به عدد 30 صفحه نقوم بالتنقل بين الصفحات عن طريق المايكرو
كيف أجبر المستخدم على إكمال بيان 6 خلايا بالصفحة الأولى الرئيسية ثم يعمل المايكرو ومن خلاله يمكن الإنتقال للصفحة الثانية
السلام عليكم ورحمة الله وبركاته
أرجوا إفادتي حول تركيب معادلة نهاية الخدمة حسب الشرط المكتوبة حيث هي المطبقة حالياً بالعمل في قسم الحسابات .
رابط الملف :
http://www.officena.net/ib/index.php?act=A...pe=post&id=1956