Soru Excel Varsayılan Ölçeklendirme

[KYenerSelvi]

Merhabalar
Birden fazla sheet kullanıyorum tek excel dosyasında.

Sayfa Düzeni kısmındaki Ölçek kısmını ben Genişlik:1 Yükseklik:1 olarak varsayılan yapmak istiyorum. Yeni Sheet(sayfa) kendi içinde açtıkca ölçek kısmı otomatik değil genişlik:1 yükseklik:1 olması için bir varsayılan ayar kısmı mevcutmudur ?

Ben bir sayfada ayarlıyorum ölçeği ama sheet ekledikçe sürekli otomatik yazıyor ölçek kısmında.

Office Plus 2016 Excel Sürümüm.

 

[Seyit Tiken]

Kodla olur diye düşünüyorum, aşağıdaki kodu Çalışma Kitabının kod sayfasına yapıştırınız, her yeni sayfa açtığınızda Çift Tıklayınız.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(2)
End Sub

Kodun 2. uygulama biçimi :
Her sayfa eklediğinizde Sayfa Ölçeklendirmeyi otomatik yapar.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(2)
Application.ScreenUpdating = True
End Sub

 

[KYenerSelvi]

Kodla olur diye düşünüyorum, aşağıdaki kodu Çalışma Kitabının kod sayfasına yapıştırınız, her yeni sayfa açtığınızda Çift Tıklayınız.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(2)
End Sub

Kodun 2. uygulama biçimi :
Her sayfa eklediğinizde Sayfa Ölçeklendirmeyi otomatik yapar.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(2)
Application.ScreenUpdating = True
End Sub

Hocam çift tıklamasız otomatik sadece belirlenen excel kitabı için otomatik çalışması mümkün mü acaba

 

[Seyit Tiken]

En altaki kodu uygula, altaki kod her sayfa eklediğinde otomatik çalışır.

 

[KYenerSelvi]

En altaki kodu uygula, altaki kod her sayfa eklediğinde otomatik çalışır.

Hocam kodu ekleyip çalıştırdım fakat birşey değiştirmedi

 

[Seyit Tiken]

Örnek dosyanızı ekleyiniz.