السلام عليكم ورحمه الله
بسم الله الرحمن الرحيم
ماشاء الله ياأستاذ محمد ربنا يبارك لك
لو سمحت حاولت اعدل الكود للعمل على 300 صف ولكنى فشلت ولم اعرف السبب
وهذا هو الكود
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$3" Then
Sheets("2").Range("A10:ax309").EntireRow.Hidden = False
If Target.Value = 300 Then Exit Sub
Sheets("2").Range(Cells(Target.Value + 10, 1), Cells(309, 300)).EntireRow.Hidden = True
End If
End Sub
شكرا لكم وارجو الافادة