السلام عليكم
بالامس كنت مشغول بامر
اليك مثال
جهازي يحتاج لدقيقه لتنفيذ الكود
5000 صف ؟؟ رقم كبير
* ملاحظه : التطبق تم على عشره الاف خلية
لكن اذا كان تطبيق الكود على مجموعات 500 ا واقل
يكون اكثر فاعليه
DrowCircle1.rar
السلام عليكم
قف على خليه التاريخ
****احسب مقبض التعبئه ** بالزر الايمن** لاسفل الى العدد الذى تريد من الخلايا
حرر زر الماوس الايمن
* تظهر قائمه كما في الصوره المرفقه
اختر تعبئه الاشهر او الايام او السنوات
_________.rar
السلام عليكم
هنا يفتع على ورقه 2
لانه عرف الفتح على رقم الشيت و ليس الاسم
للفتح على اسم و ليس رقم
اكتي الاتى
sheets("yoursheetname").activate
open_in.rar
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each cell In Range("k1:k49")
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub