Satır Gizleme Problemi

[_Sir_Lancelot_]

Merhabalar,

Private Sub Worksheet_Activate()
    'Kapak Sayfasında Islak Hacim Yoksa, "Islak Hacim Panelleri" satırlarını gizleme
    
    Dim x As Integer
    Set a = Sheets("KAPAK")
    
        
    If a.Cells(6, 10) = "H" Then
    a.Cells(24, 1).EntireRow.Hidden = 1
    Else
    a.Cells(24, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(25, 1).EntireRow.Hidden = 1
    Else
    a.Cells(25, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(26, 1).EntireRow.Hidden = 1
    Else
    a.Cells(26, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(27, 1).EntireRow.Hidden = 1
    Else
    a.Cells(27, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(28, 1).EntireRow.Hidden = 1
    Else
    a.Cells(28, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(29, 1).EntireRow.Hidden = 1
    Else
    a.Cells(29, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(30, 1).EntireRow.Hidden = 1
    Else
    a.Cells(30, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(31, 1).EntireRow.Hidden = 1
    Else
    a.Cells(31, 1).EntireRow.Hidden = 0
    End If
    
    If a.Cells(6, 10) = "H" Then
    a.Cells(32, 1).EntireRow.Hidden = 1
    Else
    a.Cells(32, 1).EntireRow.Hidden = 0
    End If
    
 End Sub

Koddaki Sıkıntım şu eğer [Hücre (6,10)] seçimde "H" yi işaretemezsem sayfalar arası gidip gelince işlem gerçekleşiyor. Bu durumda hem kodu kısaltmam hem de [Hücre (6,10)] değişik gerçekleşince otomatik olarak sayfanın yenilenmesini istiyorum.

Yardımlarınız için şimdiden teşekekkürler.

 

[bedersu]

Sayın _Sir_Lancelot_,
Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim x As Integer
    Set a = Sheets("KAPAK")
    For i = 24 To 32
        
    If a.Cells(6, 10) = "H" Then
    a.Cells(i, 1).EntireRow.Hidden = 1
    Else
    a.Cells(i, 1).EntireRow.Hidden = 0
    End If
    Next
    
   
End Sub