كود مسح البيانات

[mselmy]

الساده الزملاء

السلام عليكم

قمت بعمل كود يمسح البيانات من نطاق معين من الخلايا

لكن المشكله هى ان التنسيقات تظل فى الخلايا مثل حدود الخليه

فهل من الممكن اضافة كود يقوم بمسح التنسيقات ( الحدود ) من الخلايا واعادتها الى الوضع الاصلى

وتفضلوا بقبول وافر الاحترام

[علي السحيب]

استخدم الكود التالي:

Sub BackToNormal()
    
    Dim MyRange
    
    Set MyRange = [E7:G13]
    
    MyRange.ClearContents
    [IV1].Copy
    MyRange.PasteSpecial Paste:=xlPasteFormats
    [A1].Activate
    
End Sub

وقم بتغيير النطاق [E7:G13] إلى النطاق الذي لديك،