إضافة معادلة فى كود حذف نطاق من الخلايا

[يوسف عطا]

كود الحذف التالى يعمل جيداً

Sub حذف()
Range("A6:B220").Select
Selection.Delete
End Sub

عاوز أضيف عليه انه يحط المعادلة دى

(COUNTA(B6:B220

فى الخلية C1

الكود بعد التعديل هيبقى مكتوب ازاى ؟؟

[حسين مامون]

ربما هكذا

Sub ÍÐÝ()
Range("A6:B220").Select
Selection.Delete
Range("A6:B220").Formula = "=COUNTA(B6:B220)"
End Sub

 

[يوسف عطا]

الله ينور عليك
بس عملت تعديل بسيط كالتالى
و الحمدلله أدى الغرض

[يوسف عطا]

Sub حذف()
Range("A6:B220").Select
Selection.Delete
Range("C1").Formula = "=COUNTA(B6:B220)"
End Sub