Sayfa yapısı

[AKREP1]

Arkadaşlar bu konuda yardım aldım (VBE ekranında ilgili sayfayı seçtikten sonra sol alttaki sayfa özelliklerinden
ScrollArea=A1:AV44 diye)
fakat dosya kaydedilip açılınca eski haline dönüyor.120 sayfalık kitapta tek tek sayfalara uyguladım kaydedip kapattım ve tekrar açınca hiç bir şey yapmamış gibi oldum.Lütfen yardım.
Sorun şu Excel kitabımda 120 sayfaya var. ben bu sayfalardan bazılarını A1:AV 1 İLE A44:AV44 hücreleri arasında sınırlandırmak istiyorum.Bazılarını ise farklı hücreler arasında sınırlandırmak istiyorum.Yani başkaları tarafından sayfanın geri kalan yerlerinin görünmesin istiyorum.Dosya ekte.Teşekkürler.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub Auto_Open()
Dim i As Integer
For i = 1 To Sheets.Count
    Sheets(i).ScrollArea = "A1:AV44"
Next i
End Sub

 

[AKREP1]

Teşekkürler Orion2 emeğin için sağol.Bunu bütün sayfalara göndermiş olduğun dosyadaki gibi mi kaydedeceğim.

 

[Orion1]

Teşekkürler Orion2 emeğin için sağol.Bunu bütün sayfalara göndermiş olduğun dosyadaki gibi mi kaydedeceğim.

Kod zaten dosyadaki bütün sayfalara otomatik olarak scrolArea uyguluyor.Siz dosyanıza bu kodu yazın İşlem tamamdır.

 

[AKREP1]

Teşekkürler.Fakat bazı sayfalarda farklılık olmasını istiyorum.Yani A1:BT45 gibi.O zaman nasıl olmalı.Sabrın için sağol.

 

[Orion1]

Teşekkürler.Fakat bazı sayfalarda farklılık olmasını istiyorum.Yani A1:BT45 gibi.O zaman nasıl olmalı.Sabrın için sağol.

Her sayfanın A44 hücresine Hangi aralığın scrollArae olmasını istiyorsanız onu yazın ve aşağıdaki kodu kullanın.
Örnek:A1:BT45

Sub Auto_Open()
Dim i As Integer
For i = 1 To Sheets.Count
    Sheets(i).ScrollArea = sheets(i).Range("A44").Value
Next i
End Sub

 

[AKREP1]

Teşekkürler.Ellerine,yüreğine sağlık.

 

[Orion1]

Teşekkürler.Ellerine,yüreğine sağlık.

Rica ederim.
İyi çalışmalar.