اذهب الي المحتوي
أوفيسنا

طلب بسيط فى نسخ الخلية النشطة


الردود الموصى بها

الاخوة الفاضل : بارك الله فيكم

مطلوب نسخ خلية نشطة من صفحة ولصقها فى صفحة اخرى فى خلية محددة

موضح بالمرفق

وذلك لا ستخدامها فى برنامج للاسف لم استطع ارفاقة لكبر حجمة وارفقت مثال

ارجو الرد

celles.rar

رابط هذا التعليق
شارك

السلام عليكم

أخي خالد

الذي يتابع مساهماتكم وأعمالكم يجبر على التعلم

فعلا دورة الأستاذ ياسر تركت بصماتها علينا جميعا

وأنت تعرف رغبة الأستاذ ياسر يريد نشاطا وحيوية في المنتدى

وأنا لا أبخل بشيء إذا علمته

شكرا على مرورك المميز

رابط هذا التعليق
شارك

السلام عليكم

إليك الملف المرفق به الكود المطلوب

بارك الله فيك أخي سالم

لي تعليق بسيط انه يمكن حذف بعض السطور

وإضافة سطر مهم جدا بعد كل عملية نسخ ألا وهو تفريغ الحافظة مما تم نسخه

حتى يصبح كود الدالة هكذا

Sub active_cell()

    Selection.Copy

    Sheets("scc2").Select

    Range("C5").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

End Sub

شكرا لك مرة أخرى

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

أخي mass123 حياك الله

ما شاء الله عليك إضافة في محلها

بارك الله فيك على هذه المساهمة وعلى تعاونك

زادك الله علما

بعض ما عندكم اخي سالم

سلمك الله من كل سوء

وبارك فيك

ونفع بك

أخوك

محمد صالح

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

جميل أخ سالم

بس بردو إنت بتستخدم مسجل الماكرو ( مش قلتلك تذاكر الدروس كويس)

ممكن نختصر الكود في سطرين

ActiveCell.Select

Selection.Copy Destination:=Sheets("scc2").Range("C5")

وممكن كمان في سطر واحد أيوا في سطر واحد !!!!!!!

ActiveCell.Copy Destination:=Sheets("scc2").Range("C5")

االأخ mas123

جزاكم الله خيراً على الإضافة الخاصة بتفريغ الحافظة

أخوكم أبو البراء

تم تعديل بواسطه YasserKhalil
رابط هذا التعليق
شارك

السلام عليكم

جميل أخ سالم

بس بردو إنت بتستخدم مسجل الماكرو ( مش قلتلك تذاكر الدروس كويس)

ممكن نختصر الكود في سطرين

ActiveCell.Select

Selection.Copy Destination:=Sheets("scc2").Range("C5")

وممكن كمان في سطر واحد أيوا في سطر واحد !!!!!!!

ActiveCell.Copy Destination:=Sheets("scc2").Range("C5")

االأخ mas123

جزاكم الله خيراً على الإضافة الخاصة بتفريغ الحافظة

أخوكم أبو البراء

مشكور يا أخي

هذه هوايتي اختصار الأكواد

رائع

  • Like 1
رابط هذا التعليق
شارك

الأخ mas123

أود أن أعرف اسما لك نناديك به

وأتمنى أن تلتحق بدورتنا المتواضعة علك تفيد وتستفيد

الدورة على هذا الرابط:

http://www.officena.net/ib/index.php?showtopic=29207&st=0

أخوك أبو البراء

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information