اظهار الصف اللي بعد الصف اللي فيه بيانات

[مستر ابو مرمر]

ارجو من السادة خبراء الاكسيل ان يعلموني كيف اصنع كود تكون الصفوف كلها مخفيه و لكن يظهر الصف تلقائيا عند كتابة بيانات في الصف السابق له يعني انا بسجل بيانات التلاميذ في شيت كنترول يكون صف واحد فقط ظاهر و الباقي مخفي و بمجرد ما اضغط انتر علشان اضيف بيانات طالب جديد يظهر صف واحد فقط و هكذا هل هذا الطلب صعب ؟

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

 عسى ان ينال اعجابك

اخفاء صفوف.rar

[مستر ابو مرمر]

شكرا على المساغدة و لكن ما اريدة هو انني مثلا اكتب في الصف الثاني فلا يظهر غير الصف الثالثو عندما انتقل للصف الثالث يظهر الصف الرابع و هكذا

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

استبدل الكود بهدا

Sub hid()

Dim myrng As Range
lr1 = Cells(Rows.Count, 2).End(xlUp).Row

Set myrng = Range("a2:a1048576")
myrng.Rows.Hidden = True

Range("a" & lr1 + 1 & ":" & "a" & lr1 + 2).Select
Selection.Rows.Hidden = False

Range("a" & lr1).Rows.Hidden = True
'Range("a" & "2" & ":" & "a" & lr1 - 1).Rows.Hidden = True
Range("a" & lr1 + 1).Select
Range("a" & lr1 + 1).Activate

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
lr1 = Cells(Rows.Count, 2).End(xlUp).Row
mycell = Range("d" & lr1).Address
If Not Intersect(Target, Range(mycell)) Is Nothing And Target.Count = 1 Then
If Target.Address = Range("d" & lr1).Address Then
On Error Resume Next
Application.ScreenUpdating = False
hid
Range("a" & lr1 + 2 & ":" & "a" & "1084576").Rows.Hidden = True
End If
End If
Application.ScreenUpdating = True

End Sub

[مستر ابو مرمر]

ارجو شرح هذا الكود و ان امكن مثال معه اكون شاكر جدا