كود اخفاء السطور حسب رقم بخلية

[كرتوتي]

السلام عليكم اخواتي .أرجومساعدتي في الملف المرفق بحيث اريد عندما اكتب في الخلية m5 عدد التلاميذ يتم اظهار عدد السطور بقدر عدد التلاميذ واخفاء باقي الصفوف في الجدول .

ts2.rar

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

السلام عليكم

تفضل يا صديقي هذا الملف

ts3 vba.rar

[زائر]

تفضل أخي الفاضل ما تريد

للاخفاء

Sub braa_Hidde()
For b = 11 To 67
If Cells(b, 2) = "" Then Cells(b, 2).Select
ActiveCell.EntireRow.Hidden = True
Next b

للاظهار

End Sub
Sub braa_show()
Range("11:67").EntireRow.Hidden = False
End Sub

[عبدالله باقشير]

السلام عليكم

 

جرب هذا بعد وضعه في موديل الورقة ts2

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
If Target.Address = [M5].Address Then
    Range("A11:A67").EntireRow.Hidden = False
    M = Application.Match([M5], Range("A11:A67"), 0) + 11
    If M <= 67 Then Range("A" & M & ":A67").EntireRow.Hidden = True
End If
1
End Sub

تحياتي

[كرتوتي]

السلام عليكم الف شكر للمساعدة

الى الاخويين سليم و محمد اريد ان أطبق العمل انطلاقا من الخلية m5 بدل الاعتماد على الازرار بحيث m5  تساوي عدد التلاميذ .

بالنسبة لاستاذنا الكبير عبد الله حاولت تطبيق ما تفضلت به ولم ينجح معي الامر المرجو تنفيذ العملية على الملف المرفق .

[عبدالله باقشير]

وعليكم السلام

 

تفضل المرفق 2010

ts2.rar

[كرتوتي]

جزاك الله عني الف خير استاذي عبد الله باقشير فعلا كود رائع جدا .

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

السلام عليكم و رحمة الله

بعد اذن الاستاذ الكبير عبدالله 

حل اخر من خلال كود بسيط

ts3 vba.rar

[كرتوتي]