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

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

السلام عليكم

كود اخر

Sub ValuesOnly()

Dim rRange As Range

On Error Resume Next

Set rRange = Application.InputBox(Prompt:="Select the formulas", Title:="VALUES ONLY", Type:=8)

If rRange Is Nothing Then Exit Sub

rRange = rRange.Value

End Sub

[code]

تم تعديل مايو 8, 2007 بواسطه ابو اسامة العينبوسي

[احمدزمان]

بسم الله الرحمن الرحيم

الصلاة و السلام على رسول الله

السلام عليكم

ابواسامة - صباح الخير

كود جميل

وشكرا جزيلا

جزاك الله خيرا