منع لصق القيم و التنسيق

[نايف - م]

السلام عليكم

لقد تعلمت من هذا المنتدى الكثير , و أتمنى أن تساعدوني في حل مشكلتي

أرغب في منع لصق القيم و التنسيقات معها , فقط لصق القيم , بشكل آلي , كأن يكون خيار أو كود أو ماشابه , لا أريد في كل مرة أستخدام خاصية اللصق من الزر الذي يظهر بجانب عملية اللصق

شكرا لكم

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

السلام عليكم

استخدم هذا الكود

طبعا استخدامة بعد النسخ

Sub Paste_value()
On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    On Error GoTo 0
End Sub

خبور خير

[نايف - م]

السلام عليكم

أشكرك الأخ العزيز على استجابتك , لكنني أستخدم هذا الكود الذي تعلمته من الموقع و هو لنسخ بيانات تمت تصفيتها إلى ورقة أخرى ’ فهل ينطبق كودك على هذا الكود

أشكرك

Sub MyQur()

Range("sale_data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"cri_sale_data"), copyToRange:=Range("myres"), Unique:=False

End Sub