safwatscc قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 الاخوة الفاضل : بارك الله فيكم مطلوب نسخ خلية نشطة من صفحة ولصقها فى صفحة اخرى فى خلية محددة موضح بالمرفق وذلك لا ستخدامها فى برنامج للاسف لم استطع ارفاقة لكبر حجمة وارفقت مثال ارجو الرد celles.rar
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم إليك الملف المرفق به الكود المطلوب celles.rar
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أخي bosh حياك الله لا شكر على واجب ، هذا ما تعلمناه منكم جميعا
خالد القدس قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم ما شاء الله استاذ سالم دورة أستاذ ياسر أتت أكلها واصبحنا نقترب أكثر من عالم الأكواد بارك الله فيك وزادك علما وعملا
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أخي خالد الذي يتابع مساهماتكم وأعمالكم يجبر على التعلم فعلا دورة الأستاذ ياسر تركت بصماتها علينا جميعا وأنت تعرف رغبة الأستاذ ياسر يريد نشاطا وحيوية في المنتدى وأنا لا أبخل بشيء إذا علمته شكرا على مرورك المميز
safwatscc قام بنشر أغسطس 9, 2009 الكاتب قام بنشر أغسطس 9, 2009 الاخ الفاضل : الاستاذ سالم بارك الله فيك وجعله فى ميزان حسناتك
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أخي صفوت حياك الله لا شكر على واجب الشكر لله على توفيقه
أ / محمد صالح قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 في 9/8/2009 at 18:13, سالم شباني said: السلام عليكم إليك الملف المرفق به الكود المطلوب بارك الله فيك أخي سالم لي تعليق بسيط انه يمكن حذف بعض السطور وإضافة سطر مهم جدا بعد كل عملية نسخ ألا وهو تفريغ الحافظة مما تم نسخه حتى يصبح كود الدالة هكذا Sub active_cell() Selection.Copy Sheets("scc2").Select Range("C5").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub شكرا لك مرة أخرى 1
سالم شباني قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 السلام عليكم أخي mass123 حياك الله ما شاء الله عليك إضافة في محلها بارك الله فيك على هذه المساهمة وعلى تعاونك زادك الله علما
أ / محمد صالح قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 في 10/8/2009 at 01:46, سالم شباني said: السلام عليكم أخي mass123 حياك الله ما شاء الله عليك إضافة في محلها بارك الله فيك على هذه المساهمة وعلى تعاونك زادك الله علما بعض ما عندكم اخي سالم سلمك الله من كل سوء وبارك فيك ونفع بك أخوك محمد صالح 1
ياسر خليل أبو البراء قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 (معدل) السلام عليكم جميل أخ سالم بس بردو إنت بتستخدم مسجل الماكرو ( مش قلتلك تذاكر الدروس كويس) ممكن نختصر الكود في سطرين ActiveCell.Select Selection.Copy Destination:=Sheets("scc2").Range("C5") وممكن كمان في سطر واحد أيوا في سطر واحد !!!!!!! ActiveCell.Copy Destination:=Sheets("scc2").Range("C5") االأخ mas123 جزاكم الله خيراً على الإضافة الخاصة بتفريغ الحافظة أخوكم أبو البراء تم تعديل أغسطس 10, 2009 بواسطه YasserKhalil
أ / محمد صالح قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 في 10/8/2009 at 07:01, YasserKhalil said: السلام عليكم جميل أخ سالم بس بردو إنت بتستخدم مسجل الماكرو ( مش قلتلك تذاكر الدروس كويس) ممكن نختصر الكود في سطرين ActiveCell.Select Selection.Copy Destination:=Sheets("scc2").Range("C5") وممكن كمان في سطر واحد أيوا في سطر واحد !!!!!!! ActiveCell.Copy Destination:=Sheets("scc2").Range("C5") االأخ mas123 جزاكم الله خيراً على الإضافة الخاصة بتفريغ الحافظة أخوكم أبو البراء مشكور يا أخي هذه هوايتي اختصار الأكواد رائع 1
ياسر خليل أبو البراء قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 الأخ mas123 أود أن أعرف اسما لك نناديك به وأتمنى أن تلتحق بدورتنا المتواضعة علك تفيد وتستفيد الدورة على هذا الرابط: http://www.officena.net/ib/index.php?showtopic=29207&st=0 أخوك أبو البراء
سالم شباني قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 بكل صدق وصراحة لقد قمت بكتابة الكود يدويا وليس بتقنية التسجيل وهذا ريثما نستوعب الإختصار في الأكواد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.