Scroll Area Ayarlarını Kalıcı Yapma

[ErolU]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar,
VBA ekranında sayfanın properties kısmının Scroll Area bölümüne $A$1:$D$10 yazıp çalışma kitabını kaydedip kapatıyorum.
Çalışma kitabını yeniden açtığımda yazdığım yer siliniyor.
Bunu nasıl çözebilirim.

 

UserForm Üzerinden Tarih Bilgisini Alma

ListBox ile TextBox Arasında Veri Transferi Yapma

[omerBey]

Merhaba,
Makro ile her açılışta ayarlayarak çözebilirsiniz. Ancak, bu durumda da makrolar devredışı ise yine istediğiniz olmayacaktır.

Private Sub Workbook_Open()
Worksheets("Sheet1").ScrollArea = "A1:D10"
End Sub

 

[ErolU]

Ömer Bey,
Teşekkür ederim. Verdiğiniz kod bende vardı.
1. iletimde ifade ettiğim durum bazen olmuyor. Bazen oluyor.
Asıl onu merak ediyorum.
Makrosuz olabiliyor galiba ama durumu çözemedim.

 

[omerBey]

1. iletimde ifade ettiğim durum bazen olmuyor. Bazen oluyor.

Aslında her zaman olması gerek. Bildiğim kadarıyla dosyayı her kapatıp açtığınızda bu ayar sıfırlanır. Başka türlü bir çözümü varsa da benim bilgim dahilinde olan bir konu değil maalesef.

 

[ExcelDepo]

Private Sub Workbook_Open()
    ' Sayfa1 yerine Scroll Area ayarını yapmak istediğiniz sayfanın adını yazın
    Worksheets("Sayfa1").ScrollArea = "$A$1:$D$10"
End Sub

işe yaramaması mümkün değil.