اظهار الصفوف حسب عدد

[ابوصلاح]

السام عليكم اخواني الاعزاء بعد اذن حضرتكم اريد المساعدة

اريد في المرفق 

اخفاء مدي معين من الصفوف واظهار صفوف معينة حسب عدد معين باقي الشرح في المرفق

اخفاء واظهار الصفوف حسب العدد.rar

[سليم حاصبيا]

ربما يكون هذا الماكرو المطلوب

Sub hide_rows()
x = [d7]
Rows("9:59").Hidden = True
Rows("" & 9 & ":" & 9 + x-1 & "").Hidden = False
End Sub

 

تم تعديل أغسطس 25, 2016 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

جرب الكود التالي في حدث ورقة العمل 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" And Not IsEmpty(Target) Then
        Rows("9:108").Hidden = True
        Rows(9).Resize([D7]).Hidden = False
    End If
End Sub

 

[ابوصلاح]

ربما يكون هناك خطا في لكود استاذ سليم 

لكن هذا كود ما رايك فيه

Sub hide_rows()
Range("d9:d100").EntireRow.Hidden = False
Dim Cl As Range
 
    For Each Cl In Range("d9:d100")
        If Cl.Value = "" Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl

End Sub

[ابوصلاح]

استاذ ياسر شكرا 

الكود  يفي بالغرض 

بارك الله فيك