aşağıdaki kod aktif sayfanın değiştiğinde olayına ait.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("D1318")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range("d13") = "" Then Rows("13:18").EntireRow.Hidden = True Else Rows("13:18").EntireRow.Hidden = False
End If
End Sub