خالد الشاعر قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 السادة الخبراء اريد حذف المعادلات فى نطاق معين وهذا كود اريد تعديلة 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 جزاكم الله كل خيراً رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 والافضل من ذلك هذا الكود اليسبط Sub Macro1() Range("AZ1:AZ300").SpecialCells(xlCellTypeFormulas, 23).ClearContents End Sub للعمل حسب الماكرو عندك استبدل السطر المذكور بهذا If Cl.HasFormula Then 2 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 19, 2016 الكاتب مشاركة قام بنشر نوفمبر 19, 2016 استاذ سليم شكرا على سرعة المساعدة جزاك الله كل خيراً 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 1 دقيقه مضت, خالد الشاعر said: استاذ سليم شكرا على سرعة المساعدة جزاك الله كل خيراً اين الاعجاب او ان النقر على الزر صعبة أوي (انا امزح) 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 19, 2016 الكاتب مشاركة قام بنشر نوفمبر 19, 2016 استاذ سليم ليس صعب اعمالك تاخذ اعجاب الجميع جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.