مسح المعادلات

[خالد الشاعر]

السادة الخبراء

اريد حذف المعادلات فى نطاق معين وهذا كود اريد تعديلة

Sub Formula()
Dim Cl As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    For Each Cl In Range("AZ1:AZ300")
        If Cl.Value = Formula Then
        Cl.ClearContents
            
        End If
    Next Cl

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

يعطى خطاء فى هذا السطر   If Cl.Value = Formula Then

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

[سليم حاصبيا]

والافضل من ذلك هذا الكود اليسبط

Sub Macro1()
    Range("AZ1:AZ300").SpecialCells(xlCellTypeFormulas, 23).ClearContents
  End Sub

للعمل حسب الماكرو عندك استبدل السطر المذكور بهذا

If Cl.HasFormula Then

 

 

[خالد الشاعر]

استاذ سليم

شكرا على سرعة المساعدة

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

[سليم حاصبيا]

1 دقيقه مضت, خالد الشاعر said:

استاذ سليم

شكرا على سرعة المساعدة

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

اين الاعجاب

او ان النقر على الزر صعبة أوي (انا امزح)

[خالد الشاعر]

استاذ سليم

ليس صعب اعمالك تاخذ اعجاب الجميع

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