طلب كود إخفاء كل الصفوف وإظهار صف جديد بناء على ملئ بيانات السف اللي قبله

[mesalame]

محتاج اخفي صفوف من 5 إلي 296

بحيث لما اكتب في B4 يقوم بإظهار صف اللي فيه B5

ولما اكتب في B5 يظهر صف B6 وهكذا

شكراً مقدماً

[أحمد يوسف]

اهلا بك اخى الكريم فى المنتدى 

طالما انك لم تقم برفع ملف وشرح المطلوب عليه بالتفصيل

فيمكنك استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات ناقشت هذه الجزئية مثل

https://www.officena.net/ib/topic/81178-اخفاء-الصفوف/?tab=comments#comment-518031

https://www.officena.net/ib/topic/88415-إخفاء-أعمدة-أو-إظهارها-استنادا-إلى-تحديد-القائمة-المنسدلة/?tab=comments#comment-557780

 

 

[mesalame]

شكراً لاهتمامك

اول صف ظاهر 4

محتاج لما كتب في يظهر 5

ولما اكتب في 5 يظهر 6

TEST.xlsm

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

هذا الماكرو تضعه في حدث الصغحة

ملاحظة:   (لا يقوم الماكرو بالعمل الا اذا كانت ال 6 حلايا من  ِA الى  F غير فارغة)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim First_row%
First_row = Application.CountA(Range("A4:A296")) + 4

 If Target.Row = First_row - 1 And _
  Application.CountA(Cells(Target.Row, 1).Resize(, 6)) = 6 Then
    Rows("4:296").Hidden = False
    Rows(First_row + 1 & ":" & 296).Hidden = True
 End If
 
 Application.EnableEvents = True
 Application.ScreenUpdating = True
End Sub

الملف مرفق

TEST_Salim.xlsm