الاخ الكريم / shakhawan
بارك الله فيك
علي حسب فهمي للطلب و ع السريع اليك هذا الكود البسيط
ارجو ان اكون قد فهمت الطلب كما تريد .... معلهش صايمين بقا ... هههه
رمضان كريم
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Rows("301:301").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
جزاك الله خيرا
تحديد عدد الصفوف في شيت معين.rar