otomatik satır gizleme

[bugüven]

otomatik satır gizlemek için önceki sayfalardan bulduğum aşağıdaki makroyu kullandım fakat benim tabloda ki hücreler başka sayfadan veri aldığı için kod hata veriyor. bunun başka bir yöntemi varmı acaba.



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A18:A1017")) Is Nothing Then Exit Sub
Rows(Target.Row + 2 & ":1017").EntireRow.Hidden = True
If Target.Value <> "" Then
Rows(Target.Row + 2).EntireRow.Hidden = False
End If
End Sub