السلام عليكم
تفضل أخي الملف التالي وهو عبارة عن نموذج فاتورة
عند الضغط على زر فاتورة جديدة يقوم بمسح كل محتويات الفاتورة
وهناك زر طباعة يقوم بإخفاء الصفوف الفارغة عند المعاينة
يعني ليس هناك حاجة لحذف الصفوف الفارغة فهي تختفي تلقائيا
كما يوجد في الملف دالة التفقيط
كود المسح هو :
Sub clear()
Range("A14:G45").ClearContents
End Sub
تستطيع تحديد المدى الذي تريد مسحه من خلال ("Range("A14:G45
فاتورة.rar