طلب زر نسخ لصق vba او تسجيل ماكرو

[habibdar]

كل الشكر سلفا للاساتذة الكرام 

المطلوب 
صفحة معينة اقوم بتحديد خلية ما بالماوس و بضغط الزر يتم نسخ محتوى الخلية الشار اليها (يتم تحديدها بالماوس ) الى خلية محددة مسبقا و ثابته 

[عبدالله بشير عبدالله]

جسب فهمي لطلبك

طبعا C9 خلية اللصق التابتة يمكنك تغييرها

Sub COPYPASTE()
ActiveCell.Copy
    Range("C9").Select
    ActiveSheet.Paste
End Sub

 

[habibdar]

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

[عبدالله بشير عبدالله]

2 ساعات مضت, habibdar said:

عندما اريد تحديد اللصق بصفحة اخرى بخلية معينة هل اكتب اسم الصفحة بدل الصفحة النشطة ؟

Sub COPYPASTE()
ActiveCell.Copy
    Range("C9").Select
    Sheets("SHEET2").Select
    Range("C8").Select
    ActiveSheet.Paste
End Sub

 

[habibdar]

السلام عليكم استاذي
لم يعمل الكود الثاني ارسل لكم صورة الخطأ 

[عبدالفتاح في بي اكسيل]

 لا يوجد  ورقة  لديك  اسمها   sheet3    عدلها  كما  في  الصورة 

[عبدالله بشير عبدالله]

قم بنغيير اسم الشيت كما افاد استاذنا عبد الفتاح

[habibdar]

تم شكرا لكم اساتذتي 
اصبح الكود يعمل تماما 
و لكن هناك ملاحظة هامة انني ببعض اكواد البحث و الترحيل قمت بتسمية الاوراق باسمها فلم تعمل الكودات 
فقمت بالبحث عن اسمها قبل التعديل و عملت الكودات 
سوف انسخ لكم الكودات التي عملت مع تسميات مماثلة