Koşullu çalışma sayfası değiştirme

[adilatman]

Herkese merhaba,

Bir sorum var:

3 Sayfam var. Sayfa2 ve Sayfa3 gizli. Sayfa1'de bir buton oluşturdum. Ve bu butona öyle bir makro atamak istiyorum ki, A1 hücresinin değeri "A" ise Sayfa1'i gizleyip Sayfa2'ye, "B" ise Sayfa3'e geçsin. Teşekkür ederim.

Saygılar.

 

[Ömer]

Merhaba,

Sub Deneme()
    If Range("A1") = "A" Then
        Sheets("Sayfa2").Visible = True
        Sheets("Sayfa2").Select
        Sheets("Sayfa1").Visible = False
    Else
        Sheets("Sayfa3").Visible = True
        Sheets("Sayfa3").Select
        Sheets("Sayfa1").Visible = False
    End If
End Sub

.

 

[adilatman]

Teşekkürler