اريد كود بحيث لو تم النسخ واللصق لا يمسح تنسيق الملف

[خالد الشيخ]

السلام عليكم

لدي جدول ما  هل هناك اكواد تمنع عند النسخ واللصق لا يتغير شكل التنسيق

حيث ان المفترض ان يكون اللصق كقيم فقط وليس ككل  ، ولكن احيانا يتم نسيان ذلك وعمل ككل فبالتالي يتغير شكل التنسيق للملف

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

انتبه من فضلك ..فقد تـــم اعادة رفع الملف بإمتداد يقبل الأكواد Xlsm , طالما ان طلبك لا يمكن تنفيذه الا بالأكواد

Rs.xlsm

[محمد هشام.]

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
End Sub

 ثم  انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف  و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

 

[خالد الشيخ]

اكثر من رائع  ، ولكن هل ممكن ان يكون اللصق مثل الطريقة العادية  بمعنى  ان اعمل نسخ  واذهب لأي مكان اريده  واعمل لصق عادي  بدل من الضغط على الخلية ويلصق مباشرة

[أ / محمد صالح]

أقترح تنفيذ ذلك يدويا وليس بالكود

عن طريق عمل لصق كقيم paste as values بدلا من لصق paste 

ورمزها (123) في القائمة المختصرة للخلية والتي تظهر بعد عمل كلك يمين عليها

وإذا كنت حريصا على استخدام الكود فيمكنك وضع هذا الاجراء في موديول جديد وربطه بزر وليكن اسمه لصق

Sub pst
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

وهو للصق ما تم نسخه في الخلية المحددة

ولاستخدام هذا الاجراء عند الضغط على CTRL+V يمكن وضع هذا الكود في حدث المصنف ThisWorkbook

Private Sub Workbook_Activate()
Application.OnKey "^v", "pst"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "^v"
End Sub

بهذه الطريقة تحافظ على تنسيق الملف الذي يتم اللصق فيه 

عند استخدام الزر المرتبط بالكود أو اللصق باستخدام ctrl+v

بالتوفيق

[خالد الشيخ]

تم المطلوب اخي الفاضل ومعذرة مرة اخرى لظروفي

تم وضع المديول والكود  وتم التنفيذ عند عمل  ctrl+v 

لكن هل ممكن اضافة ذلك ايضا لو احد اختار زر  لصق من القائمة  العادي وليس  123

[أ / محمد صالح]

الحمد لله الذي وفقني في مساعدتك في مهمتين

اللصق كقيم غند الضفط على زر أو باستخدام CTRL+V

وعذرا لضيق وقتي

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

بالتوفيق للجميع