zahraamohamed قام بنشر يناير 2, 2021 مشاركة قام بنشر يناير 2, 2021 ممكن تعديل الماكرو لينفذ إخفاء الصف اذا كان الخلية فى العمود a فارغ+الخلايا من d:j =0 او فارغة شكرا hide rows.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 2, 2021 أفضل إجابة مشاركة قام بنشر يناير 2, 2021 This Macro Sub HideRows() Dim Ro%, i% With Sheets("Sheet1") .Rows.Hidden = False Ro = .Cells(Rows.Count, "C").End(3).Row For i = 1 To Ro If .Cells(i, 1) = vbNullString And _ Application.Sum(.Cells(i, "d").Resize(, 7)) = 0 Then .Cells(i, 1).EntireRow.Hidden = True End If Next End With End Sub '+++++++++++++++++++++++++++++++++++ Sub show_all() Sheets("sheet1").Rows.Hidden = False End Sub 1 رابط هذا التعليق شارك More sharing options...
zahraamohamed قام بنشر يناير 2, 2021 الكاتب مشاركة قام بنشر يناير 2, 2021 ميرسى كلك زوق والله بارك الله فيك تم تطبيق الماكرو ولكن اخر اربع صفوف فارغين تمام ومع ذلك لم يت الاختفاء شكرا لحضرتكم hide rows.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 3, 2021 مشاركة قام بنشر يناير 3, 2021 انا اعتمدت على العامود C (في الملف الذي رفعته سابقاً) عندما رأيت ان اخر صف فيه غير فارغ لذلك كي يشمل الماكرو اي عامود يجب استبدال ما في المربع الأحمر بما هو في المربع الأزرق (الصورة) 2 رابط هذا التعليق شارك More sharing options...
zahraamohamed قام بنشر يناير 3, 2021 الكاتب مشاركة قام بنشر يناير 3, 2021 اشكر حضرتك جدا حضرتك كلك ذوق بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان