Worksheet Change Başka sayfadaki verinin değişimine göre otomatik güncellesin

[Barfly]

Herekse merhaba,

Sayfa 2 deki P1 hücresi Sayfa1 deki A1 hücresinden veri alıyor. Aşağıdaki kodda P1 deki değişikliğe göre sayfa 2 deki bazı satırların gizlenmesini sağlamaya çalıştım fakat Sayfa 1 de yaptığım değişiklik sonrası Sayfa 2 ye gidiyorum gizleme olmuyor. P1 hücresine çift tıkladığım zaman refresh yapıyor. Bunu otomatik hale getirmem için nasıl yazmam lazım, yardımcı olabilirseniz çok sevinirim.

Teşekkürler,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [P1]) Is Nothing Then Exit Sub
        Application.ScreenUpdating = False
        
        If [P1] = "" Then
        Application.ScreenUpdating = True
        Rows("33:172").EntireRow.Hidden = True
        Application.ScreenUpdating = True
        End If
        
        If [P1] = "1" Then
        Application.ScreenUpdating = True
        Rows("33:172").EntireRow.Hidden = False
        Rows("40:172").EntireRow.Hidden = True
        Application.ScreenUpdating = True
        End If
        
        If [P1] = "2" Then
        Application.ScreenUpdating = True
        Rows("33:172").EntireRow.Hidden = False
        Rows("47:172").EntireRow.Hidden = True
        Application.ScreenUpdating = True
        End If
                                
        Application.ScreenUpdating = True

End Sub

 

[Recep İpek]

Sayfa2 P1 hücresine Sayfa1 A1 hücresinden direkt veri aldırdığınızda excel bunu değişiklik olarak kabul etmez.

Sayfa1'e aşağıdaki kodları kopyalayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
        Application.ScreenUpdating = False
        
        Sheets("Sayfa2").Range("P1").Value = Range("a1").Value
        
        Application.ScreenUpdating = True
End Sub

 

[Barfly]

Recep Bey,

Çok teşekkür ederim.