A1 Hücre değeri Sıfır(0) ise 10 ncu ve 20 nci Satırlar arasını gizle, değilse göster.

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [a1].Value = 0 Then
    Rows("10:20").EntireRow.Hidden = True
    Else
    Rows("10:20").EntireRow.Hidden = False
    End If
End Sub

bun konu ile ilgili bir sorum olcak

EGER sayfa1 deki a22 hücresi 0 sa sayfa2 deki a25 satırını gizle eger 0 ise göster
bu şekilde bir formül kurula bilirmi

Herhalde 0 değilse demek istediniz. Eğer sizi yanlış anlamadımsa;

Kod: Tümünü seç

Sub GizleGoster()
If Sheets("Sayfa1").Range("A22").Value = 0 Then
    Sheets("Sayfa2").Select
    Rows("25").EntireRow.Hidden = True
    Else
    Sheets("Sayfa2").Select
    Rows("25").EntireRow.Hidden = False
End If
End Sub

şeklinde değiştirirseniz istediğiniz sonucu alırsınız.