Açılış sayfası ayarları için yardım.

[KARTAL06]

Daha önceki konularda sayın "leventm" nin yazdığı bu kodu nasıl ve nerye gireceğim? Kitap1 in hep aynı şekilde açılmasını istiyorum. ( makro ve kod girişi hakkında hiç bilgim yok )
" Ben değerleri kendi istediğim değerlerle değiştirdim ayraç olarakta nokta kullandım inşallah yanlış değildir."

With ActiveSheet.PageSetup
.LeftMargin = 20
.RightMargin = 0.5
.TopMargin = 0.5
.BottomMargin = 0.5
.CenterHorizontally = True
.CenterVertically = True
End With

teşekkürler.

 

[Levent Menteşoğlu]

Alt+F11 ile VB editörünü açın. Açılan editörün sol üst köşesinde bulunan ThisWorkbook yazısına çift tıklayın ve açılan sayfaya aşağıdaki kodu kopyalayın. Daha sonra dosyanızı kaydedip kapatın ve tekrar açın. Kod dosya açıldığında kendiliğinden çalışacaktır. Bu kod sadece Sayfa1 içindir.

Private Sub Workbook_Open()
With sheets("sayfa.PageSetup
.LeftMargin = 20
.RightMargin = 0.5
.TopMargin = 0.5
.BottomMargin = 0.5
.CenterHorizontally = True
.CenterVertically = True
End With
End Sub

 

[KARTAL06]

Özürdilerim beceremedim

Alt+F11 ile VB editörünü açın. Açılan editörün sol üst köşesinde bulunan ThisWorkbook yazısına çift tıklayın ve açılan sayfaya aşağıdaki kodu kopyalayın. Daha sonra dosyanızı kaydedip kapatın ve tekrar açın. Kod dosya açıldığında kendiliğinden çalışacaktır. Bu kod sadece Sayfa1 içindir.

Private Sub Workbook_Open()
With sheets("sayfa.PageSetup
.LeftMargin = 20
.RightMargin = 0.5
.TopMargin = 0.5
.BottomMargin = 0.5
.CenterHorizontally = True
.CenterVertically = True
End With
End Sub

alt+F11 le açılan sayfada ThisWorkbook yazısı yok yanlış biryermi açtım acaba?

 

[Levent Menteşoğlu]

Bu durumda alt+f11 ile açılan penceredeki üst menülerden insert-module ile boş bir modül sayfası ekleyin ve aşağıdaki kodu bu module kopyalayın ve yukarıdaki işlemleri tekrar edin.

[LEFT]Sub auto_Open()
With sheets("sayfa1").PageSetup
.LeftMargin = 20
.RightMargin = 0.5
.TopMargin = 0.5
.BottomMargin = 0.5
.CenterHorizontally = True
.CenterVertically = True
End With
End Sub[/LEFT]

 

[KARTAL06]

Bir soru daha var?

Tamam kod sayfasını açtım ve bu kodu kopyaladım kaydet dediğimde kitap1 olarak belgelerime kaydetmeye gidiyor. Kodu nereye kaydetmek gerekiyor? Anladığım kadarıyla bu durum sadece bu kodu yerleştirdiğim sayfa için geçerli? benim amacım excel her açıldığında ve her yeni çalışma kitabı açtığımda
bu sayfa ayarlarıyla gelmesi. XLstart dosyasını denedim orada ilk açılışta tamama kitap1 kapatılıp kitap2 ye geçildiğinde yine ayarlar değişiyor. Her seferinde aynı gelmesi mümkünmü? Çok şeymi istedim?

 

[Levent Menteşoğlu]

Bu durumda eklenti haline getirmek gerekir, bununla ilgili bir eklenti hazırlarım.

 

[KARTAL06]

Teşekkür ederim ama size zahmet veriyorum?

İnşallah sorularla bunaltmıyorum?

 

[KARTAL06]

Merhaba

Bu durumda eklenti haline getirmek gerekir, bununla ilgili bir eklenti hazırlarım.

Levent bey hazırlayabildinizmi eklentiyi?

 

[Levent Menteşoğlu]

Ekli dosyayı farklı kaydetten Excel Eklentisi (.xla) olarak kaydedin. Daha sonra araçlar-eklentiler-pagesetup olarak çıkan eklentinin karşısındaki kutuyu işaretleyin.

 

[KARTAL06]

Uyguladım ama yine olmadı.

Makroları etkinleştireyimi diye bir soru geldi evet dedim. açılan sayfayı xla olarak kaydettim ve araçlardan eklentilerden bu kutuyu onayladım ama sayfa kenar boşlukları hala aynı.

 

[Levent Menteşoğlu]

Dosyanızı kapatıp tekrar açın.

 

[KARTAL06]

Hepsini harfien yaptım ama olmadı.

Dosyanızı kapatıp tekrar açın.

xla dosyasının kaydedildiği yer farkedermi acaba? Yada siz ayarları sol;20, alt, sağ ve üst 0.5 olarak ayarladınızmı?

 

[Levent Menteşoğlu]

Farklı kaydet Excel eklentisini seçtiğinizde zaten ilgili klasör açılacaktır. Yukarıda yazdığınız ayarları eklentiye koymuştum.

 

[KARTAL06]

Neden olmadı?

Benmi yanlış yapıyorum? Açtım kapattım yine olmadı.