بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع
عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسيل VBA
ستساعدك
أكواد الماكرو هذه على أتمتة بعض المهام التي
يمكن أن توفر لك المزيد من الوقت.
حذف جميع أوراق العمل الفارغة Delete all Blank Worksheets
فاتورة مبيعات احترافية
قم بتشغيل هذا الكود وسيقوم بفحص جميع أوراق العمل في المصنف النشط وحذفها إذا كانت اوراق العمل فارغة
Sub
deleteBlankWorksheets()
Dim
Ws As Worksheet
On
Error Resume Next
Application.ScreenUpdating=
False
Application.DisplayAlerts=
False
For
Each Ws In Application.Worksheets
If
Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End
If
Next
Application.ScreenUpdating=
True
Application.DisplayAlerts=
True
End
Sub