Soru Bir kod satırı hakkında

[tarık34]

Aşağıdaki kod satırı aktif sayfada pencere durumunu normal hâle getiriyor.
ActiveWindow.View = xlNormalView
Ben bu kod satırını başka bir sayfada iken çalıştırıp sonuç almak istiyorum.

Örnekle izah edilecek olursa şöyle:
Sayfa1'deki bir butona tıklayınca Sayfa1'den ayrılmadan SONUÇLAR sayfasının sayfa düzeninde olan pencere görünümünü normal yapmak istiyorum.
Makro bilgim yok, deneme yanılma ile çözeyim dedim şöyle bir şey yaptım ama hata verdi:

Sub normal_görünüm()
    Sheets("SONUÇLAR").Window.View = xlNormalView
End Sub

 

[ÖmerBey]

Merhaba,
Şöyle bir şey işinizi görür mü?

Sub normal_görünüm()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = ActiveSheet
Set s2 = Sheets("SONUÇLAR")
Application.ScreenUpdating = False
Application.EnableEvents = False
s2.Activate
ActiveWindow.View = xlNormalView
s1.Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[tarık34]

ÖmerBey,
Kod işi yaptı. Teşekkür ederim.

Bir konuda daha ricam olacak.
Eğer bu şekildeki sayfa sayısı birden fazla ise nasıl yazılmalı bu kod?
Örneğin SONUÇLAR1, SONUÇLAR2, SONUÇLAR3, SONUÇLAR4 diye sayfalarım varsa kodu nasıl oluşturmalıyım?

 

[ÖmerBey]

Şu şekilde deneyiniz.

Sub normal_görünüm()
Dim s1 As Worksheet
sayfalar = Array("SONUÇLAR1", "SONUÇLAR2", "SONUÇLAR3", "SONUÇLAR4")
Set s1 = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each sayfa In sayfalar
    Sheets(sayfa).Activate
    ActiveWindow.View = xlNormalView
Next
s1.Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[tarık34]

Tekrar teşekkür ederim.
İşlem yapılabiliyor.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...