HÜCRE DEĞERİNE GÖRE SATIR GİZLE

[cocoa35]

Arkadaşlar merhaba, Ek'te örnek dosyada belirttiğim gibi B4 Hücresinde "GİRİŞ" Yazıyor ise Sayfa1 A3:R4 Satırları gizlensin, başka bir şey yazıyor ise satırlar yeniden gösterilsin şeklide satır gizle ve göster yaptırmak istiyorum. Örnekleri inceledim ama tam uyarlayamadım bu konuda yardım edermisiniz.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub gizle_goste()

    Dim S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    S1.Rows("3:4").EntireRow.Hidden = False
    S1.Rows("10:13").EntireRow.Hidden = False
    S1.Rows("16:19").EntireRow.Hidden = False
    
    If S2.[B4] = "GİRİŞ" Then
        S1.Rows("3:4").EntireRow.Hidden = True
    End If
    
    If S2.[B7] = "YAPI" Then
        S1.Rows("10:13").EntireRow.Hidden = True
    End If
    
    If S2.[B9] = "KAZI" Then
        S1.Rows("16:19").EntireRow.Hidden = True
    End If
    
End Sub

 

[cocoa35]

Ömer bey çok teşekkürler gayet güzel olmuş .