كود يلغي جميع الصيغ و المعادلات بالورقة و يحول قيمها الى قيم ثابته

[ابو اسامة العينبوسي]

السلام عليكم

Dim MyRange As Range
Dim Cell As Range
Set MyRange = ActiveSheet.Range("D3:D500")
Application.ScreenUpdating = False
For Each Cell In MyRange
    If IsNumeric(Cell) And Not IsEmpty(Cell) Then
        Cell = Cell.Value
    End If
Next Cell
Application.ScreenUpdating = True

هذا الكود يقوم بتحويل الصيغ في العمود d3:d500

الى قيم ثابته

[محمد عسكر]

السلام عليكم

بارك الله فيك يا اخى / ابو اسامة العينبوسي

دائما روائعك تتحفنا

تحياتى

محمد عسكر

ASKER3000@GMAIL.COM

[ابو اسامة العينبوسي]

السلام عليكم

هذا كود كنت احتجته في فتره و صممه احد الاخوه ( خضر الرجبي )على ما اذكر

[الســـــــاهر]

الله يجزاك الف خير استاذي ابو اسامة

بجرب الكود الان

الله لا يحرمنا منك يالغالي

تحياتي

[الســـــــاهر]

هو هذا المطلوب الله يبارك بحالك اخوي ابو اسامة

الله يثيبك الجنة يارب

تحياتي