تحويل المعادلات الى قيم

[amir501]

اخواني السلام عليكم

الكود المرفق يقوم بتحويل المعادلات الى قيم ( طبعا بعد وصول التاريخ المعين بالكود)

لكنه بقوم التحويل لكامل المصنف(لكافة ورقات العمل)

هل يمكن ان يقوم التحول عند تنشيط لصفحة فقط اي؟؟؟؟؟ عند بلوغ التاريخ (وما بعد التاريخ) اي صفحة ندخل اليها يقوم الكود بتحول معادلات الصفحة فقط الى قيم والبقاء على معادلات الصفحات الاخرى حتى ندخل الى الصفحة كي يعمل الكود

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

Sub auto_open()

Dim Expiry As Date

    'If today's date > expiry date, the file will close

    Expiry = DateValue("01/010/2010")

    If Date > Expiry Then

Dim CEL As Range

Application.ScreenUpdating = False

Application.Calculation = xlManual

For S = 1 To ActiveWorkbook.Sheets.Count

Sheets(S).Activate

For Each CEL In ActiveSheet.UsedRange

If CEL.HasFormula = True Then CEL = CEL.Value

Next CEL

Next S

Application.Calculation = xlAutomatic

    Application.ScreenUpdating = False

    Else

    ActiveWorkbook.Save

End If

End Sub

[عادل حنفي]

السلام عليكم

اخي الفاضل

اتمني ان يكون هذا ما تقصده

علما بان الكود سيتم عمله في تاريخ اكبر من او يساوي 01/12/2010

تحياتي

formula.rar

[amir501]

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

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

اشكرك كل الشكر

لا حرمنا الله من علمك دائما انت للخيير سباق