محمد الزريعي قام بنشر أكتوبر 13, 2015 مشاركة قام بنشر أكتوبر 13, 2015 Range("e1").Select ActiveSheet.Paste السلام عليكم ورحمة الله وبركاته .. الاخوة الاعزاء الكرام .. مساكم الله بالخير والعافية .. كي لا اطيل عليكم لقد وضعت كود في محرر الاكواد vba من ضمنه امر لصق .. وتم البرنامج شغال 100% البرنامج يقوم بالنسخ والصق كما هو معروف للجميع ولكن . يبقى زر اللصق فعال ( نشط ) بعد الانتهاء من الكود .. أي يمكنني ان الصق ما تم نسخة سابقا مرة اخرى .. المطلوب لا يمكن تكرار عملية الصق مرة اخرى الا بتكرار الكود بالكامل ،، أي بعد الانتهاء من تنفيذ الكود وتم اللصق .. يكون زر اللصق غير فعال أي غير نشط . رابط هذا التعليق شارك More sharing options...
باضاوي قام بنشر أكتوبر 13, 2015 مشاركة قام بنشر أكتوبر 13, 2015 السلام عليكم أأخي العزيز أضف هذا السطر في آخر الكود application.cutcopymode=false رابط هذا التعليق شارك More sharing options...
محمد الزريعي قام بنشر أكتوبر 14, 2015 الكاتب مشاركة قام بنشر أكتوبر 14, 2015 اولاً شكراً لك على المشاركة .. وجوابك صحيح .. لكن ما تم نسخة عبارة عن صورة وقمت بعمل خدعة للبرنامج هو ان ينسخ أي شئ من الورقة ويلصقة ثم ينفذ الكود .. وضبط معي والكود هو كالتالي Sub moh()Range("e6").CopyRange("d7").Pastespecial Paste:=xlvaluesApplication.Cutcopymode = FalseEnd Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان