السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا سلفا لما تقدموه من مجهود اريد طلب لو تفضلتم
في الجدول المرفق اريد تطبيق هاد الكود اخفاء السطور الفارغة اعتمادا على ان يتم اختيار عدد الصفوف التي اريد اخفائها
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 20 Then Exit Sub
If Target.Row <> 1 Then Exit Sub
Application.ScreenUpdating = False
m = [t1]
n = Range("Ah7").Row
o = m + n
For i = n To 77
If Cells(i, 1).Row <= o - 1 Then
Cells(i, 1).EntireRow.Hidden = False
Else
Cells(i, 1).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
444.zip